Tri de colonne dans des tableaux structurés

Bonjour à tous,
Avant toute chose, je vous souhaite à tous un très bon we de Pâques. Profitez en à fond avant cette nouvelle vague de reconfinement.

J'ai essayé de plusieurs manières afin de définir une macro permettant de trier des colonnes de tableaux structurés. Mon problème est que j'ai plusieurs tableaux structurés et j'aimerai pouvoir utiliser une seule meme macro que j'utiliserai au gré du besoin pour chaque tableau. Je ne veux pas d'une automatisation de tri de tous les tableaux en meme temps.

Je suis partie d'un tableau nommé, et j'ai fait un enregistrement automatique de la macro (Code ci-dessous). J'ai essayé ensuite en définissant des variables pour voir si cela fonctionnait mieux, mais bug.

Existe-til une macro plus simple sans avoir à nommer le tableau pré-sélectionné (j'espère que je suis explicite), où vais je devoir faire une macro par tableau.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub Trier()   Range("Tbl_Type_Recette[Type_Recette]").Select ActiveWorkbook.Worksheets("Paramètres").ListObjects("Tbl_Type_Recette").Sort. _ SortFields.Clear ActiveWorkbook.Worksheets("Paramètres").ListObjects("Tbl_Type_Recette").Sort. _ SortFields.Add2 Key:=Range("Tbl_Type_Recette[Type_Recette]"), SortOn:= _ xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Paramètres").ListObjects("Tbl_Type_Recette"). _ Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With   Selection.End(xlUp).Select ActiveCell(2, 1).Select Selection.ListObject.ListRows.Add (1) End Sub

---

Je vous remercie pour votre aide et vous souhaite une très belle journée
:rose2:

Bonjour,

Ce type de code pourrait faire l'affaire :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

' xlWkSheet = ActiveWorkbook.Worksheets("Paramètres") ' strTableau = Tbl_Type_Recette ' strField = Type_Recette Sub Trier(xlWkSheet As Worksheet, strTableau As String, strField As String)   Range(strTableau & "[" & strField & "]").Select xlWkSheet.ListObjects(strTableau).Sort. _ SortFields.Clear xlWkSheet.ListObjects(strTableau).Sort. _ SortFields.Add2 Key:=Range(strTableau & "[" & strField & "]"), SortOn:= _ xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With xlWkSheet.ListObjects(strTableau). _ Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With   Selection.End(xlUp).Select ActiveCell(2, 1).Select Selection.ListObject.ListRows.Add (1) End Sub

---

Non testé. Non optimisé. Non fiabilisé. Je te laisse le faire :)

Cordialement,

Bonjour
Je vous remercie, j'ai testé mais cela ne fonctionne pas

Salut,

Pour la sélection du tableau du peux faire un userform avec une listbox (ici listbox1) et un bouton de validation (ici CommandButton1)

Mets ce code dedans :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub userform_initialize() Dim obj As Object Dim sht As Worksheet Dim i As Integer i = 1 For Each sht In ThisWorkbook.Worksheets For Each obj In sht.ListObjects tableau(i, 1) = obj.Name tableau(i, 2) = sht.Name ListBox1.AddItem (obj.name) i = i + 1 Next Next End Sub   Private Sub CommandButton1_Click() UserForm1.Hide For i = 0 To UBound(tableau) If ListBox1.Value = tableau(i, 1) Then MsgBox tableau(i, 1) & " dans la feuille " & tableau(i, 2) End If Next End Sub

---

Il va te falloir créer un module pour déclarer la constante partagée a deux dimensions

Code:

---

1 2 3 4 5

Public tableau(0 To 1000, 1 To 2) As String   Sub Trier() UserForm1.Show End Sub

---

Le msgbox renvoie le nom du tableau et le nom de la feuille correspondante.

Par conte le problème c'est comment savoir quelle colonne de ton tableau tu veux manipuler si tu ne connais pas le tableau avant de faire l'opération ?

Si quelqu'un sait comment faire apparaitre les entêtes des colonnes a partir du nom du tableau dans une autre listbox je suis preneur aussi :D

Salut.

Voici une fonction générique qui trie un tableau sur base des ses colonnes en tri croissant ou décroissant. Cette solution n'intègre pas le tri sur une liste personnalisée...

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Function SortTable(Name As String, SortFields) Dim i As Long   With Range(Name).ListObject.Sort .SortFields.Clear For i = LBound(SortFields) To UBound(SortFields) Step 2 .SortFields.Add Key:=Range(Name & "[" & SortFields(i) & "]"), SortOn:=xlSortValues, Order:=SortFields(i + 1) Next i .Apply End With End Function

---

Voici comment on peut l'utiliser: sorttable "t_Mappage",array("Tableau",xlascending,"colonne",xldescending)


Pièce jointe 594822

Bonjour

Citation:

---

Envoyé par Pierre Fauconnier

Voici une fonction générique qui trie un tableau sur base des ses colonnes en tri croissant ou décroissant. Cette solution n'intègre pas le tri sur une liste personnalisée...

---

C'est fort de café : sur 365 j'obtiens un tri par couleur (qui ne trie rien puisque je n'en ai pas) je n'arrive pas à comprendre...

Salut Chris,

J'ai déjà eu ce souci, mais à mon idée, le SortOn:=xlSortValues résolvait ce problème...

C'est un truc "recopié" de mémoire de mon xltools... J'investigationne et je te dis...

Salut Chris,

Au temps pour moi, j'ai été trop vite pour tester en me basant sur le fait que les flèches étaient dans le bon sens sur les outils de filtre alors qu'un simple examen du tableau suffisait... Mais c'est xlSortOnValues et pas xlSortValues qu'il faut utiliser. Voilà qui trie mieux les données

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Function SortTable(Name As String, SortFields) Dim i As Long   With Range(Name).ListObject.Sort .SortFields.Clear For i = LBound(SortFields) To UBound(SortFields) Step 2 .SortFields.Add Key:=Range(Name & "[" & SortFields(i) & "]"), SortOn:=xlSortOnValues, Order:=SortFields(i + 1) Next i .Apply End With End Function

---

Désolé pour le contretemps...

Bonjour Pierre

J'aurais du le voir moi aussi...

Merci de la correction et bon week end

Bonjour Pierre
Merci pour cette fonction
Etant encore un peu novice, où dois l'intégrer cette fonction ? Je ne comprend pas bien comment cela fonctionne
Merci pour votre aide

Citation:

---

Envoyé par Pierre Fauconnier

Salut Chris,

Au temps pour moi, j'ai été trop vite pour tester en me basant sur le fait que les flèches étaient dans le bon sens sur les outils de filtre alors qu'un simple examen du tableau suffisait... Mais c'est xlSortOnValues et pas xlSortValues qu'il faut utiliser. Voilà qui trie mieux les données

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Function SortTable(Name As String, SortFields) Dim i As Long   With Range(Name).ListObject.Sort .SortFields.Clear For i = LBound(SortFields) To UBound(SortFields) Step 2 .SortFields.Add Key:=Range(Name & "[" & SortFields(i) & "]"), SortOn:=xlSortOnValues, Order:=SortFields(i + 1) Next i .Apply End With End Function

---

Désolé pour le contretemps...

---

Tu dis que tu as plusieurs tableaux structurés que tu souhaites trier avec une seule fonction. C'est pour cela que j'ai proposé une fonction générique⁽¹⁾. Mais il faut bien "la nourrir", c'est-à-dire lui donner les arguments spécifiques à chaque tableau (nom du tableau, nom des colonnes de tri, ordre croissant ou décroissant).

Donc, tu auras, quoi que tu fasses, autant de fonctions d'appel de cette fonction générique que tu as de tableaux à trier, puisque les paramètres vont changer⁽²⁾. Tu dois donc déterminer quand tu veux retrier tes tableaux: Par exemple, ça pourrait être lorsque tu quittes la feuille qui contient un tableau, on retrie ce tableau, etc...

A toi donc de nous dire quand tu souhaites que chaque tableau soit retrié. Un minimum de détails sur la conception de ton classeur seraient utiles pour t'aiguiller au mieux.







⁽¹⁾ On considère que l'on traite sur les valeurs. La fonction, en l'état, n'a pas vocation de remplacer l'interface et de paramétrer tous les cas de figure.

⁽²⁾ Sauf bien sûr si tes tableaux ont la même structure et qu'il n'y a que le nom qui change. On pourrait alors généraliser l'appel de la fonction, par exemple lorsque l'on quitte la feuille.