Lancer différentes macro depuis un formulaire

[vandewinkel]

Salut à tous

j'ai un formulaire qui me tri une liste de nom par ordre alphab.
Ce que je voudrais c'est quand on selection un nom on lance une macro
ex:
AA => macro 1
CC => macro 2
BB => macro 3
GG => macro 4
EE => macro 5
FF => macro 6
CA => macro 7
AB => macro 8

etc ...
Merci de jeter un coup d'oeil

 

[Pierrot93]

Re : Lancer différentes macro depuis un formulaire

Bonjour,

regarde le code ci-dessous, à compléter :

Private Sub ListBox1_Click()
If ListBox1.Value = "AA" Then
    macro1
    ElseIf ListBox1.Value = "BB" Then macro2
    ElseIf ListBox1.Value = "CC" Then macro3
    'Etc...
End If
End Sub

bonne journée
@+

 

[JNP]

Re : Lancer différentes macro depuis un formulaire

Bonjour le fil ,
Variante en Select Case

Private Sub ListBox1_Click()
Select Case ListBox1.Value
Case "AA"
    macro1
Case "BB"
    macro2
Case "CC"
    macro3
Case Else
    MsgBox "Pas de correspondance"
End Select
End Sub

Bonne journée

 

[vandewinkel]

Re : Lancer différentes macro depuis un formulaire

Re bonjour,

Merci pour l'aide, ca marche très bien.

Bonne journée à tous

 

[vandewinkel]

Re : Lancer différentes macro depuis un formulaire

Salut à tous

j'ai un formulaire qui me tri une liste de nom par ordre alphab.
Ce que je voudrais c'est quand on selection un nom on lance une macro
ex:
AA => macro 1
CC => macro 2
BB => macro 3
GG => macro 4
EE => macro 5
FF => macro 6
CA => macro 7
AB => macro 8

etc ...
Merci de jeter un coup d'oeil

J'ai parlé trop vite
C'est vrai que cela marche, mais il faut introduire manuellement "AA BB CC ..."
Ce qui serait bien c'est que ce soit automatique ! je sais pas si c'est possible?
ou en complément ajouter le nom de la macro dans la colonne "B"

COL A COL B

AA Macro1
BB Macro2
CC Macro3
etc ....

mais le forumlaire n'affice que la colonne A

 

[vandewinkel]

Re : Lancer différentes macro depuis un formulaire

Bonjour,

regarde le code ci-dessous, à compléter :

Private Sub ListBox1_Click()
If ListBox1.Value = "AA" Then
    macro1
    ElseIf ListBox1.Value = "BB" Then macro2
    ElseIf ListBox1.Value = "CC" Then macro3
    'Etc...
End If
End Sub

bonne journée
@+

J'ai parlé trop vite
C'est vrai que cela marche, mais il faut introduire manuellement "AA BB CC ..."
Ce qui serait bien c'est que ce soit automatique ! je sais pas si c'est possible?
ou en complément ajouter le nom de la macro dans la colonne "B"

COL A COL B

AA Macro1
BB Macro2
CC Macro3
etc ....

mais le forumlaire n'affice que la colonne A

 

[JNP]

Re : Lancer différentes macro depuis un formulaire

Re ,
J'ai l'impression que tu cherches une manière compliqué de faire une chose simple ...
Si tu nommes tes Sub avec le contenu de tes cellules

Sub AA()
Sub BB()
Sub CC()

pas besoin de test, simplement

Private Sub ListBox1_Click()
Run ListBox1.Value
End Sub

Bonne soirée