Discussion :

[LJAMES]

Bonsoir,
j'ai ecrit ce macro pour pouvoir supprimer toute les lignes qui ne contientent pas certains criteres.
Ca marche tres bien, mais je ne peux ajouter que 2.

J'aimerais que vous m'aidiez a ajouter jusqu'a 3 out 4 criteres.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub supprimer()
 
Sheets("A").Select
 
    Dim ws As Worksheet
    Dim rng As Range
    Dim lastRow As Long
 
    Set ws = ActiveWorkbook.Sheets("A")
 
    lastRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
 
    Set rng = ws.Range("A1:A" & lastRow)
 
    ' filter and delete all but header row
    With rng
        .AutoFilter Field:=1, Criteria1:="<>*Agent*", Criteria2:="<>*Receive*"
        .Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    End With
 
    ' turn off the filters
    ws.AutoFilterMode = False
 
End sub()

Merci
JL

[parmi]

Bonjour,

Utilise l'enregistreur et sélectionne plus de 2 éléments.
Tu verras que le code généré contient un Array avec les valeurs choisies et le paramètre Operator est différent.

Il te faut donc créer un tableau avec les éléments que tu veux filtrer et le passer en paramètre.

[LJAMES]

Bonsoir Parmi,
Merci pour ton aide, j'ai utilisé l'enregistreur, voici le code généré:

Code :

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

1
2
3
4
Range("A1:C1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$C$5")..AutoFilter Field:=1, Criteria1:=Array("Agent", _
        "Receive", "Columbus"), Operator:=xlFilterValues

Mais je ne sais pas comment le passer en paramètre dans le tableau.

Merci déjà
JL