Discussion :

[c.piette]

Bonjour le forum,

J'ai un tableau (ListObject), j'ai un liste de "code employé" (NNI). Cette liste d'employé évolue dans le temps. Je cherche donc une manière de filtrer dynamiquement le tableau...

Remarque: il est possible que le tableau ne contienne pas tous les agents de ma liste...

Comment faire ? Voici ce que j'ai déjà testé:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim TblAgent As ListObject
Set TblAgent = Sheets("Agents").ListObjects("ListeDesAgents")
 
For Each Cell In TblAgent.ListColumns("NNI").DataBodyRange
 
    NNIS = NNIS & "," & Chr(34) & Cell & Chr(34)
 
Next Cell
 
NNIS = Replace(NNIS, ",", "", , 1)
 
Worksheets("Intermédiaire Formation").ListObjects("TableauEtatInscriptions").Range.AutoFilter _
    Field:=Range("TableauEtatInscriptions[NNI]").Column, Criteria1:=NNIS

Celui-ci aussi:

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
Dim TblAgent As ListObject
Dim NNIS(50) As String
 
Set TblAgent = Sheets("Agents").ListObjects("ListeDesAgents")
 
i = 0
 
For Each Cell In TblAgent.ListColumns("NNI").DataBodyRange
    NNIS(i) = Cell
    i = i + 1
Next Cell
 
    '######## Tri sur les tableaux ###########
 
Worksheets("Intermédiaire Formation").ListObjects("TableauEtatInscriptions").Range.AutoFilter _
    Field:=Range("TableauEtatInscriptions[NNI]").Column, Criteria1:=NNIS

Et celui-ci qui a presque fonctionné, le filtre a fonctionné pour un employé, mais seulement 1 (le premier de la liste):

Code :

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

1
2
Worksheets("Intermédiaire Formation").ListObjects("TableauEtatInscriptions").Range.AutoFilter _
    Field:=Range("TableauEtatInscriptions[NNI]").Column, Criteria1:=Range("ListeDesAgents[NNI]")

Donc là je suis à cours d'idée , je sollicite votre aide

[78chris]

Bonjour

Utilise le filtre avancé dans ton code : voir cet excellent tutoriel http://www.developpez.net/forums/d12...bores-d-excel/

[joe.levrai]

Outre la proposition de 78Chris qui est la plus adaptée, si tu veux filtrer plusieurs valeurs dans ton criteria1, il me semble qu'il faut spécifier l'opérateur à xlFilterValues

donc ton second code semble le plus adapté

Code :

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

1
2
3
 
Worksheets("Intermédiaire Formation").ListObjects("TableauEtatInscriptions").Range.AutoFilter _
    Field:=Range("TableauEtatInscriptions[NNI]").Column, Criteria1:=NNIS Operator:=xlFilterValues

[c.piette]

Bonjour à vous,

Voici donc un code qui fonctionne

Code :

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

1
2
3
4
5
6
7
With Worksheets("Intermédiaire Formation").ListObjects("TableauEtatInscriptions").Range
 
        .AdvancedFilter Action:= _
        xlFilterInPlace, CriteriaRange:=Sheets("Agents").Range( _
        "ListeDesAgents[[#All],[NNI]:[Statut de présence]]"), Unique:=False
 
End With

Merci à vous pour votre aide !