Discussion :

[RadioBerkane]

Bonjour à tous,
Je cherche comment choisir une macro à éxécuter parmi 6, à partir
d'une liste déroulante dans un formulaire. (actuellement, j'ai 6 boutons,
un par macro et c'est trop moche)

j'ai créé un bouton Valider et je suis intérvenu sur l'evenement sur clik de celui ci en mettant le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Valider_Click()
 
Select Case Me.NomdemaListe.Value
 
Case Macro1
DoCmd.RunMacro "Macro1"
 
Case Macro2
DoCmd.RunMacro "Macro2"
 
End Select
 
End Sub

Malheuresement il ne se passe rien quand je clik sur le bouton, pouvez vous m'aider??

Merci d'avance

[Thierry_PALLIER]

Bonjour RadioBerkane .
Il faut (après Case) entourer Macro1 de guillemets quand c'est une valeur de type texte (string) , et sans guillemets quand c'est un nombre .

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Valider_Click()
 
Select Case Me.NomdemaListe.Value
 
Case "Macro1"
DoCmd.RunMacro "Macro1"
 
Case "Macro2"
DoCmd.RunMacro "Macro2"
 
End Select
 
End Sub

Cdlt

[FreeAccess]

Bonjour,

..choisir une macro à éxécuter parmi 6, à partir d'une liste déroulante dans un formulaire

Utilise l'événement "Après MAJ" de ta Zone de liste (lstMacros).....

Code :

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

1
2
3
Private Sub lstMacros_AfterUpdate()
DoCmd.RunMacro Me.lstMacros.Column(0)
End Sub

.... tu adaptes à ton application

[RadioBerkane]

Merci a tous les deux, il suffisait de rajouter les guillemets comme l'a précisé Thierry dans ça réponse et ça marche .
Merci encore Thierry