Discussion :

[truman]

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 ) :

Code :

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

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.

[illight]

J'ai rien compris

[AlainTech]

J'ai rien compris

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.

[AlainTech]

Essaye la fonction Evaluate, mais sans garantie.

[truman]

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 :

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

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.

[truman]

Essaye la fonction Evaluate, mais sans garantie.

Salut !

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

[SilkyRoad]

bonjour

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

Code :

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

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

bon apres midi
michel

[Catbull]

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

1. Solution à base de CallByname :

Code :

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

CallByName(Me, strFunction, VbMethod)

2. Solution à base de Select Case :

Code :

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

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

[AlainTech]

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

[truman]

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 :

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

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

Puis dans ma form, j'ai :

Code :

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

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

Vive Developpez.com

Merci à tous.