Trier certaines feuilles

xpremierx · 30 Septembre 2009

Bonjour,

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

Merci

gilbert_RGI · 3 Octobre 2009

Re : Trier certaines feuilles

xpremierx à dit:
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 · 3 Octobre 2009

Re : Trier certaines feuilles

gilbert_RGI à dit:
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 · 3 Octobre 2009

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 · 3 Octobre 2009

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 · 3 Octobre 2009

Re : Trier certaines feuilles

Voilà le fichier ICI

Salutations

Gilbert_RGI

xpremierx · 3 Octobre 2009

Re : Trier certaines feuilles

Génial !

Mais c'est quel code de macro ?

gilbert_RGI · 3 Octobre 2009

Re : Trier certaines feuilles

xpremierx à dit:
Génial !

Mais c'est quel code de macro ?

regarder dans le code de la feuille calendrier

gilbert_RGI · 3 Octobre 2009

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 · 3 Octobre 2009

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 · 3 Octobre 2009

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 · 3 Octobre 2009

Re : Trier certaines feuilles

voilà un exemple ICI

gilbert_RGI · 3 Octobre 2009

Re : Trier certaines feuilles

Oups petite erreur d'execution

voici le nouveau fichier

xpremierx · 3 Octobre 2009

Re : Trier certaines feuilles

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

gilbert_RGI · 3 Octobre 2009

Re : Trier certaines feuilles

xpremierx à dit:
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

Trier certaines feuilles

xpremierx

XLDnaute Junior

gilbert_RGI

XLDnaute Barbatruc

xpremierx

XLDnaute Junior

gilbert_RGI

XLDnaute Barbatruc

xpremierx

XLDnaute Junior

gilbert_RGI

XLDnaute Barbatruc

xpremierx

XLDnaute Junior

gilbert_RGI

XLDnaute Barbatruc

gilbert_RGI

XLDnaute Barbatruc

gilbert_RGI

XLDnaute Barbatruc

xpremierx

XLDnaute Junior

gilbert_RGI

XLDnaute Barbatruc

gilbert_RGI

XLDnaute Barbatruc

xpremierx

XLDnaute Junior

gilbert_RGI

XLDnaute Barbatruc

Discussions similaires