Copié différentes cellules en vba
Fermé
JulienHch
Messages postés
22
Date d'inscription
mardi 19 février 2019
Statut
Membre
Dernière intervention
10 avril 2019
-
22 févr. 2019 à 09:33
JulienHch Messages postés 22 Date d'inscription mardi 19 février 2019 Statut Membre Dernière intervention 10 avril 2019 - 25 févr. 2019 à 11:35
JulienHch Messages postés 22 Date d'inscription mardi 19 février 2019 Statut Membre Dernière intervention 10 avril 2019 - 25 févr. 2019 à 11:35
A voir également:
- Copié différentes cellules en vba
- Copie cachée - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Copie écran samsung - Guide
- Super copie - Télécharger - Gestion de fichiers
- Copie disque dur - Guide
1 réponse
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
22 févr. 2019 à 09:45
22 févr. 2019 à 09:45
Bonjour,
En vba comme ceci:
c'est simple, tu fais de même pour les autres
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
Modifié le 22 févr. 2019 à 12:38
Ce n’est pas possible de faire ;
.....Range(« A1 » et « A3 » et « A7 » ) = ........Range(« B1 » et « B3 » et « B7 ») ?
Cdlmnt
Modifié le 22 févr. 2019 à 13:54
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à
22 févr. 2019 à 19:46
23 févr. 2019 à 11:41
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à
Modifié le 23 févr. 2019 à 15:19
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!