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.
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas