[VBA] Masquer des lignes suivant condition

Bonjour la communauté,

J'aurais besoin d'un code vba qui me permettrai de masquer une ligne suivant la valeur d'une cellule. La vba est active lors de l'ouverture du fichier.

Merci

Salut

Tu peux placer ce code dans ThisWorkbook :

Private Sub Workbook_Open()
Dim i As Integer

With Sheets("DT")
    For i = 3 To .Range("T" & .Rows.Count).End(xlUp).Row
        If .Range("T" & i) = "Oui" Then Rows(i & ":" & i).EntireRow.Hidden = True
    Next
End With

End Sub

Cordialement.

Bonjour

Voilà le code que j'ai utilisé (Si dans la colonne A tu écrit "OK", cette ligne sera masquée)

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo err
If Not Intersect(Target, Range("A:A")) Is Nothing Then 'Range("A:A") à modifier selon la colonne d'ou tu veux que le code se déclanche
    If Target = "ok" Then 'A adapter : ici le critère qui va déclencher le masquage de ligne 
        Rows(Target.Row).EntireRow.Hidden = True
        MsgBox "Ligne " & Target.Row & " masquée" 'Message qui informe du masquage, à mettre en commentaire si aucune utilité
    End If
End If
Exit Sub
err:

End Sub

Parfait,

Merci