Discussion :

[Jacdan]

Bonjour,

nul en programmation j'ai besoin d'aide.
J'ai recherché une solution sur le forum mais n'ai pas trouvé

je voudrais en entrant un incrément appeler une macro spécifique

exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub CallLaCoreMacroNum()
 
Dim Num As Long
Dim LaCoreMacro As String
 
Num = InputBox("Donner l'incrément")
 If Num<> "" Then
              Call LaCoreMacro & Num
 
 End If
 
End Sub

Peut-être faut il nommer sa macro avec une variable : Call LaCoreMacroNum(LaCoreMacro,Num)
Mais sub LaCoreMacroNum(LaCoreMacro,Num) n'a aucune action.
Merci pour vos futures réponses Jacques

[VBA][Call][&][concaténer][procédure]

[Maxence HUBICHE]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
application.run "LaCoreMacro" & num

[Jacdan]

Merci pour votre réponse, cela m'a mis sur la voie.
J'ai une erreur : Type incompatible (erreur 13)
En fait il faut que l'incrément soit du même type ! Soit = string même si c'est un chiffre.
Voilà la correction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub CallLaCoreMacroNum()
 
Dim Num As String 'Long
Dim LaCoreMacro As String
 
Num = InputBox("Donner l'incrément")
 If Num <> "" Then
              Application.Run "LaCoreMacro" & Num                       
 End If
                      
End Sub

Sub LaCoreMacro1()
MsgBox ("ok!")
End Sub