Réduire une macro

Bonjour,
Sur différentes feuilles de calcul j'ai des tableaux (6 au total)
Chaque tableau à 2 colonnes (ex 'Type' et 'Nbre') et j'ai besoin de classer les données de ces tableaux de façon automatique en triant la colonne 'Nbre' du + grand vers le + petit.
Je peux utiliser "Trier" dans excel mais cela m'oblige à le faire manuellement pour les 6 tableaux à chaque modification.

J'ai donc utilisé l'enregistreur de Macro et il m'a sorti celle ci, que j’appelle lors d'une modification sur ma feuille :

Exemple : Pour le tableau nommé "Num_Lundi" sur ma feuille "Lundi-Mardi"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Actualisation()   ' TRI DE NUM_LUNDI ActiveWorkbook.Worksheets("Lundi-Mardi").ListObjects("Num_Lundi").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Lundi-Mardi").ListObjects("Num_Lundi").Sort. _ SortFields.Add2 Key:=Range("Num_Lundi[Nbre]"), SortOn:= _ xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Lundi-Mardi").ListObjects("Num_Lundi").Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End sub

---

Cette macro se répète donc 6 fois pour trier tous des tableaux.
Auriez vous une solution pour simplifier cette automatisation de tri ?

Citation:

---

Envoyé par texas2607

Auriez vous une solution pour simplifier cette automatisation de tri ?

---

Ajoute une colonne "jour" à tes tableau dans laquelle tu mettra l'information correspondant au nom d'onglet.
Tu mets tous tes tableaux dans la même feuille et tu places un filtre dessus.
Ca te fera le tri en deux clics.

Citation:

---

Cette macro se répète donc 6 fois pour trier tous des tableaux.

---

Code:

---

1 2 3 4 5 6

Sub Actualisation() Dim WS As Worksheet For Each WS In ActiveWorkbook WS.Columns("A:B").Sort. Key1:=Range("B1"), order1:=xlAscending, header:=xlYes Next WS End sub

---

C'est du code tapé directement sur le forum et non testé. Tu auras donc peut-être du débugage à faire.

Pour info : le Sort de Range est bien plus simple d'usage que celui de Worksheet.
Lire ça : https://docs.microsoft.com/fr-fr/off...ectedfrom=MSDN

Bonsoir et merci pour ta réponse.

Citation:

---

Envoyé par Menhir

Ajoute une colonne "jour" à tes tableau dans laquelle tu mettra l'information correspondant au nom d'onglet.
Tu mets tous tes tableaux dans la même feuille et tu places un filtre dessus.
Ca te fera le tri en deux clics.

---

Le problème c'est que je ne peux pas les mettre sur la même feuille ni rajouter de colonne.
Ma 1ère feuille contient toutes les données et j'ai d'autres feuilles avec ces fameux tableaux.
En rajoutant des données sur ma feuille1 je voudrais que les tableaux :
1/ Se mettent automatiquement à jour -> Ca pas de souci
2/ Une fois à jour avoir ce fameux tri automatiquement du + vers le -
Ça fonctionne avec la macro que j'ai mentionné mais je la trouve hard car répété 6 fois (6 tableaux), c'est pour cela que je cherchais "plus léger" car dans l'avenir cela va devoir évoluer.

Citation:

---

Envoyé par texas2607

Ça fonctionne avec la macro que j'ai mentionné mais je la trouve hard car répété 6 fois (6 tableaux), c'est pour cela que je cherchais "plus léger" car dans l'avenir cela va devoir évoluer.

---

C'est pour ça que je t'ai donné un code qui boucle sur les feuilles avec en prime un code de tri plus léger.

Maintenant, si tu ne dis rien sur les feuilles à traiter et celles qui ne doivent pas l'être, je ne vais pas te tirer les vers du nez.

Je te joins un fichier exemple
Lorsque je rajoute des données à mon tableau 't_Données' (feuille Données) je voudrais que mes tableaux dans les feuilles 'Lundi-Mardi' et 'Global' se tri automatiquement du + petit vers le + grand sur la colonne 'Nbre'

Citation:

---

Envoyé par texas2607

Je te joins un fichier exemple

---

Je n'ouvre pas les fichiers joints, entre autre pour les raisons expliquées ici : https://www.developpez.net/forums/d8...s-discussions/

Citation:

---

Lorsque je rajoute des données à mon tableau 't_Données' (feuille Données) je voudrais que mes tableaux dans les feuilles 'Lundi-Mardi' et 'Global' se tri automatiquement du + petit vers le + grand sur la colonne 'Nbre'

---

Tu n'avais pas dit jusqu'à présent que tu voulais que ça se déclenche automatiquement suite à une modification. :?
Cela dit, si un tri sur deux feuille se déclenche après chaque saisie, les saisies risquent d'être lourdes.

A placer dans le module de la feuille Données :

Code:

---

1 2 3 4

Private Sub Worksheet_Change(ByVal Target as Range) Worsheets("Lundi-Mardi").Columns("A:B").Sort. Key1:=Range("B1"), order1:=xlAscending, header:=xlYes Worsheets("Global").Columns("A:B").Sort. Key1:=Range("B1"), order1:=xlAscending, header:=xlYes End Sub

---

Bonjour,
Désolé je ne savais pas pour les pièces jointes en 1er message.

Citation:

---

Envoyé par Menhir

Tu n'avais pas dit jusqu'à présent que tu voulais que ça se déclenche automatiquement suite à une modification. :?

---

Si, sur mon 1er message

Citation:

---

Je peux utiliser "Trier" dans excel mais cela m'oblige à le faire manuellement pour les 6 tableaux à chaque modification.

---

Sinon cela ne fonctionne pas.
J'ai modifié ton code :
> Worksheets au lieu de Worsheets
> J'ai remplacé '.Columns("A:B")' par le nom de mes tableaux
> Je suis passé en 'XlDescending' au lieu de 'XlAscending'
Par contre c'est en erreur direct à la saisie (erreur de syntaxe)

Code:

---

1 2 3 4

Private Sub Worksheet_Change(ByVal Target As Range) Worksheets("Lundi-Mardi").ListObjects("Num_Lundi").Sort. Key1:=Range("Nbre"), order1:=xlDescending, Header:=xlYes Worksheets("Global").ListObjects("Num_Global").Sort. Key1:=Range("Nbre"), order1:=xlDescending, Header:=xlYes End Sub

---

Et si j'enlève le point après 'Sort' alors la formules n'est pas en erreur lors de l'écriture mais à l'exécution j'ai le message : "La méthode 'range' de l'objet '_worksheet' à échouée"

Code:

---

1 2 3 4

Private Sub Worksheet_Change(ByVal Target As Range) Worksheets("Lundi-Mardi").ListObjects("Num_Lundi").Sort Key1:=Range("Nbre"), order1:=xlDescending, Header:=xlYes Worksheets("Global").ListObjects("Num_Global").Sort Key1:=Range("Nbre"), order1:=xlDescending, Header:=xlYes End Sub

---

C'est bon j'ai trouvé comment boucler sur toutes mes feuilles et tous mes tableaux en les mettant en forme.

Code:

---

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

Dim Ws As Worksheet For Each Ws In ThisWorkbook.Worksheets x = Sheets(Ws.Name).ListObjects.Count If Ws.Name <> "Données" Then For y = 1 To x ActiveWorkbook.Worksheets(Ws.Name).ListObjects(Sheets(Ws.Name).ListObjects(y).Name).Sort.SortFields.Clear ActiveWorkbook.Worksheets(Ws.Name).ListObjects(Sheets(Ws.Name).ListObjects(y).Name).Sort.SortFields.Add _ Key:=Range(Sheets(Ws.Name).ListObjects(y).Name & "[" & Sheets(Ws.Name).ListObjects(y).HeaderRowRange(2) & "]"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets(Ws.Name).ListObjects(Sheets(Ws.Name).ListObjects(y).Name).Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Next y End If Next Ws

---