vba suppression de lignes

Question

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!

michel_m · Answer

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

Heliotte · Answer

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

Vba suppression de lignes

2 réponses

Votre réponse

Discussions similaires

Newsletters