Discussion :

[c.piette]

Bonjour à vous,

Je souhaite trier dynamiquement un tableau. Dans ce sens où, j'aimerais que l'en-tête de la colonne triée soit explicitement renseigné. Le petit code que je vous met ci-dessous plante, mais je ne saurais dire pourquoi. Je sollicite donc votre aide.

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
i = 0
 
For Each Cell In TblAgent.ListColumns("NNI").DataBodyRange
    NOMS(i) = Cell
    i = 1
Next Cell
 
    '######## Tri sur les tableaux ###########
 
'Worksheets("Intermédiaire Formation").ListObjects("TableauEtatInscriptions").Range.AutoFilter Field:="Libelle Sous-Division", Criteria1:= _
        "POLE EXECUTION CONTRÔLE" 'Ligne problématique
 
Worksheets("Intermédiaire Formation").ListObjects("TableauEtatInscriptions").Range.AutoFilter Field:=("NNI"), Criteria1:=NOMS, _
        Operator:=xlFilterValues
 
Worksheets("Intermédiaire Formation").ListObjects("TableauEtatInscriptions").Range.AutoFilter Field:=("Statut de présence"), Criteria1:= _
        "Présent"

Le message d'erreur sur la ligne problématique est: "L'indice n'appartient pas à la sélection" ... Comment cela se fait-ce ?


Merci d'avance pour vos explications

[issoram]

Bonjour,

La ligne en question ne fait pas un tri mais un filtre...
Pour le bug, d'après l'erreur je dirais que :

• soit le champ "Libelle Sous-Division" n'existe pas dans ton tableau
• Soit la valeur filtrée "POLE EXECUTION CONTRÔLE" n'est pas présente dans la colonne du champ

[joe.levrai]

Bonjour,

l'enregistreur de macro est ton ami !

pour faire un tri

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
   With Worksheets("Feuil1").ListObjects("Tableau1").Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("Tableau1[[#All],[NOM]]"), SortOn:=xlSortOnValues, Order:= _
        xlAscending, DataOption:=xlSortNormal
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

pour faire un filtre sur la valeur toto de la colonne "NOM"

Code :

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

1
2
3
 
Worksheets("Feuil1").ListObjects("Tableau1").Range.AutoFilter _ 
    Field:=Range("Tableau1[NOM]").Column, Criteria1:="toto"

[c.piette]

Bonjour Joe, Bonjour Issoram,

@Issoram, je pense en effet que le problème venait de là. Mais après coup je me suis rendu compte que ce n'est qu'en filtrant manuellement que j'ai eu besoin de filtrer sur cette colonne: pour que l'autre colonne soit plus simple à filtrer, visuellement. Mais VBA lui s'en moque :p

@Joe, merci à toi, ton bout de code, il fonctionne à la perfection



Bonne journée à vous deux !