B
BoSo
Guest
Bonjour tout le monde, est il possible de lancer une macro via un menu deroulant? Si oui, pourriez vous m'expliquer la demarche a suivre?
Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Address(0, 0) = 'M14' Then Exit Sub
Select Case Target.Value
Case 'JANVIER': Janvier
Case 'FEVRIER': Fevrier
Case 'MARS': Mars
Case 'AVRIL': Avril
Case 'MAI': Mai
Case 'JUIN': Juin
Case 'JUILLET': Juillet
Case 'AOUT': Aout
Case 'SEPTEMBRE': Septembre
Case 'OCTOBRE': Octobre
Case 'NOVEMBRE': Novembre
Case 'DECEMBRE': Decembre
End Select
End Sub
Sub Janvier()
MsgBox 'Vous avez cliqué sur Janvier '
End Sub
Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
Const Source As String = 'Liste de Validation Excel'
If Target.Address(0, 0) = 'M14' Then
Select Case Target.Value
Case 'JANVIER': Janvier Source
Case 'FEVRIER': Fevrier Source
Case 'MARS': Mars Source
Case 'AVRIL': Avril Source
Case 'MAI': Mai Source
Case 'JUIN': Juin Source
Case 'JUILLET': Juillet Source
Case 'AOUT': Aout Source
Case 'SEPTEMBRE': Septembre Source
Case 'OCTOBRE': Octobre Source
Case 'NOVEMBRE': Novembre Source
Case 'DECEMBRE': Decembre Source
End Select
ElseIf Target.Address(0, 0) = 'M16' Then
Select Case Target.Value
Case 'B': B Source
Case 'J5_Mixte': J5_Mixte Source
Case 'Mini_Bus_9pl': Mini_Bus_9pl Source
Case 'MONO': MONO Source
Case 'VGL_M1': VGL_M1 Source
Case 'VGL_M1_Break': VGL_M1_Break Source
Case 'VGL_M2': VGL_M2 Source
Case 'VGL_M2 Break': VGL_M2_Break Source
Case 'VU_1G': VU_1G Source
Case 'VU_1M': VU_1M Source
Case 'VU_2M': VU_2M Source
Case 'VU_3G': VU_3G Source
Case 'VU_3M': VU_3M Source
End Select
'ElseIf Target.Address(0, 0) = 'Z1' Then Exit Sub
'Select Case Target.Value
'etc
'etc
End If
End Sub