Macro avec Call

olivierk1450 · 19 Septembre 2017

Bonjour à tous,

J'ai une macro avec une boucle qui est censé lancer d'autre macro.
Impossible de trouver la syntaxe.
Si nombre_ai égal à 3 par exemple, il doit me lancer la macro nommée AI1 puis AI2 puis AI3 qui se trouve dans le même module.
Merci d'avance pour vos solutions.

Sub test()
Dim nombre_ai As Integer
Dim i As Integer
Dim nom_macro As String
nombre_ai = Sheets("donnees_macro").[d32]
For i = 1 To nombre_ai
If i > nombre_ai Then
Exit For
End If
nom_macro = "AI" & i
Call nom_macro '==> Ca bug
Next
End Sub

Sub AI1
Msgbox (Macro1)
End Sub

Sub AI2
Msgbox (Macro2)
End Sub

Sub AI3
Msgbox (Macro3)
End Sub

herve62 · 19 Septembre 2017

Bonsoir
normalement ce n'est pas call mais Run, voire carrément Application.run
par contre j'ai testé comme ça :
nom_macro = "AI" & CStr(i)
Run nom_macro
et erreur d'execution macro non trouvée ou non active ?
Quelqu'un a une idée

Papou-net · 19 Septembre 2017

Bonsoir Olivier, Hervé, le Forum,

Les macros "AI.." sont-elles au moins dans le même module que la procédure "test"?

Si oui, une copie du classeur serait souhaitée.

A +

Cordialement.

olivierk1450 · 19 Septembre 2017

Re,

J'ai déjà essayé Call, Application.run, Run => ca ne fonctionne pas.
J'ai mis un classeur avec macro en PJ pour Hervé
Merci
A+

Papou-net · 19 Septembre 2017

RE

Bien que le classeur ne m'était pas adressé, je te propose une façon de contourner le problème:

Regrouper les macros au sein d'une seule procédure avec un paramètre définissant le code à utiliser (voir exemple en PJ).

Cordialement.

job75 · 19 Septembre 2017

Bonsoir olivierk1450, herve62, Papou-net,

Code:

Sub test()
Dim i%
On Error Resume Next 'si B1 ne va pas
For i = 1 To [B1]
  Select Case i
    Case 1: AI1
    Case 2: AI2
    Case 3: AI3
  End Select
Next
End Sub

Sub AI1()
MsgBox "a"  'pour tester
End Sub

Sub AI2()
MsgBox "b"  'pour tester
End Sub

Sub AI3()
MsgBox "c"  'pour tester
End Sub

A+

job75 · 19 Septembre 2017

Re,

Si les macros appelées sont toutes dans Module1 :

Code:

Sub test()
Dim i%
On Error Resume Next 'si B1 ne va pas
For i = 1 To [B1]
  Run "Module1.AI" & i
Next
End Sub

Bonne fin de soirée.

Si... · 20 Septembre 2017

Bonsoir

Même remarque que dans le fil précédent : quand elle est dans un Module, la macro test agit sur la feuille active qui n'est peut =-être pas la feuille de référence, d'où la précision à ajouter

For i = 1 To Feuil1.[B1] (Feuil1 pour la réference)

Il faudra sans doute revoir les macros appelées.

olivierk1450 · 20 Septembre 2017

Merci pour vos réponses. La solution de job75 est parfaite sachant que les macros appelées sont toutes dans le même module.
Affaire conclue.

Macro avec Call

olivierk1450

XLDnaute Nouveau

herve62

XLDnaute Barbatruc

Papou-net

XLDnaute Barbatruc

olivierk1450

XLDnaute Nouveau

Pièces jointes

Papou-net

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Si...

XLDnaute Barbatruc

olivierk1450

XLDnaute Nouveau

Discussions similaires