Copier et coller les cellules de plusieurs feuilles
nihadlahit
-
NLAH Messages postés 125 Date d'inscription Statut Membre Dernière intervention -
NLAH Messages postés 125 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je suis débutante en vba, je voudrais créer une macro qui copier 4 cellules a partir de la feuille 1 et 2 cellules de la feuille 2 et les coller par la suite dans la feuille 3 comme suit:
voici un exemple qui explique clairement mon besoin
feuille1:
A1: 1 B1: 2
A3: 5000 B3 :6000
feuille2:
A3: 4000 B3: 2000
feulille3:
A1: 1 B1:5000 C1: 4000
A2: 2 B2: 6000 C2: 2000
j’espère que cette explication est claire,
Merci de m'aider s'il veut plait
je suis débutante en vba, je voudrais créer une macro qui copier 4 cellules a partir de la feuille 1 et 2 cellules de la feuille 2 et les coller par la suite dans la feuille 3 comme suit:
voici un exemple qui explique clairement mon besoin
feuille1:
A1: 1 B1: 2
A3: 5000 B3 :6000
feuille2:
A3: 4000 B3: 2000
feulille3:
A1: 1 B1:5000 C1: 4000
A2: 2 B2: 6000 C2: 2000
j’espère que cette explication est claire,
Merci de m'aider s'il veut plait
A voir également:
- Copier coller vba excel entre 2 feuilles
- Historique copier coller - Guide
- Supercopier 2 - Télécharger - Gestion de fichiers
- Liste déroulante excel - Guide
- Copier coller pdf - Guide
- Copier-coller - Accueil - Informatique
1 réponse
Bonjour,
A+
Sub Test()
Worksheets("Feuil3").Range("A1:A2") = Application.Transpose(Worksheets("Feuil1").Range("A1:B1"))
Worksheets("Feuil3").Range("B1:B2") = Application.Transpose(Worksheets("Feuil1").Range("A3:B3"))
Worksheets("Feuil3").Range("C1:C2") = Application.Transpose(Worksheets("Feuil2").Range("A3:B3"))
End Sub
A+
NLAH
Messages postés
125
Date d'inscription
Statut
Membre
Dernière intervention
2
Mercii infiniment