Discussion :

[Tiviia]

Bonjour à tous

Je souhaite créer une macro permettant de supprimer les lignes dés que la cellule de la colonne K commence par "5555*", et d'autre par ligne ayant dans la cellule K le mot "RETOUR FOURNISSEUR".

NB: il y a des entêtes.

J'ai pensé à faire un autofiltre, mais j'ai l'impression qu'aprés suppression des lignes trouvées et réactivation de l'autofiltre, des lignes sans les critère ont été supprimer .

Donc le problème est comment supprimer les bonnes lignes??

HELP ME Please

[gFZT82]

Bonjour,

Tu peux essayer avec ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Test()
Dim DerLig As Long
    With Worksheets("Feuil1") 'A adapter
        DerLig = .Range("K" & Rows.Count).End(xlUp).Row
        .Columns("K:K").AutoFilter
        .Range("$K$1:$K$" & DerLig).AutoFilter Field:=1, Criteria1:="=5555*", _
        Operator:=xlOr, Criteria2:="=*RETOUR FOURNISSEUR*"
        .Rows("2:" & DerLig).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
        .Columns("K:K").AutoFilter
    End With
End Sub

Cordialement.

[Tiviia]

MERCIIIIIIIIII gFZT82 !
Tu es le meilleur !

cdt

Tiviia