Copié différentes cellules en vba
JulienHch
Messages postés
22
Statut
Membre
-
JulienHch Messages postés 22 Statut Membre -
JulienHch Messages postés 22 Statut Membre -
Bonjour,
J'aurais aimé savoir comment faire pour par exemple copié les cellule A1,A3,A7
et les coller respectivement en B1,B3,B7
Bien Cdlmnt
J'aurais aimé savoir comment faire pour par exemple copié les cellule A1,A3,A7
et les coller respectivement en B1,B3,B7
Bien Cdlmnt
1 réponse
-
Bonjour,
En vba comme ceci:
Worksheets("Feuil1").Range("B1").Value = Worksheets("Feuil1").Range("A1").Value
c'est simple, tu fais de même pour les autres
-
-
Tu peux faire cela:
Worksheets("Feuil1").Range("A1:A7").Copy _ Destination:=Worksheets("Feuil1").Range("B1:B7")
Si tu veux démarrer en VBA, il y a de très bons tutoriaux sur le Net
https://www.excel-pratique.com/fr/vba/premiere_macro.php
Voilà -
-
Voir ceci:
https://www.mediaforma.com/vba-excel-on-selectionner-feuille-de-calcul/
ce qui donne cela:
Worksheets("Feuil1").Range("B1:B2").Value = Worksheets("Feuil1").Range("A1:A2").Value Worksheets("Feuil1").Range("B7").Value = Worksheets("Feuil1").Range("A7").Value
voilà -
et pour aller plus loin:
http://boisgontierjacques.free.fr/pages_site/tableaux.htm#Array
ce qui donne:
Dim a, i a = Array(1, 3, 7) For i = LBound(a) To UBound(a) Worksheets("Feuil1").Range("B" & a(i)).Value = Worksheets("Feuil1").Range("A" & a(i)).Value Next i
Là, on a fait le tour de la question!
-
