Discussion :

[saigon]

Bonjour,

alors comme le dit mon titre j'essaie d'utiliser la fonction autofilter mais je veux exclure des valeurs contenues dans un tableau (si vous voyez autre chose je suis preneur !) et bien sûr ces valeurs sont dynamiques : je ne sais pas ni ce qu'elles seront ni le nombre au final...un exemple de mon code qui ne marche pas

Code :

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

1
2
3
4
5
6
7
8
9
10
Function exclureDonneeAvecFiltre() As Long
    Dim arr(2) As String
 
    'Alimente les éléments du tableau
    'et seront calculées dynamiquement
    arr(0) = "a"
    arr(1) = "b"
    arr(2) = "c"
  Range("A1").AutoFilter Field:=1, Criteria1:="<>" & arr, Operator:=xlFilterValues
End Function

Merci pour votre aide !!
Sai

[Marc-L]

Bonjour,

seulement deux critères possibles avec Excel 2003 et sans Array !
Envisager plutôt de filtrer sur une colonne supplémentaire contenant une formule …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[patricktoulon]

re
ou !!! bien envisager un filtre avec un array mais filtrer le array
en recuperer les addresses et inverser tout simplement le hidden sur les lignes visibles et invisible
exemple

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
    With ActiveSheet.Range("$A$1:$A$16")
        .AutoFilter Field:=1, Criteria1:=Array("a", "b", "c"), Operator:=xlFilterValues
        Add = .SpecialCells(xlVisible).Address
        .AutoFilter
        .Cells.EntireRow.Hidden = True
    End With
    ActiveSheet.Range(Add).EntireRow.Hidden = False
End Sub

[saigon]

Bonjour ! merci pour vos aides !!

seulement deux critères possibles avec Excel 2003 et sans Array

En fait je me suis trompé j'ai excel 2010 et non 2003 ça change la réponse ?

ou !!! bien envisager un filtre avec un array mais filtrer le array
en recuperer les addresses et inverser tout simplement le hidden sur les lignes visibles et invisible

Je tente ça aussi et je reviens vers toi !

Merci à tous les deux !!
Sai

[Marc-L]

En fait je me suis trompé j'ai excel 2010 et non 2003 ça change la réponse ?

Ben oui …     Rien qu'en ouvrant ton aide VBA interne ou encore en activant l'Enregistreur de macro !