Flop
XLDnaute Occasionnel
Bonjour à tous, voici la macro que j'ai, et j'arrive pas a la faire fonctionner correctement, je m'explique pour la 1er partie, dans la feuille en question, dans la cellule I11 j'ai une liste déroule avec plusieurs choix "toto", "toto en voyage", "titi", j'aimerais que quand l'utilisateur selectionne "toto" cela lance la macro "toto" et ainsi de suite, la macro ci dessous fonctionne pour lancer une macro mais j'arrive pas la faire fonctionner en fonction du choix, merci d'avance. ![Smile :) :)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$11" = "TOTO" Then
'on lance la procédure Toto
Call toto
End If
If Intersect(Target, [H14:H27]) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End Sub