Range.Copy, méthode (Excel)

Article
04/07/2023

Copie la plage vers la plage spécifiée ou dans le Presse-papiers.

Remarque

Vous voulez développer des solutions qui étendent l’expérience Office sur plusieurs plateformes ? Découvrez le nouveau modèle de compléments Office. Les compléments Office ont un encombrement réduit par rapport aux compléments et solutions VSTO. Vous pouvez les créer à l’aide de pratiquement n’importe quelle technologie de programmation web, telle que HTML5, JavaScript, CSS3 et XML.

Syntaxe

expression.Copy (Destination)

expression Variable représentant un objet Range.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
Destination	Facultatif	Variant	Spécifie la nouvelle plage vers laquelle copier la plage spécifiée. Si cet argument est omis, Microsoft Excel copie la plage dans le Presse-papiers.

Valeur renvoyée

Variant

Exemple

L'exemple de code suivant montre comment copier les formules des cellules A1 à D4 de la feuille Sheet1 dans les cellules E5 à H8 de la feuille Sheet2.

Worksheets("Sheet1").Range("A1:D4").Copy _ 
    destination:=Worksheets("Sheet2").Range("E5:H8")

L’exemple de code suivant inspecte la valeur de la colonne D pour chaque ligne de la Feuille1. Si la valeur dans la colonne D est égal à A, la ligne entière est copiée sur FeuilleA dans la ligne vide suivante. Si la valeur est égale à B, la ligne est copiée sur FeuilleB.

Public Sub CopyRows() 
    Sheets("Sheet1").Select 
    ' Find the last row of data 
    FinalRow = Cells(Rows.Count, 1).End(xlUp).Row 
    ' Loop through each row 
    For x = 2 To FinalRow 
        ' Decide if to copy based on column D 
        ThisValue = Cells(x, 4).Value 
        If ThisValue = "A" Then 
            Cells(x, 1).Resize(1, 33).Copy 
            Sheets("SheetA").Select 
            NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1 
            Cells(NextRow, 1).Select 
            ActiveSheet.Paste 
            Sheets("Sheet1").Select 
        ElseIf ThisValue = "B" Then 
            Cells(x, 1).Resize(1, 33).Copy 
            Sheets("SheetB").Select 
            NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1 
            Cells(NextRow, 1).Select 
            ActiveSheet.Paste 
            Sheets("Sheet1").Select 
        End If 
    Next x 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via