Masquer ligne barrée

Bonjour,

Pouvez vous m'expliquer comment masquer automatiquement une ligne excel qui est barrée ?

Bonsoir

En supposant que tu veux masquer la ligne si la cellule de la colonne A est barrée, voici un code à placer dans un module :

Sub Masqueligne()

    'Dernière ligne remplie de la colonne A
    Lg = Range("A65536").End(xlUp).Row

    'De la ligne 2 à la dernière ligne remplie
    For i = 2 To Lg

    'Si la cellule Ai à la police barrée = la ligne est masquée
    If Cells(i, 1).Font.Strikethrough = True Then Rows(i).Hidden = True

    'Ligne suivante
    Next

End Sub

Et pour ré-afficher toutes les lignes :

Sub AfficheLignes()
Cells.EntireRow.Hidden = False
End Sub

Amicalement

Nad

Bonsoir, Nad

Juste pour le fun :

Sub Masqueligne2()
Dim I As Long
Application.ScreenUpdating = False
'De la ligne 2 à la dernière ligne remplie
For I = 2 To Range("A65536").End(xlUp).Row
    'la ligne est masquée si la cellule Ai a la police barrée
    Rows(I).Hidden = Cells(I, 1).Font.Strikethrough
    'Ligne suivante
Next I
End Sub

Bonne soirée