Uniformiser une code Tri

Bonjour,

Ci-dessous le ci-ode VBA généré par Excel pour trier une sélection dans une feuille donnée (ici ES).
Je sois effectuer ce même tri dans le même classeur mais pour d'autres feuilles.
Je voudrais n epas devoir créer la même Macro en changeant seulement le nom de la feuille.
Comment modifier ce code pour qu'il puisse s'appliquer sur chaque feuille?

Merci pour votre réponse

Code:

---

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

Sub Tri_num_mat() ' Tri_num_mat Macro '   Range("A82:Q101").Select ActiveWorkbook.Worksheets("ES").Sort.SortFields.Clear ActiveWorkbook.Worksheets("ES").Sort.SortFields.Add Key:=Range("A82:A101"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("ES").Sort .SetRange Range("A82:Q101") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("A82").Select End Sub

---

Bonjour,
Tu ajoutes à ta procédure Tri_num_mat() des arguments. Au moins un doit être le nom de la feuille ou l'objet feuille.
Exemple

Code:

---

1 2 3 4 5 6

Sub Tri_num_mat(nomFeuille as String)   Range("A82:Q101").Select ActiveWorkbook.Worksheets(nomFeuille).Sort.SortFields.Clear ..... End Sub

---

Dans ta commande Range("A82:Q101").Select, le Select est déconseillé parce-qu'il ralenti l'exécution et de plus ce il serait mieux de préciser la feuille

Bonjour,
Merci pour votre réponse rapide... et désolé pour le mail. suis vraiment novice sur ce forum.
Cependant, étant très novice en la matière, je ne parviens pas à transformer le code pour qu'il fonctionne. L'idée est bien de faire tourner cette Macro dans toutes les feuilles différentes en n'écrivant qu'une seule fois la macro et à partir d'une icone sur la feuille de la faire tourner sur la feuille en cours. J'ai 20 feuilles avec des noms différents mais à chaque fois je dois faire tourner la même macro dans chaque feuille.
Merci

Bonjour,
Lorsque tu auras adapté ta procédure en lui mettant des arguments comme je te l'ai suggéré.
Tu peux parcourir toutes les feuilles du classeur avec un code tel que celui-ci

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub TrieFeuille() Dim wSht As Worksheet For Each wSht In ThisWorkbook.Worksheets Tri_num_mat (wSht.Name) Next End Sub Sub Tri_num_mat(nomFeuille As String) MsgBox "Je vais trier la feuille " & nomFeuille End Sub

---

Merci pour toutes ces infos,
Mais je n'arrive pas à adapter mon code d'origine.
Que dois-je mettre comme argument (c'est un concert que je ne maitrise pas du tout) et comme nomFeuille?

Et comment adapter Range("A82:Q101").Select ?

Re merci

Bonjour,
Ton code d'origine dont j'ai mis en gras et souligné les constantes que tu devrais remplacer par des variables.

Code:

---

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

Sub Tri_num_mat() ' Tri_num_mat Macro ' Range("A82:Q101").Select ActiveWorkbook.Worksheets("ES").Sort.SortFields.Clear ActiveWorkbook.Worksheets("ES").Sort.SortFields.Add Key:=Range("A82:A101"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("ES").Sort .SetRange Range("A82:Q101") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("A82").Select End Sub

---

A une procédure Sub ou Function, tu peux ajouter des arguments.
Si tu regardes les constantes, tu constates que tu en as 2.
ES qui représente le nom de la feuille et A82:Q101 qui représente la référence à la plage de cellules qui doit être triée.
Donc tu dois prévoir au moins un argument (le nom de la feuille) et de préférence un 2ème argument pour le cas où la plage à trier ne serait pas la même sur toutes les feuilles.

Exemple de ta procédure modifiée :

Code:

---

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

Sub Tri_num_mat(nomFeuille as String, maPlage as String) ' Tri_num_mat Macro ' Range(maPLage).Select ActiveWorkbook.Worksheets(nomFeuille).Sort.SortFields.Clear ActiveWorkbook.Worksheets(nomFeuille).Sort.SortFields.Add Key:=Range(maPLage), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets(nomFeuille).Sort .SetRange Range(maPLage) .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub

---

Pour appeler ta procédure

Code:

---

Tri_num_mat("ES", "A82:Q101")

---

Attention, je n'ai pas vérifié si ta procédure d'origine fonctionnait.
Première remarque, ne pas utiliser la méthode Select, c'est parfaitement inutile et cela ralenti la procédure.

J'y suis presque... Merci
Mais comment faire pour appeler la procédure contenant les variables?

Est-ce que je peux mettre ces codes pour changer de page ? La page est différente à chaque fois, mais la plage à trier est la même.

Code:

---

1 2 3 4 5

Tri_num_mat("ES", "A82:Q101") Tri-num_mat("ER", "A82:Q101") Tri-num_mat("SO", "A82:Q101") Tri-num_mat("ME", "A82:Q101") ...

---

Sur chaque page, j'ai créé un bouton cliquable pour exécuter la macro de tri. le clic doit donc déclencher le tri sur la bonne page.

Merci

Bonjour,

Citation:

---

Mais comment faire pour appeler la procédure contenant les variables?
Est-ce que je peux mettre ces codes pour changer de page ? La page est différente à chaque fois, mais la plage à trier est la même.

---

Il me semble avoir tout expliqué dans mon post (#6) du 27/03 à 16h53.
Voir Exemple de ta procédure modifiée et Pour appeler ta procédure

Oui, je sais, j'ai bien modifié mon code, mais je ne sais pas où et comment faire tourner l'appel du code Tri_num_mat("ES", "A82:Q101").
Dois-je créer un code par page ?
Comment faire tourner cet appel du code.
Lorsque je veux le faire tourner dans le VBA il me met erreur de compilation , attendu =
Est-ce que c'est cette ligne de code que je dois lier au bouton créé?

Il me demande également le nom de la Macro.
Concrètement, je n'arrive pas à faire le line entre la ligne d'appel de la Macro et la Macro elle-même.

Bonjour,
Un exemple ici