Vba suppression de lignes

Fermé
hady2012 Messages postés 1 Date d'inscription mercredi 17 octobre 2012 Statut Membre Dernière intervention 17 octobre 2012 - 17 oct. 2012 à 16:44
Heliotte Messages postés 1491 Date d'inscription vendredi 26 octobre 2012 Statut Membre Dernière intervention 28 janvier 2013 - 28 oct. 2012 à 09:05
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!
A voir également:

2 réponses

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 312
Modifié par michel_m le 17/10/2012 à 17:46
Bonjour,

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
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 312
25 oct. 2012 à 11:43
Merci.... de rien! :-(
0
Heliotte Messages postés 1491 Date d'inscription vendredi 26 octobre 2012 Statut Membre Dernière intervention 28 janvier 2013 92
28 oct. 2012 à 09:05
Bonjour michel_m,

Tu travaille avec Excel .. Si oui, montre ton classeur avec la macro qu'on puisse y jeter un oeil.

Eric
0