Action VBA uniquement sur changement valeur cellul

[a3lain]

Bonjour à tous,

Je voudrais modifier le code VBA suivant pour que l'action ne se passe uniquement que lorsque la cellule D4 change de Yes à No et inversement et non à chaque fois que quelque chose d'autre change dans la feuille, ce qui se passe actuellement. Je ne dois pas utiliser la bonne fonction j'imagine.
Merci
Alain

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Range('D4').Value
Case 'NO'
Rows('8:13').Select
Selection.EntireRow.Hidden = False
Rows('164:172').Select
Selection.EntireRow.Hidden = False
Rows('16:17').Select
Selection.EntireRow.Hidden = True
Rows('156:163').Select
Selection.EntireRow.Hidden = True
Case 'YES'
Rows('16:17').Select
Selection.EntireRow.Hidden = False
Rows('156:163').Select
Selection.EntireRow.Hidden = False
Rows('8:13').Select
Selection.EntireRow.Hidden = True
Rows('164:172').Select
Selection.EntireRow.Hidden = True
End Select
End Sub

 

[Jacques87]

Bonjour Alain

ajoutes les lignes suivantes avant End Select

Case Else
Exit Sub

Bon courage

 

[a3lain]

Re bonjour,

Cela ne suffit pas car ce que je voudrais c'est que l'on ne passe dans cette fonction que si D4 change, or on y passe chaque fois qu'une cellule de la feuille est modifiée.

Merci

 

[Charly2]

Bonjour a3lain et Jacques87

Alors pour ça il faut que tu ajoutes un test en début de procédure :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = '$D$4' Then
Select Case Range('D4').Value
Case 'NO'
Rows('8:13').Select
Selection.EntireRow.Hidden = False
Rows('164:172').Select
Selection.EntireRow.Hidden = False
Rows('16:17').Select
Selection.EntireRow.Hidden = True
Rows('156:163').Select
Selection.EntireRow.Hidden = True
Case 'YES'
Rows('16:17').Select
Selection.EntireRow.Hidden = False
Rows('156:163').Select
Selection.EntireRow.Hidden = False
Rows('8:13').Select
Selection.EntireRow.Hidden = True
Rows('164:172').Select
Selection.EntireRow.Hidden = True
End Select
End If
End Sub

A+

 

[a3lain]

C'est bon - Cela a l'air de marcher et cela me convient.

Mille merci à Tous