ReEMO Xmacros par ListBox => Testeurs Demandés !
Bonsoir _Thierry, ChTi160, dg62, le forum
Merci à chacun de vous pour les voeux que vous formulez à mon égard, je suis très touché par tant de marque de sympathie qui me vont dorit au coeur.
Voilà, en feuille 1 j'ai 3 listes de validation dont chaque nom appelle une macro.
Fonctionnement impec pour ma liste 1 et rien pour les autres.
Peut-être dois-je changer quelque chose dans le code, j'avoue que je suis perdu mais rien de grave
Voici l'objet de ma demande : d'ou cela provient-il ?
Je suis sous Xp et 2003
Zone de liste par Données, Validation, Liste - Source = Champ nommé
Dans Feuil1
Option Compare Text
Const T As String = '@+Thierry's Démo sur Excel-Downloads.com, April 2005'
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Address(0, 0) = 'M14' Then Exit Sub
Const Source As String = 'Liste de Validation Excel'
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
End Sub
Private Sub Worksheet_Res_Change(ByVal Target As Range)
If Not Target.Address(0, 0) = 'M16' Then Exit Sub
Const Source As String = 'Liste de Validation Excel'
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
End Sub
Merci et bonne soirée
Jean