Range.Copy, méthode (Excel)Range.Copy method (Excel)

Copie la plage vers la plage spécifiée ou dans le Presse-papiers.Copies the range to the specified range or to the Clipboard.

Notes

Vous voulez développer des solutions qui étendent l’expérience Office sur plusieurs plateformes ?Interested in developing solutions that extend the Office experience across multiple platforms? Découvrez le nouveau modèle de compléments Office.Check out the new Office Add-ins model. Les compléments Office ont une faible taille par rapport aux compléments et solutions VSTO, et vous pouvez les créer à l’aide de la quasi-totalité des technologies de programmation Web, telles que HTML5, JavaScript, CSS3 et XML.Office Add-ins have a small footprint compared to VSTO Add-ins and solutions, and you can build them by using almost any web programming technology, such as HTML5, JavaScript, CSS3, and XML.

SyntaxeSyntax

expression.Copy (Destination)expression.Copy (Destination)

expression Variable représentant un objet Range.expression A variable that represents a Range object.

ParamètresParameters

NomName Requis/FacultatifRequired/Optional Type de donnéesData type DescriptionDescription
DestinationDestination FacultatifOptional VariantVariant Spécifie la nouvelle plage vers laquelle copier la plage spécifiée.Specifies the new range to which the specified range will be copied. Si cet argument est omis, Microsoft Excel copie la plage dans le Presse-papiers.If this argument is omitted, Microsoft Excel copies the range to the Clipboard.

Valeur renvoyéeReturn value

VariantVariant

ExempleExample

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.The following code example copies the formulas in cells A1:D4 on Sheet1 into cells E5:H8 on Sheet2.

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

L’exemple de code suivant inspecte la valeur de la colonne D pour chaque ligne de la Feuille1.The following code example inspects the value in column D for each row on Sheet1. Si la valeur dans la colonne D est égal à A, la ligne entière est copiée sur FeuilleA dans la ligne vide suivante.If the value in column D equals A, the entire row is copied onto SheetA in the next empty row. Si la valeur est égale à B, la ligne est copiée sur FeuilleB.If the value equals B, the row is copied onto SheetB.

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 commentairesSupport and feedback

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ?Have questions or feedback about Office VBA or this 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.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.