Copié différentes cellules en vba
JulienHch
Messages postés
22
Date d'inscription
Statut
Membre
Dernière intervention
-
JulienHch Messages postés 22 Date d'inscription Statut Membre Dernière intervention -
JulienHch Messages postés 22 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Copié différentes cellules en vba
- Copie cachée - Guide
- Super copie - Télécharger - Gestion de fichiers
- Copie écran samsung - Guide
- Copie disque dur - Guide
- Formule excel pour additionner plusieurs cellules - Guide
Ce n’est pas possible de faire ;
.....Range(« A1 » et « A3 » et « A7 » ) = ........Range(« B1 » et « B3 » et « B7 ») ?
Cdlmnt
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à
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").Valuevoilà
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 iLà, on a fait le tour de la question!