Bonsoir à tous ,
j'ai cette macro (qui fonctionne très bien):
For Each x In Sheets("Feuil2").Range("B7:B51")
Sheets("Feuil2").Range("B1").Value = x.Value
ici ligne de macro
next x
je voudrais avoir plusieurs cellules qui se copient en meme temps
l idée de la macro serait :
For Each x In Sheets("Feuil2").Range("B7:B51")
Sheets("Feuil2").Range("B1").Value = x.Value
For Each y In Sheets("Feuil2").Range("F7:F51")
Sheets("Feuil2").Range("F1").Value = y.Value
For Each a In Sheets("Feuil2").Range("G7:G51")
Sheets("Feuil2").Range("G1").Value = a.Value
For Each b In Sheets("Feuil2").Range("H7:H51")
Sheets("Feuil2").Range("H1").Value = b.Value
For Each c In Sheets("Feuil2").Range("I7:I51")
Sheets("Feuil2").Range("I1").Value = c.Value
For Each D In Sheets("Feuil2").Range("J7:J51")
Sheets("Feuil2").Range("J1").Value = D.Value
next x
next y
next z
next a
next b
next c
j ai testé ça mais fallait se douter que ça ne fonctionnerai pas...mais qui ne tente rien n'à rien et des fois en testant ça évite de vous soliciter
qui saurais me remplacer le code ci dessus par la bonne macro?
Merci
Klorane
j'ai cette macro (qui fonctionne très bien):
For Each x In Sheets("Feuil2").Range("B7:B51")
Sheets("Feuil2").Range("B1").Value = x.Value
ici ligne de macro
next x
je voudrais avoir plusieurs cellules qui se copient en meme temps
l idée de la macro serait :
For Each x In Sheets("Feuil2").Range("B7:B51")
Sheets("Feuil2").Range("B1").Value = x.Value
For Each y In Sheets("Feuil2").Range("F7:F51")
Sheets("Feuil2").Range("F1").Value = y.Value
For Each a In Sheets("Feuil2").Range("G7:G51")
Sheets("Feuil2").Range("G1").Value = a.Value
For Each b In Sheets("Feuil2").Range("H7:H51")
Sheets("Feuil2").Range("H1").Value = b.Value
For Each c In Sheets("Feuil2").Range("I7:I51")
Sheets("Feuil2").Range("I1").Value = c.Value
For Each D In Sheets("Feuil2").Range("J7:J51")
Sheets("Feuil2").Range("J1").Value = D.Value
next x
next y
next z
next a
next b
next c
j ai testé ça mais fallait se douter que ça ne fonctionnerai pas...mais qui ne tente rien n'à rien et des fois en testant ça évite de vous soliciter
qui saurais me remplacer le code ci dessus par la bonne macro?
Merci
Klorane