Supprimer une ligne contenant le mot Total dans une cellule

[wapadou]

Bonjour,

Je souhaite supprimer les lignes dont la cellule contient le mot "Total".
Mot qui peux être dans une phrase.

J'ai fait un test mais qui ne marche pas.
Mieux vaut un exemple plus qu'un long discours, alors tout est dans le fichier joint.

Merci

 

[Pierrot93]

Re : Supprimer une ligne contenant le mot Total dans une cellule

Bonjour,

essaye peut être ceci :

Option Explicit
Sub test()
Dim i As Long
With Sheets("Data")
    For i = .Range("A65536").End(xlUp).Row To 2 Step -1
        If LCase(.Cells(i, 1)) Like "total*" Then .Rows(i).Delete
    Next i
End With
End Sub

bon après midi
@+

 

[Abel]

Re : Supprimer une ligne contenant le mot Total dans une cellule

Bonjour wapadou,

Essaie ce code :

Sub SuppLigne()
Dim i
Sheets("Data").Select
For i = [a65536].End(xlUp).Row To 1 Step -1
    If Cells(i, 1) Like "Total*" Then Rows(i).Delete
Next i
End Sub

Abel.

Edit : Bonjour pierrot. Pas rafraichi. Plus complet avec la gestion des maj/min.

 

[wapadou]

Re : Supprimer une ligne contenant le mot Total dans une cellule

Merci beaucoup, ça marche nikel