recherche

[gefree]

bonjour,

Ne maitrisant pas du tout le vba je voudrais rechercher toutes les cells de la colonne D qui commence par "J3*" et deleter les lignes qui ne commence pas par "J*".

Je joins un debut de code que j'essaie de creer, mais je galere et j'y arrive po.

Merci pour votre aide...

 

[Progfury]

Bonjour Gefree

Apparemment un petit pb avec le bout de fichier joint ...... introuvable !!!

Enfin, si j'ai bien compris ce que tu cherches, je pense que le bout de prog ci-dessous devrait faire l'affaire:


dim n
for n = 1 to 65536
if left(range("D" & n).value,2) <> "J*" then
range("D" & n).value = ""
end if
next n


@+

Progfury

 

[Progfury]

si tu veux supprimer la ligne complète:

Dim n
For n = 1 To 20
If Left(Range("D" & n).Value, 2) <> "J*" Then
Rows(n).Select
Selection.Delete Shift:=xlUpend
End If
Next n

@+
Progfury

 

[gefree]

voici le fichier que j'avais commence.