recherche

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

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

voici le fichier que j'avais commence.