Lancer une Macro Differente en fonction d'une Valeur Cellule qui change

[aveli]

Bonjour,
J'ai un soucis, voici le code la macro ne veut pas se lancer, pouvez-vous m'aider svp c'est urgent.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("I1")) Is Nothing Then: Exit Sub
Select Case Target.Value

Case "JANVIER"
MacroA
Case "FEVRIER"
MacroB
Case "MARS"
MacroC
Case "AVRIL"
MacroD
Case "MAI"
MacroE
Case "JUIN"
MacroF
Case "JUILLET"
MacroG
Case "AOUT"
MacroH
Case "SEPTEMBRE"
MacroI
Case "OCTOBRE"
MacroJ
Case "NOVEMBRE"
MacroK
Case "DECEMBRE"
MacroL
Case "ANNUEL"
MacroM

End Select
End Sub
Merci par avance.

 

[youky(BJ)]

Re : Lancer une Macro Differente en fonction d'une Valeur Cellule qui change

Salut aveli,
Peut être comme ceci
If Not Intersect(Target, Range("I1")) Is Nothing Then Exit Sub
ou encore
If Target.Address<>"$I$1" then exit sub

Bruno

 

[aveli]

Re : Lancer une Macro Differente en fonction d'une Valeur Cellule qui change

Merci Bruno pour ta réponse rapide, ça fonctionne.