insérer une boucle paramétrée dans une macro

[dedef]

Bonjour,

Je suis complètement débutant en macros.
J'ai enregistré la macro suivante pour la feuille AAA.
Je dois reproduire strictement la même action pour plusieurs feuilles (BBB, CCC, ...). Plutôt que de multiplier les macros, j'imagine qu'il est très simple d'insérer une boucle avec comme paramètre le nom des différentes feuilles.

Quelqu'un peut-il me donner la solution?

Merci d'avance.

Sub Recalcule_2009_12()
Sheets("modop").Select
Range("O7:O162").Select
Selection.Copy
Sheets("AAA").Select
Range("E7").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("E7").Select
End Sub

 

[jeanpierre]

Re : insérer une boucle paramétrée dans une macro

Bonjour dedef,

Un exemple de boucle qui doit résoudre ton questionnement : https://www.excel-downloads.com/threads/un-ajout-de-cinq-lignes-vierges.137396/

Les feuilles ne devront plus être nommées tel que tu l'as fait mais par : Sheets(i). ......

Bon dimanche.

Jean-Pierre

 

[pierrejean]

Re : insérer une boucle paramétrée dans une macro

bonjour a tous

Sub Recalcule_2009_12()
feuilles = Array("AA", "BB", "CC") ' mettre ici tous les noms de feuille concernés
Sheets("modop").Range("O7:O162").Copy
For n = LBound(feuilles) To UBound(feuilles)
 Sheets(feuilles(n)).Activate
 Range("E7").Select
 Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Next n
End Sub

 

[dedef]

Re : insérer une boucle paramétrée dans une macro

Merci, ça fonctionne parfaitement.

Une petite question complémentaire : si je veux coller la rangée que j'ai copiée (Sheets("modop").Range("O7:O162").Copy), non plus uniquement à partir de "E7" (Range("E7").Select), mais à partir de "E7" et de "E8", suis-je obligé de faire une seconde boucle, ou puis-je écrire quelquechose du type : (Range("E7:E8").Select)?

Merci d'avance.

 

[pierrejean]

Re : insérer une boucle paramétrée dans une macro

Re

je te suggere plutot :

Sub Recalcule_2009_12()
feuilles = Array("AA", "BB", "CC") ' mettre ici tous les noms de feuille concernés
Sheets("modop").Range("O7:O162").Copy
For n = LBound(feuilles) To UBound(feuilles)
 Sheets(feuilles(n)).Activate
 Range("E7").Select
 Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
 Range("E8").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Next n
End Sub

 

[dedef]

Re : insérer une boucle paramétrée dans une macro

Merci encore pour l'aide apportée.
Mon projet fonctionne!