VBA : Lancement conditionnel d'une procédure

[Besnard68]

Bonsoir le Forum,

J'ai 4 procédures, que j'appellerai : 'Lancer_1', 'Lancer_1', 'Lancer_3' et 'Lancer_4'

Dans une procédure, je souhaite lancer l'une de ces 4 procédures ( avec l'instruction 'Call' ) en fonction de la variable 'A' qui peux prendre la valeur 1, 2, 3 ou 4.

Si cela est possible, comment dois-je libeller mon instruction ?

Merci pour votre aide.

 

[Spitnolan08]

Re : VBA : Lancement conditionnel d'une procédure

Bonsoir,

Avec le peu d'informations que tu donnes et de façon simple :

Sub procLancer()
Select Case A
Case 1
Lancer_1
Case 2
Lancer_2
....
End select
end sub

Cordialement

 

[Besnard68]

Re : VBA : Lancement conditionnel d'une procédure

Bonsoir Spitnolan08,

Merci pour ton aide.

Mais n'est'il pas possible de combiner un test du genre ? :

If A=1 then Call "Lancer" & A

( Bien entendu cette formulation ne fonctionne pas !)


Si ce n'est pas possible, alors comment formuler le lien entre la valeur de A est la fonction Case ?


A te lire et merci d'avance.

Cordialement

 

[Spitnolan08]

Re : VBA : Lancement conditionnel d'une procédure

Re,

Mais n'est'il pas possible de combiner un test du genre ? :

If A=1 then Call "Lancer" & A

Je ne comprends pas... que ce soit un if ou un select case tu as autant de choix que de valeurs pour A...

comment formuler le lien entre la valeur de A est la fonction Case

Tout dépend comment A est défini ...



Cordialement

 

[Besnard68]

Re : VBA : Lancement conditionnel d'une procédure

Mea culpa Spitnolan08,

Tu as entièrement raison, j'ai écris trop vite et je viens en plus de voir, sur l'aide VBA, l'utilisation de 'Case' ; c'est on ne peux plus clair et très très simple.

Merci pour tes précisions et passe une bonne soirée.

Cordialement