Masqué des lignes sous conditions

Bonsoir,

Si vous pouvez m'aider svp je m'y connais pas du tout en programmation et j'ai besoin de masqué deux lignes si la premiere ligne affiche non, si la premiere ligne affiche oui alors les 2 autres lignes doivent etre afficher comme le fichier en piece jointe.

quelqu"un peut m aider svpppppp????

merciiii

Bonsoir,

bon j'ai pas téléchargé ton fichier tu devras donc adapter ce code :

Private Sub Worksheet_Activate()
        'Mise à jour lors de l'ouverture feuille
        MasqueLigne
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("A1")) Is Nothing Then
        MasqueLigne
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub
Private Sub MasqueLigne()

    Me.Rows(2).Hidden = (Me.Range("A1") = "non")
    Me.Rows(3).Hidden = (Me.Range("A1") = "non")
End Sub

Il est à placer dans le code associé à ta feuille (tu clique sur ta feuille dans VBE)

une fonction MasqueLigne , masque ou démasque les ligne 2 et 3 en fonction du contenu de la cellule A1 ( ? j'ai pas compris quand tu dis une ligne "non" .. j'ai pensé que tu parlé d'une cellule)

cette fonction est appellé a l'activation de ta feuille ou sur changement d'état de la cellule A1..

Bonjour,

Si j'ai bien compris, le code suivant devrait suffire :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Address = "$B$1" Then
        If Target.Value = "oui" Then
            Rows("2:3").Hidden = False
        Else
            Rows("2:3").Hidden = True
        End If
    End If
End Sub

A+

Bonsoir swrh17 toutes et tous,

Voir si cela convient.

Cordialement.