[VBA-E] Appel de fonction/procédure depuis une variable

Bonjour !

J'ai un ensemble de fonctions de la forme NomAttribut_Next(). Je souhaiterai une solution pour pouvoir faire un truc du type (attention, je vais écrire des conneries mais au moins vous comprendrez de suite :aie: ) :

Code:

---

1 2 3 4 5

Dim nomatt as String Dim ret as String nomatt = "Operation" ret = nomatt & "_next" 'Appel de la fonction Operation_next

---

Merci de votre aide.

J'ai rien compris :mrgreen: :aie:

Citation:

---

Envoyé par illight

J'ai rien compris :mrgreen: :aie:

---

Ca me paraît pourtant clair.

truman veut "créer" le nom de la procédure appelée par concaténation d'une variable et d'une constante.

Essaye la fonction Evaluate, mais sans garantie.

Bon ok, je vais réessayer.

Sans rentrer dans les détails, dans mon programme j'ai plusieurs 'attributs'.
J'ai également plusieurs fonctions nommées sous la forme nomattribut_next (j'aurai sans doute plus tard des fonctions sous la forme nomattribut_load etc). J'aimerai lancer ces fonctions juste à partir du nom de l'attribut.

Autre exemple, inventé à l'instant :

Code:

---

1 2 3 4 5 6 7 8 9

Dim NomAttrib(5) as String Dim ret as String Dim i as Integer   For i = 0 To 4 'Appel de la fonction ret = NomAttrib(i) & "_next" MsgBox ret Next i

---

J'espère avoir été plus clair.

Citation:

---

Envoyé par AlainTech

Essaye la fonction Evaluate, mais sans garantie.

---

Salut !

Ok j'essaierai... après la pause déjeuner :mouarf:

bonjour

pour executer une autre macro à partir d'une variable , tu peux tester

Code:

---

1 2 3 4

Dim sVar As String 'http://support.microsoft.com/kb/q108519/ sVar = "nomMacro" Application.ExecuteExcel4Macro "RUN(""" & sVar & """)"

---

bon apres midi
michel

Deux autres solutions :
1. CallByame
2. Select ... Case

1. Solution à base de CallByname :

Code:

---

CallByName(Me, strFunction, VbMethod)

---

2. Solution à base de Select Case :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Select Case strFunction Case "Fonction_1" Fonction_1   Case "Fonction_2" Fonction_2   Case "Fonction_3" Fonction_3   Case Else MsgBox "Fonction non reconnue" End Select

---

Brutale mais fonctionne ;)

Juste pour info: CallByName n'est pas reconnu par Excel 97.

Re !

J'ai utilisé la méthode CallByName. Voici, plus en détails, la façon dont j'ai procédé (on sait jamais ça peut peut-être servir...).

J'ai créer un module de classe nommé CallNextForm qui contient ma fonction :

Code:

---

1 2 3

Public Function Operation_next() as String Operation_next = "Vive Developpez.com" End Function

---

Puis dans ma form, j'ai :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim func as String Dim ret as String Dim NextForm as CallNextForm   Set NextForm = New CallNextForm   'Nom de la fonction func = nomatt & "_next ret = CallByName(NextForm, func, VbMethod) MsgBox ret

---

Citation:

---

Envoyé par MsgBox

Vive Developpez.com

---

Merci à tous. ;)