Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Utiliser la même macro de tri dans plusieurs feuille

Utiliser la même macro de tri dans plusieurs feuille

2 réponses
Avatar
Manelka51
Bonjours à tous,
Voilà mon problème, j'ai un fichier de collection qui comporte plus de 40
feuilles identiques, je voudrais faire un tri par nom ou par ville, mais je
ne trouve pas comment utiliser la même macro, il semble que je dois faire
une macro par feuille.
Est-ce que quelqu'un connait la solution s'il y en a une.
Merci d'avance.
Je sais que s'il y en a une, vous allez m'aider.
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
FFO
Salut à toi

Aprés avoir sélectionné ta feuille cette ligne fait le tri des colonnes A à
AZ sur la colonne A :

Range("A2", "AZ65535").Sort Key1:=Range("A2"), Order1:=xlAscending

Si tu veux modifier tes colonnes à trier agis sur :

Range("A2", "AZ65535")


Si tu veux trier sur une autre colonne agis sur :

Sort Key1:=Range("A2")

Si tu veux modifier le sens du tri agis sur :

Order1:=xlAscending
et de mettre
Order1:=xlDescending

Pour trier tes 40 feuilles d'un coup utilises ceci :

For i = 1 to sheets.Count
Sheets(i).Range("A2", "AZ65535").Sort Key1:=Sheets(i).Range("A2"),
Order1:=xlAscending
Next

Adaptes les parties :

Range("A2", "AZ65535")
Range("A2")

en fonction des colonnes à trier

Fais des essais et dis moi !!!!!
Avatar
Fredo P.
Une solution, placer la macro dans le classeur Perso et ajouter un bouton de
commande sur la ligne de menu Excel

--

Fredo P.


"FFO" a écrit dans le message de news:

Salut à toi

Aprés avoir sélectionné ta feuille cette ligne fait le tri des colonnes A
à
AZ sur la colonne A :

Range("A2", "AZ65535").Sort Key1:=Range("A2"), Order1:=xlAscending

Si tu veux modifier tes colonnes à trier agis sur :

Range("A2", "AZ65535")


Si tu veux trier sur une autre colonne agis sur :

Sort Key1:=Range("A2")

Si tu veux modifier le sens du tri agis sur :

Order1:=xlAscending
et de mettre
Order1:=xlDescending

Pour trier tes 40 feuilles d'un coup utilises ceci :

For i = 1 to sheets.Count
Sheets(i).Range("A2", "AZ65535").Sort Key1:=Sheets(i).Range("A2"),
Order1:=xlAscending
Next

Adaptes les parties :

Range("A2", "AZ65535")
Range("A2")

en fonction des colonnes à trier

Fais des essais et dis moi !!!!!