Copié différentes cellules en vba

JulienHch -

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

Afficher la suite

1 réponse

Réponse 1 / 1
cs_Le Pivert Contributeur
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
0
1. JulienHch Auteur
  
  Bonjour,
  
  Ce n’est pas possible de faire ;
  
  .....Range(« A1 » et « A3 » et « A7 » ) = ........Range(« B1 » et « B3 » et « B7 ») ?
  
  Cdlmnt
  
  0
2. cs_Le Pivert Contributeur
  
  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à
  
  0
3. JulienHch Auteur
  
  le problème avec cela c’est que ça va aussi copier les celulles A2 A4 et A5 et ça je ne veux pas
  
  0
4. cs_Le Pivert Contributeur
  
  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à
  
  0
5. cs_Le Pivert Contributeur
  
  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!
  
  0

Copié différentes cellules en vba

1 réponse

Discussions similaires

Newsletters