Vba suppression de lignes
Bonjour,
Je voudrais supprimer les lignes qui contiennent les mots "C" et "U" dans la colonne 3
Voila ce que j'ai fait:
Dim i As Variant
For Each i In ActiveSheet.UsedRange
If i Like "C" Or i Like "U" Then i.Rows.Delete
Next
mais cela va supprimer tous les lignes avec C et U mêmes si ces mots ne sont pas écrit dans la colonne 3
Merci de votre aide!
Je voudrais supprimer les lignes qui contiennent les mots "C" et "U" dans la colonne 3
Voila ce que j'ai fait:
Dim i As Variant
For Each i In ActiveSheet.UsedRange
If i Like "C" Or i Like "U" Then i.Rows.Delete
Next
mais cela va supprimer tous les lignes avec C et U mêmes si ces mots ne sont pas écrit dans la colonne 3
Merci de votre aide!
2 réponses
-
ContributeurBonjour,
avec une macro parametrée (permet un choix intéressant de Lettre ou textes)
on commence en ligne 1
Option Explicit Sub supprimer_si(lettre) Dim derlig As Long, lig As Long, cptr As Long, nbre As Long derlig = Columns("C").Find("*", , , , , xlPrevious).Row lig = Cells.Rows.Count nbre = Application.CountIf(Range("C1:C" & derlig), "*" & lettre & "*") For cptr = 1 To nbre Rows(Columns("C").Find(lettre, Cells(lig, "C"), xlValues).Row).Delete Next End Sub Sub test() Application.ScreenUpdating = False supprimer_si "C" supprimer_si "U" End Sub
Michel -
Bonjour michel_m,
Tu travaille avec Excel .. Si oui, montre ton classeur avec la macro qu'on puisse y jeter un oeil.
Eric
