Discussion :

[Naoned005]

Bonjour

J'ai essayé de faire un filtrage avec l'enregistreur de macro et dans le filtre je dis "tu selectionnes tout sauf quand il y a FAUX dans une colonne".

Le probleme c'est que dans l'enregistreur de macro il n'ecrit pas ça comme ça. Pour lui il selectionne tout ce qui n'est pas faux (ce qui est sensiblement différent ). Je m'explique

Voici le code

Code :

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

1
2
3
4
5
ActiveSheet.Range("$O$4:$S$999").AutoFilter Field:=1, Criteria1:=Array( _
         "BJM2 INDEX", "CFM2 INDEX", "ESM2 INDEX", "GXM2 INDEX", "JSM2 INDEX", _
         "JYH2 COMB CURNCY", "KGM2 INDEX", "QBM2 INDEX", "QKM2 INDEX", "RHM2 INDEX", _
         "SXM2 INDEX", "ULM2 INDEX", "VGM2 INDEX", "WQM2 INDEX", "Z M2 INDEX"), Operator:= _
         xlFilterValues

Il n'ecrit pas "tout selectionner sauf FAUX"

Donc si j'importe une nouvelle ligne AAAA INDEX (par exemple) elle ne sera pas présente dans mon tableau filtré si je réexécute la macro.

Pourrais je modifier mon code pour qu'il prenne toujours toute les lignes SAUF faux!

Je joins mon tableau en Pj


Merci

[Naoned005]

Il suffit de remplace son code par

Code :

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

1
2
3
4
 Range("O4:O999").Select
    Selection.AutoFilter
     ActiveSheet.Range("$O$4:$S$999").AutoFilter 1, "<>FALSE", Operator:= _
        xlFilterValues

J'ai trouvé

[kiki29]

Salut,

Code :

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

1
2
3
Dim LastRow As Long
    LastRow = Feuil18.Range("O" & Rows.Count).End(xlUp).Row
    feuil18.Range("O4:O" & LastRow).....