[XL-2003] Lancer une sub avec le nom de sub contenu dans variable [Résolu]

[K-limero]

Bonjour à vous,
J'aimerais savoir si vous avez déja pu lancer une sub-routine à partir d'une autre sub-routine en lançant le contenu d'une variable...
Ex.:

Code :

1
2
3
4
5
6
7
8
Sub toto()
MaVar = "TATA"
Call MaVar   'la je ne sais pas ce que l'on peut mettre equivalent a indirect() dans Excel
End sub

Sub TATA()
....
End sub

Merci de votre aide.

[MattChess]

Utilisez Application.Run "nom de la macro"

Dans Module1, copier-coller :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit ' Lancer une macro par son nom
Public Const nameSubTata = "Tata" ' Nom de la macro à lancer
 
' Lanceur de macro par nom
Sub RunMacroByName(ByVal strNameSub As String)
    Application.Run strNameSub
End Sub
 
' Macro à lancer
Sub Tata()
    Debug.Print "Tata is running"
End Sub

Dans la fenêtre d'Exécution immédiate (Ctrl+G) du VBE (Visual Basic Editeur) d'Excel, copier-coller et valider par ENTER :

Code :

RunMacroByName nameSubTata

Tata is running

[Pierre Fauconnier]

Salut.

Code :

Run MaVariable

MaVariable doit contenir le nom d'une procédure valide. Tu peux lui passer des arguments, mais uniquement des valeurs. Il n'est pas possible de passer des objets par cette méthode.

[K-limero]

Génial, et merci de ta rapidité de réponse...
Souhaitant un jour peut être moi aussi être utile !

[Arkham46]

Pierre,

Tu peux m'éclairer sur ça :

Envoyé par Pierre Fauconnier

Il n'est pas possible de passer des objets par cette méthode.

De quels objets tu parles?
Parce que j'arrive bien à passer des objets en paramètre (Application, Module de Classe...) (version 2003)

[Pierre Fauconnier]

n'est plus mon ami

Extrait de l'aide Excel

Les objets qui sont transmis à la macro en tant qu'arguments sont convertis en valeurs (en appliquant la propriété Value à l'objet). Cela signifie que vous ne pouvez pas passer d'objets aux macros à l'aide de la méthode Run

Le pire, c'est que j'ai effectivement des procs qui recoivent des objets par ce biais. Mais en regardant l'aide pour vouloir être complet, je suis tombé là-dessus et je n'ai pas été plus loin.

Tu peux me moinsser...

[Arkham46]

merci Pierre, j'ai cru que j'avais une version spéciale d'Office mais non ...