Discussion :

[sephiroth669]

bonjour

j'ai 4 macros, que je voudrais tout simplement affecter à une zone de liste déroulante : quand on clique sur un des 4 choix, ça exécute la macro correspondante. Pourriez-vous me donner le code à taper ?

Est-ce possible également de personnaliser le texte qui apparaîtra dans la liste ?

merci

[a_diard]

Si ta liste est dans la cellule B2

j'ai crée une liste déroulante contenant mac1 à mac4

les 4 macro que j'ai crées s’appellent mac1 à mac4

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Rows = 2 And Target.Column = 2 Then
End If
Select Case Target.Value
Case "mac1"
mac1
Case "mac2"
mac2
Case "mac3"
mac3
Case "mac4"
mac4
 
End Select
 
End Sub

[sephiroth669]

La liste déroulante se trouve en F4. J'ai copié le code, et j'ai modifié pour mettre le nom de mes macros, mais il y a qqch que je dois faire mal, car rien ne s'exécute...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Rows = 4 And Target.Column = 6 Then
End If
Select Case Target.Value
Case "Absorba_Boutique"
Absorba Boutique
Case "Jean_Bourget"
Jean Bourget
Case "Absorba_Hyper"
Absorba Hyper
Case "Alphabet"
Alphabet
 
End Select
 
End Sub

[a_diard]

j'ai fait une erreur

le end if doit être placé après le end select

Mais ça devrait fonctionner quand même.

pas d'espace dans le nom d'une macro

Absorba Boutique ce n'est pas possible

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Rows = 4 And Target.Column = 6 Then
 
Select Case Target.Value
Case "Absorba_Boutique"
Absorba Boutique
Case "Jean_Bourget"
Jean Bourget
Case "Absorba_Hyper"
Absorba Hyper
Case "Alphabet"
Alphabet
 
End Select
 End If
End Sub

[sephiroth669]

désolé, je débute... je fais une liste déroulante avec Données => Validation => Liste déroulante ? ou bien dans l'onglet Développeur, je fais insérer une zone de liste déroulante ?