noir_desir
XLDnaute Junior
Bonjour tous le monde
je voudrai utiliser la fonction find pour supprimer tous les lignes ne contenant pas certain critère
je voudrai que les critère soit :
supprimer ligne si écrit (xls) ET NON (*suivi affaire*)
j'ai pensé à ce code la (inspiré de l'aide) mais cela ne marche pas
je voudrai utiliser la fonction find pour supprimer tous les lignes ne contenant pas certain critère
je voudrai que les critère soit :
supprimer ligne si écrit (xls) ET NON (*suivi affaire*)
j'ai pensé à ce code la (inspiré de l'aide) mais cela ne marche pas
Code:
Range("A" & derligne).Select
Range(Selection, Cells(1)).Select
With Worksheets("dirdoc").Range(selection,cell(1))
Set c = .Find([B]ma condition[/B] , LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Delete
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With