XL 2016 VBA - Cacher lignes en fonction du contenu de plusieurs cellules

[kaisermpt]

Bonjour à tous,

Question sûrement simple pour le forum, j'ai un fichier excel où selon la réponse à des questions, certaines lignes doivent être cachées avec un code VBA.

Si on répond "OUI" ou "N/A" à toutes les questions (1,2 et 3) alors les questions 4 et 5 doivent être cachées.
Si on répond "NON" au moins une fois à l'une des questions (1,2,3) alors que questions 4 et 5 doivent rester visibles.

Merci d'avance pour votre aide,

@Seb

 

[sylvanu]

Bonjour Kaisermpt,
Un essai en PJ.

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Address = "$C$3" Or Target.Address = "$C$4" Or Target.Address = "$C$5" Then
        If Application.CountIf(Range("C3:C5"), "OUI") + Application.CountIf(Range("C3:C5"), "N/A") = 3 Then
            Rows("6:7").EntireRow.Hidden = True
        End If
        If Application.CountIf(Range("C3:C5"), "NON") > 0 Then
            Rows("6:7").EntireRow.Hidden = False
        End If
    End If
End Sub

par contre quand aucune configuration n'est détectée je laisse dans l'état.

 

[kaisermpt]

Merci pour votre réponse.

Juste une question, quand on efface tout, que doit-on rajouter dans le code pour que toutes les lignes apparaissent ?
Merci d'avance,

@Seb

 

[sylvanu]

Bonjour,
Il faut rajouter deux lignes, quand on efface cellule par cellule ou quand on efface tout d'un coup.

 

[kaisermpt]

Bonjour

Merci. C'est parfait.

Bonne journée