Discussion :

[Dautomne]

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.

[cavo789]

Bonsoir

Pour la ligne ci-dessous, nous sommes bien d'accord qu'il s'agit de quatre cellules ? Si tu lis ton test, il traite quoi ? C5 ou C6 ou ... ?

If Range("C5:C8").Value = "NON" Then Rows("10:13").EntireRow.Hidden = TrueCeci aurait plus de chance de fonctionner :

If (Range("C5").Value = "NON") AND (Range("C6").Value = "NON") AND (Range("C7").Value = "NON") AND (Range("C8").Value = "NON") Then Rows("10:13").EntireRow.Hidden = TrueMaintenant, c'est plutôt bof bof de faire comme ça. Déjà, le fait d'utiliser "OUI" et "NON", c'est problèmatique car quid si je mets YES et NO dans les cellules => tu forces l'utilisation du français. Pourquoi pas 1 et 0 qui sont plus portables ? Ou alors tu peux faire ce que tu écris si tu as forcé un "Data validation" (je ne connais pas la correspondance en français) càd forcé l'apparition d'une liste déroulante où tu forces un choix de valeur.

Imaginons qu'au lieu de "NON" on met "0" (le chiffre zéro). Du coup, c'est facile : If (Sum(Range("C5:C8").Value) = 0) Then ... et là, vaut que la somme des quatre cellules donne zéro, ben, c'est que j'avais NON partout.

Plus haut dans ton code tu as les lignes ci-dessous. A première vue c'est bizarre : que ce soit oui ou non tu masques la ligne 9 et cela pour C5 à C8

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
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

Cela fait beaucoup de lignes de code pour, au final, la même chose; cacher la ligne 9.

Ne pourrais-tu pas améliorer cela ? Dire que la ligne est toujours masquée sauf si ... Qu'as-tu d'autres comme valeurs que OUI ou NON ? N'est-ce pas plus lisible de dire, je ne sais pas, si Range("C5").Value = "NA" Then ... et d'afficher la ligne au lieu de la masquer ?

Sinon de faire une boucle foreach ... histoire d'éviter de se répéter.

[Dautomne]

Merci beaucoup pour ton aide. Le problème est résolu. Je suis très contente. Bonne Soirée.