Plage de copie VBA vers une autre feuille + classeur
Pour copier une cellule ou une plage de cellules dans une autre feuille de calcul, vous devez utiliser la méthode « Copier » du VBA. Dans cette méthode, vous devez définir la plage ou la cellule à l’aide de l’objet plage que vous souhaitez copier, puis définir une autre feuille de calcul avec la plage dans laquelle vous souhaitez la coller.
Copier une cellule ou une plage dans une autre feuille de calcul
Range("A1").Copy Worksheets("Sheet2").Range("A1")
- Tout d’abord, définissez la plage ou la cellule que vous souhaitez copier.
- Tapez ensuite un point (.) et sélectionnez la méthode de copie dans la liste des propriétés et des méthodes.
- Ici, vous obtiendrez un intellisense pour définir la destination de la cellule copiée.
- À partir de là, vous devez définir la feuille de calcul, puis la plage de destination.
Maintenant, lorsque vous exécutez ce code, il copie la cellule A1 de la feuille active vers la « Feuille2 ». Il y a une chose dont vous devez vous assurer que lorsque vous copiez une cellule et que vous la collez dans une destination, elle y colle également la mise en forme.
Mais si vous voulez simplement copier la valeur d’une cellule et la coller dans les différentes feuilles de calcul, considérez le code suivant.
Worksheets("Sheet2").Range("A1") = Range("A1").Value
Cette méthode n’utilise pas la méthode de copie mais ajoute simplement de la valeur à la feuille de calcul de destination en utilisant un signe égal et en utilisant la propriété value avec la cellule source.
Copier la cellule d’une autre feuille de calcul
Supposons maintenant que vous souhaitiez copier une cellule d’une feuille de calcul qui n’est pas active à ce moment-là. Dans ce cas, vous devez définir la feuille de calcul avec la cellule source. Tout comme le code suivant.
Worksheets("sheet1").Range("A1").Copy Worksheets("Sheet2").Range("A1")
Copier une plage de cellules
Range("A1:A10").Copy Worksheets("Sheet2").Range("A1:A10")
Range("A1:A10").Copy Worksheets("Sheet2").Range("A1")
Copier une cellule dans une feuille de calcul dans un autre classeur
Lorsque les classeurs sont ouverts mais pas encore enregistrés.
Workbooks("Book1").Worksheets("Sheet1").Range("A1").Copy _
Workbooks("Book2").Worksheets("Sheet1").Range("A1")
Lorsque les classeurs sont ouverts et enregistrés.
Workbooks("Book1.xlsx").Worksheets("Sheet1").Range("A1").Copy _
Workbooks("Book2.xlsx").Worksheets("Sheet1").Range("A1")
Copier une cellule dans une feuille de calcul dans un autre classeur fermé
'to open the workbook that is saved in a folder on your system _
change the path according to the location you have in your _
system
Workbooks.Open "C:UsersDellDesktopmyFile.xlsx"
'copies cell from the book1 workbook and copy and paste _
it to the workbook myFile
Workbooks("Book1").Worksheets("Sheet1").Range("A1").Copy _
Workbooks("myFile").Worksheets("Sheet1").Range("A1")
'close the workbook and after saving
Workbooks("myFile").Close SaveChanges:=True
En relation: Comment ouvrir un classeur à l’aide de VBA dans Excel