suppression de lignes excel si detection chaine caractère

[sylv@in]

bonjour,

dans le code ci dessous je parcours ma colonne a la recherche d'une certaine chaine de caractères et si je le trouve je vire le reste

Dim cellule As Range, valeur As String
On Error Resume Next

For Each cellule In Range("f2", Range("f65000").End(xlUp))

valeur = "": valeur = Application.WorksheetFunction.Find("TRW", cellule, 1)
If valeur <> "" Then cellule.Offset(0, 0) = "TRW"

next cellule


je voudrais savoir s'il est possible d'adapter le code pour parcourir ma colonne excel a partir du bas car je voudrais supprimer des lignes lorsque je rencontre une certaine chaine de caractère (cf exemple en dessous) je dois donc avoir une solution qui se décremente

exemple:
Dim cellule2 As Range, valeur2 As String, i As Long
i = 1
On Error Resume Next

For Each cellule2 In Range("f2", Range("f65000").End(xlUp))
i = i + 1
valeur2 = "": valeur2 = Application.WorksheetFunction.Find("DOREL", cellule2, 1)
If valeur2 <> "" Then Rows(i).Delete Shift:=lUp

Next cellule2

merci

 

[tototiti2008]

Re : suppression de lignes excel si detection chaine caractère

Bonjour sylvain,

Peut-être comme ça :

Dim cellule2 As Range, valeur2 As String, i As Long, j as long
i = Range("f65000").End(xlUp).row
On Error Resume Next

For j= i to 1 step-1
valeur2 = "": valeur2 = Application.WorksheetFunction.Find("DOREL", cells(j,6), 1)
If valeur2 <> "" Then Rows(j).Delete Shift:=lUp

Next j

 

[kjin]

Re : suppression de lignes excel si detection chaine caractère

Bonjour,
A coté!

 

[sylv@in]

Re : suppression de lignes excel si detection chaine caractère

yes ca marche nikel problème résolu

merci pour tout