Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion dedef
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
D

dedef

XLDnaute Occasionnel
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
 
Trier par date Trier par votes
Re : insérer une boucle paramétrée dans une macro

bonjour a tous

Code: 
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
 
Vote positif 0 Vote négatif
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.
 
Vote positif 0 Vote négatif
Re : insérer une boucle paramétrée dans une macro

Re

je te suggere plutot :

Code: 
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Résolu(e)
Microsoft 365 Première cellule vide ou égal zéros dans une plage définie
Réponses
11
Affichages
458
juju91
J
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
646
AtTheOne
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
791
ph.vanne
N
  • Résolu(e)
Microsoft 365 Macro entre 2 classeurs
2
Réponses
19
Affichages
761
Nounours4173
N
V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
241
vazvaz
V
M
  • Question Question
XL 2021 VBA Excel Erreur 2023
Réponses
2
Affichages
399
MICHIS
M
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
1 K
Phil69970
  • Résolu(e)
XL 2021 Exécuter une macro sur plusieurs feuilles
Réponses
9
Affichages
697
micie1509
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
3 K
job75
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
803
robpellan52
R
F
  • Résolu(e)
XL 2021 Réaliser une macro pour copier une ligne avec formule ?
Réponses
4
Affichages
751
fanou06
F
B
  • Question Question
XL 2016 Interférence entre une boucle et un copie de feuille
Réponses
4
Affichages
662
Oneida
  • Résolu(e)
XL 2021 Ecrire dans une une autre feuille
Réponses
3
Affichages
740
Usine à gaz
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
3 K
AtTheOne
  • Résolu(e)
Microsoft 365 Macro fonctionnant avec excel 365 sur windows 11 mais ne fonctionnent pas sur un autre windows 11 avec aussi un excel 365
Réponses
11
Affichages
1 K
mouchtre
M
  • Résolu(e)
XL 2016 Filtre auto VBA
Réponses
3
Affichages
1 K
MickaeL_D
M
W
  • Question Question
XL 2021 Boucle copier-coller par nom d'en-tête de colonnes
Réponses
10
Affichages
887
whiteshark
W
B
  • Résolu(e)
XL 2016 macro avec boucle
2
Réponses
16
Affichages
2 K
benbella1991
B
D
  • Question Question
XL 2010 Macros insérer une ligne en recopiant formule dans plusieurs feuilles
Réponses
11
Affichages
1 K
deva
D
M
  • Question Question
Microsoft 365 Problème VBA insertion ligne au-desus
Réponses
3
Affichages
806
Mr.Adrien
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…