variable tri sur une colonne d'une listobject

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:

---

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

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

Moi ça donne un truc du genre :

Code:

---

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:

---

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

Bonsoir à vous, Bonsoir au Forum,

Christian,

Je ne comprends pas cette partie de ton code

Code:

---

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:

---

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.

Marcel,

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

Citation:

---

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:

---

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

---

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

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.

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.

Bonjour,

Citation:

---

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

IM-PEC-CABLE !

Merci Philippe.