Copier et coller les cellules de plusieurs feuilles [Fermé]

Signaler
-
Messages postés
125
Date d'inscription
lundi 9 septembre 2013
Statut
Membre
Dernière intervention
13 juin 2017
-
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


1 réponse

Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
516
Bonjour,

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+
Messages postés
125
Date d'inscription
lundi 9 septembre 2013
Statut
Membre
Dernière intervention
13 juin 2017
1
Mercii infiniment