Demande d'aide code vba erroné

Version imprimable

Bonsoir,

Voici le code repris dans mon fichier excel

Code:

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:

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.

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:

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.

18/02/2021, 22h48
Dautomne

Merci

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