Re : Supprimer une ligne contenant le mot Total dans une cellule
Bonjour,
essaye peut être ceci :
Code:
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
Re : Supprimer une ligne contenant le mot Total dans une cellule
Bonjour wapadou,
Essaie ce code :
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.