Trier certaines feuilles

[xpremierx]

Bonjour,

Peut-on, à l'aide d'une macro, trier certaines feuilles seulement d'un classeur par ordre alphabétique ?

Merci

 

[gilbert_RGI]

Re : Trier certaines feuilles

Bonjour,

Peut-on, à l'aide d'une macro, trier certaines feuilles seulement d'un classeur par ordre alphabétique ?

Merci

Bonjour;

cette macro trie les onglets de la feuille 2 jusqu'à la dernière

Public Sub TridesFeuilles()
Dim Feuille As Variant
Dim i As Long
For Each Feuille In ActiveWorkbook.Sheets
For i = 3 To ActiveWorkbook.Sheets.Count
If UCase(Sheets(i - 1).Name) > UCase(Sheets(i).Name) Then _
Sheets(i - 1).Move After:=Sheets(i)
Next i
Next Feuille
End Sub

Salutations

Gilbert_RGI

 

[xpremierx]

Re : Trier certaines feuilles

cette macro trie les onglets de la feuille 2 jusqu'à la dernière

Merci gilbert_RGI

Je n'y connais pas grand chose en macro (mais je vais apprendre !)

Et si je veux trier de la feuille 4 et m'arrêter à la feuille 8 sur 10 (par exemple) : quels paramètres dois-je changer ?

 

[gilbert_RGI]

Re : Trier certaines feuilles

Pour trier de la feuille 4 à la feuille 8 sur 10 (par exemple)

voilà

Public Sub TridesFeuilles()
Dim Feuille As Variant
Dim i As Long
For Each Feuille In ActiveWorkbook.Sheets
For i = 4 To 8
If UCase(Sheets(i - 1).Name) > UCase(Sheets(i).Name) Then _
Sheets(i - 1).Move After:=Sheets(i)
Next i
Next Feuille
End Sub

 

[xpremierx]

Re : Trier certaines feuilles

Merci à nouveau&u gilbert_RGI,

J'ai omis de te dire que j'avais renommé les feuilles !!

exemple :
feuille 1 : André
feuille 2 : Sophie
feuille 3 : Bernard
feuille 4 : Dupont
feuille 5 : Anatole
feuille 6 : Zoé
feuille 7 : Durand
feuille 8 : Bertrand
feuille 9 : Joséphine


Est-il possible d'effectuer ce tri avec les noms des feuilles, et non leur numéros, pour les feuilles 4 à 8 ?

 

[gilbert_RGI]

Re : Trier certaines feuilles

Voilà le fichier ICI

Salutations

Gilbert_RGI

 

[xpremierx]

Re : Trier certaines feuilles

Génial !

Mais c'est quel code de macro ?

 

[gilbert_RGI]

Re : Trier certaines feuilles

Génial !

Mais c'est quel code de macro ?

regarder dans le code de la feuille calendrier

 

[gilbert_RGI]

Re : Trier certaines feuilles

oups pour avoir la feuille "glossaire" en premier changer le code existant par celui-ci

Public Sub TridesFeuilles()
Dim Feuille As Variant
Dim i As Long
Sheets("Glossaire").Move before:=Sheets(1)
For Each Feuille In ActiveWorkbook.Sheets
For i = 3 To ActiveWorkbook.Sheets.Count - 1
If UCase(Sheets(i - 1).Name) > UCase(Sheets(i).Name) Then _
Sheets(i - 1).Move After:=Sheets(i)
Next i
Next Feuille
End Sub

 

[gilbert_RGI]

Re : Trier certaines feuilles

et bien entendu pour avoir la feuille calendrier en dernier ajouter ceci en dessous du code glossaire

Sheets("Calendrier").Move after:=Sheets(Sheets.Count)

 

[xpremierx]

Re : Trier certaines feuilles

Tu es un chef ! Merci...

J'ai vu un jour que l'on pouvait créer un bouton pour appliquer une macro (ou appliquer une macro à partir d'une cellule) : tu sais où je pourrais trouver ça ?

 

[gilbert_RGI]

Re : Trier certaines feuilles

voilà un exemple ICI

 

[gilbert_RGI]

Re : Trier certaines feuilles

Oups petite erreur d'execution

voici le nouveau fichier

 

[xpremierx]

Re : Trier certaines feuilles

Ben oui, mais comment tu fais pour arriver à ça ?

 

[gilbert_RGI]

Re : Trier certaines feuilles

Ben oui, mais comment tu fais pour arriver à ça ?

Wouahhhhh

pour commencer il faut que tu aies coché l'onglet developpeur dans les options excel



dans cet onglet tu as les boutons "insérer" et "mode création"



tu cliques pour commencer sur "mode création" et ensuite sur "'insérer" maintenant tu as une boite avec des activex qui te permettent de créér des boutons en glisse déplace

voilà pour commencer dis moi si tu y arrives