Macro avec Call

[olivierk1450]

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]

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]

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]

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]

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]

Bonsoir olivierk1450, herve62, Papou-net,

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]

Re,

Si les macros appelées sont toutes dans Module1 :

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...]

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]

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.