Discussion :

[PLH81]

Bonjour,
J'ai plusieurs tableaux listobject qui se présentent tous de la même façon. Je souhaiterai faire une macro qui me permet de les trier suivant la première colonne (qui s'appelle 'entreprise)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Public Sub Tri_oList(oList As ListObject)  
    oList.Sort.SortFields.Clear
    oList.Sort.SortFields.Add2 Key:=Range("Txl_Tel[[#All],[ENTREPRISES]]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers  
    With oList.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Sauf qu'il y a la présence de "Txl_Tel" que je n'arrive pas à mettre en variable (Txl_Tel étant le nom d'un tableau structuré sous excel) oList peut faire référence entre autre à Txl_Tel.

Merci de vos réponses

[ChristianBosch]

Salut, tu as essayé l'enregistreur de macro ?

Moi ça donne un truc du genre :

Code :

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

Feuil16.ListObjects("data_presenteisme").Range.AutoFilter Field:=11, Criteria1:="0"

Data_presenteisme étant le nom du tableau, feuil16 la feuille ou est présente mon tableau, field étant la colonne de mon tableau a trier et criteria1 étant le critère de tri.

Pour faire un tri sur tous tes tableaux il faudra faire une boucle For voir même plusieurs du genre :

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
Sub test()
Dim mysht As Worksheet
Dim mytable As ListObject
Dim myCol As ListColumn
 
For Each mysht In ThisWorkbook.Worksheets
    For Each mytable In mysht.ListObjects
        For Each myCol In mytable.ListColumns
            If myCol.Name = "EnteteAtrier" Then
                mytable.Range.AutoFilter Field:=myCol.Index, Criteria1:="0"
            End If
        Next myCol
     Next mytable
Next mysht
 
End Sub

la condition d'entrée est le nom de ton entête (remplacer "EnteteAtrier" ), d'apres ca tu recupere l'index de ta colonne et tu effectue le tri que tu veux

[MarcelG]

Bonsoir à vous, Bonsoir au Forum,

Christian,

Je ne comprends pas cette partie de ton code

Code :

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

1
2
3
4
5
For Each myCol In mytable.ListColumns
            If myCol.Name = "EnteteAtrier" Then
                mytable.Range.AutoFilter Field:=myCol.Index, Criteria1:="0"
            End If
Next myCol

Plutôt que procéder par boucle, autant trier sur l'index de la colonne directement.

Code :

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

Field:=mytable.ListColumns("EnteteAtrier").Index

VBA reconnaîtra la colonne à trier directement.

Et ce d'autant que ta boucle continuera d'être effective APRES le tri de celle reconnue.
Et ce du fait qu'il 'y a pas de sortie anticipée (Exitt For).

Cela étant, mieux vaut, pour ne pas dénaturer l'emploi d'une boucle For, utiliser soit Do...Loop, soit Do...Until.

[ChristianBosch]

Marcel,

Il me semble que la demande est de boucler sur plusieurs tableaux qui ont le même entête :

J'ai plusieurs tableaux listobject qui se présentent tous de la même façon.

Donc le do until oui mais quelle condition de sortie ?

Et oui j'ai fait une boucle mais implicitement je pense que VBA fait a peu près la même chose avec ce que tu propose puisque il recherche dans l'objet "listColumns" :

Code :

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

Field:=mytable.ListColumns("EnteteAtrier").Index

Par contre effectivement ça doit réduire le nombre d'actions à effectuer.

[MarcelG]

Christian,

Je voulais signifier qu'en général, afin de sortir par anticipation d'une boucle For, mieux vaut utiliser l'une des 2 boucles Do.
Quand bien même ici, le balayage des colonnes s'effectuerait jusqu'à ce que le nom de la colonne soit trouvée. (Boucle Do)

Cela étant, quelle qu'en soit la nature, une boucle est absolument inutile pour pointer une colonne de tableau structuré.
C'est d'ailleurs là, l'un des grands avantages de ce type d'objet.

[PLH81]

Bonjour à vous,

Merci à vous pour vos réponses et mes excuses pour la mienne si tardive.

ChristianBosch, ce que j'ai mentionné en code est justement tiré de l'enregistreur macro. C'est étonnant que nous n'ayons pas la même chose.
Je vais en tout cas creusé vos pistes. Avec cela, je ne devrai pas être loin de trouver la solution.

[Philippe Tulliez]

Bonjour,

J'ai plusieurs tableaux listobject qui se présentent tous de la même façon. Je souhaiterai faire une macro qui me permet de les trier suivant la première colonne (qui s'appelle 'entreprise)

S'il s'agit de trier une colonne d'une table structurée (ListObject), la lecture de ce billet titré VBA pour Excel - Comment trier une colonne d’un tableau structuré en une ligne d’instruction, vous aidera peut-être

[PLH81]

IM-PEC-CABLE !

Merci Philippe.