Exécuter plusieurs fois une macro
Résolu/Fermé
grizzo
Messages postés
11
Date d'inscription
vendredi 19 février 2010
Statut
Membre
Dernière intervention
19 février 2010
-
19 févr. 2010 à 14:54
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 19 févr. 2010 à 15:50
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 19 févr. 2010 à 15:50
A voir également:
- Exécuter plusieurs fois une macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Qu'est ce qu'une femme fait 3 fois par jour et un homme une fois dans sa vie ✓ - Forum Loisirs / Divertissements
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro word - Guide
- Executer .sh ✓ - Forum Shell
2 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 759
19 févr. 2010 à 15:50
19 févr. 2010 à 15:50
salut,
ou alors :
source gestion d'erreur ici
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
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
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