Bonjour Tom,
Je te joint un code que _Thierry m'a concocter pour mon boulot, je pense qu'après ajustement, il devrait répondre à ton souhait
Simple sélection par liste - Code sur feuille
Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Address(0, 0) = 'M14' Then Exit Sub 'M14 est la cellule concernée
Select Case Target.Value
Case 'JANVIER': Janvier
Case 'FEVRIER': Fevrier
Case 'MARS': Mars
End Select
End Sub
Code dans Module
Const T As String = '@+Thierry's Démo sur Excel-Downloads.com, April 2005'
Sub Janvier(Source As String)
Call Base
Call RelJan
End Sub
Sub Fevrier(Source As String)
Call Base
Call RelFev
End Sub
Sub Mars(Source As String)
Call Base
Call RelMar
End Sub
Plus macros spécifiques nommée RelJan RelFev RelMars etc.
N'oublies pas non plus en Top de Module 'Option Compare Text' qui t'évitera des souci de Casse, ('Casse' pour MAJ / min, Etc... doivent se trouver dans un Module Standard (module1 par Exemple)
Pour plus re précisions, je ne m'en sens pas capable, mais tu trouveras très certainement ici quelqu'ul qui pourra le faire.
Très cordialement à toi
Jean