[Résolu] Worksheet_Change 2 conditions et 2 macros

[LOLO13130]

Bonsoir à tous,

Je sollicite votre aide car je croyais être en mesure d'adapter un code récupéré sur le forum (merci encore rouge), mais non...
Je souhaiterais écrire une worksheet_change selon ces conditions :
- SI D9 change ET D9="Niveau 1", ALORS appeler la macro N1TR puis la macro N1D
- SI D9 change ET D9="Niveau 2", ALORS appeler la macro N2TR puis la macro N2D
- SI une cellule de B26:I35 change, ALORS appeler la macro N1TR puis la macro N1D
- SI une cellule de B40:I49 change, ALORS appeler la macro N2TR puis la macro N2D

Merci d'avance pour votre aide si précieuse pour les novices comme moi.
Cordialement.
Laurent

 

[mapomme]

Bonsoir LOLO13130,

Une piste:

Private Sub Worksheet_Change(ByVal Target As Range)
   If (Target(1, 1).Address = "$D$9" And Target(1, 1).Value = "Niveau 1") Or Not Intersect(Target, Range("$B$26:$I$35")) Is Nothing Then
      N1TR
      N1D
   ElseIf (Target(1, 1).Address = "$D$9" And Target(1, 1).Value = "Niveau 2") Or Not Intersect(Target, Range("$B$40:$I$49")) Is Nothing Then
      N2TR
      N2D
   End If
End Sub

 

[LOLO13130]

Bonsoir mapomme,

C'est parfait et rapide !!
Je marque le sujet comme résolu.

Merci pour le partage.
Cordialement.
Laurent