Supprimer les lignes dont une cellule contient un texte format police barrée (VBA)

exene

XLDnaute Accro
Bonjour,

Je voudrais, dans un fichier de taille variable, supprimer toutes les lignes dont une cellule contient un texte format de police barrée.

Merci

@ plus
 

Fichiers joints

tatiak

XLDnaute Barbatruc
Re : Supprimer les lignes dont une cellule contient un texte format police barrée (VB

Hello Exene
Code:
Sub test()
Dim derlig As Integer, i As Integer
    derlig = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
    For i = derlig To 2 Step -1
        If ActiveSheet.Cells(i, "B").Font.Strikethrough = True Then ActiveSheet.Rows(i).EntireRow.Delete
    Next i
End Sub
:) Pierre
 

MJ13

XLDnaute Barbatruc
Re : Supprimer les lignes dont une cellule contient un texte format police barrée (VB

Bonjour Pascal, Pierre

Tu peux tester un code de ce type.

Code:
Sub a()
For i = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1
If Cells(i, 2).Font.Strikethrough = True Then Rows(i).Delete
Next
End Sub
 

exene

XLDnaute Accro
Re : Supprimer les lignes dont une cellule contient un texte format police barrée (VB

Bonjour a vous deux, le forum,

Impeccable, les deux macros fonctionnent parfaitement.

Merci

@ plus.
 

Discussions similaires


Haut Bas