Exécuter plusieurs fois une macro [Résolu/Fermé]

Signaler
Messages postés
11
Date d'inscription
vendredi 19 février 2010
Statut
Membre
Dernière intervention
19 février 2010
-
Messages postés
12251
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2021
-
Bonjour,

Je souhaiterai créer une macro (M2) qui éxécute plusieurs fois une macro (M1) que j'ai d'ores et déjà programmé.

Par contre, je souhaite qu'au lancement de la macro (M2) on me demande combien de fois je souhaite qu'il exécute l'autre macro (M1).

Je vous remercie par avance pour votre aide,

Cordialement

Greg

2 réponses

Messages postés
12251
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2021
2 620
salut,
ou alors :

Sub lancer_plusieurs_fois()
Dim i As Integer, n As Integer
On Error GoTo errorHandler
n = CInt(InputBox("saisir le nombre de fois ou vous souhaitez exécuter la macro"))
For i = 1 To n
Application.Run ("nom_de_la_macro_que_tu_veux_lancer_plusieurs_fois")
MsgBox i
Next i
Exit Sub
errorHandler:
MsgBox Err.Number & vbLf & Err.Description
End Sub


source gestion d'erreur ici
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Bonjour,

sub M2 ()

a= inputbox("Combien de fois voulez-vous exécuter la macro M2?","Nombre d'exécution") 'demande nombre d'exécution

do while isnumeric (a) 'vérifie si c'est numérique
if not isnumeric(a) then
b=msgbox("Vous n'avez pas saisi un chiffre! Voulez-vous continuer?",vbyesno, "Erreur dans la saisie") ' demande à l'utilisateur s'il a tapé autre chose qu'un chiffre s'il veut continuer
if b= 7 then
exit sub 'si non, fin de la macro
else
a= inputbox("Combien de fois voulez-vous exécuter la macro M2?","Nombre d'exécution")
end if
end if
loop

for b=1 to a 'boucle qui tournera en fonction de la saisie
call M2 'appel de la macro
next b

end sub