Bonsoir,

Voici le code repris dans mon fichier excel

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = 0
 
Rows("4:13").EntireRow.Hidden = False
If Range("C4").Value = "NON" Then Rows("5:13").EntireRow.Hidden = True
If Range("C4").Value = "NA" Then Rows("5:13").EntireRow.Hidden = True
If Range("C9").Value = "OUI" Then Rows("5:8").EntireRow.Hidden = True
If Range("C9").Value = "NON" Then Rows("5:8").EntireRow.Hidden = True
If Range("C5").Value = "OUI" Then Rows("9").EntireRow.Hidden = True
If Range("C5").Value = "NON" Then Rows("9").EntireRow.Hidden = True
If Range("C6").Value = "OUI" Then Rows("9").EntireRow.Hidden = True
If Range("C6").Value = "NON" Then Rows("9").EntireRow.Hidden = True
If Range("C7").Value = "OUI" Then Rows("9").EntireRow.Hidden = True
If Range("C7").Value = "NON" Then Rows("9").EntireRow.Hidden = True
If Range("C8").Value = "OUI" Then Rows("9").EntireRow.Hidden = True
If Range("C8").Value = "NON" Then Rows("9").EntireRow.Hidden = True
If Range("C9").Value = "NON" Then Rows("10:13").EntireRow.Hidden = True
If Range("C5:C8").Value = "NON" Then Rows("10:13").EntireRow.Hidden = True
 
Application.ScreenUpdating = -1
End Sub
La ligne suivante ne fonctionne pas
Code : Sélectionner tout - Visualiser dans une fenêtre à part
If Range("C5:C8").Value = "NON" Then Rows("10:13").EntireRow.Hidden = True
Je souhaite voir les lignes 10 à 13 cachées si les cellules, C5 + C6 + C7 + C8 sont renseignées "NON"

Quelqu'un peut-il m'aider ? Merci par avance pour votre aide.