Discussion :

[KingKev]

Bonjour , j'ai crée une série de fonctions qu'on appelera f1,f2,f3, etc...
je voudrais que quand l'utilisateur rentre 1 dans une cellule (prenons par exemple la cellule [A1] ) creer un bouton exécutant la fonction f1.
Je n'ai pas vraiment de problème pour faire ça car il me suffit d'écrire

Code :

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

1
2
3
if [A1]=1 then f1
if [A2]=2 then f2
...

Mais bon tout ça est très lourd à écrire quand le nombre de fonction et de paramètres est important. Je voudrais pouvoir juste écrire:

Code :

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

1
2
n=[A1]
fn

Seulement ça ne marche pas probablement parce que le n assigné n'est pas le même que le n dans le nom de la fonction (et c'est bien normal sinon on ne pourrait pas créer beaucoup de variables). Bref c'etait pour illustrer mon problème. Auriez vous une solution me permettant de ne pas multiplier les boucles if ?

Merci!

[tedo01]

Bonjour,
Une solution possible est d'écrire une fonction générique fn :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Publi Function fn(intNum As Integer, param1, param2...)
Select Case intNum
Case 1
   fn = f1( param1, param2...)
Case 2
   fn = f3( param1, param2...)
Case 3
   fn = f3( param1, param2...)
Case Else
   MsgBox "Erreur : fonction non prévue"
End Select
End Function

Comme ça tu peux appeler fn() avec en paramètre le numéro de la fonction.