Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Macro trier onglet

Macro trier onglet

5 réponses
Avatar
Le Surcitaire
Bonjour,

C'est encore moi qui ai besoin de vos lumieres ^^

Pour trier les onglets de mon classeur j'ai les 2 fonction ci-dessous
La fonction TrierSauf2 est affectee a un bouton et quand je l'actionne
j'ai le sablier et plus acces a excel, je suis oblige de passer par le
gestionnaire de tache pour le ferme. :'(
Je n'arrive pas a trouver l'erreur, sachant que j'ai appele une feuille
AAintro pour quel reste en 1 position

Sub TrierSauf2()
Modèle = Sheets(2).Name
Récapitulatif = Sheets(3).Name
TrierOnglets
'mettre les onglets en place
Sheets(Modèle).Move After:=Sheets(1)
Sheets(Récapitulatif).Move After:=Sheets(2)
End Sub

Sub TrierOnglets()
Dim FlagClassement As Boolean
Dim Compteur As Integer
FlagClassement = True
Do While FlagClassement = True
FlagClassement = False
For Compteur = 1 To Worksheets.Count - 1
If Worksheets(Compteur).Name > Worksheets(Compteur + 1).Name
Then
Worksheets(Compteur).Move After:=Worksheets(Compteur + 1)
FlagClassement = True
End If
Next Compteur
Loop
End Sub

--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre
Signaler un problème avec ce contenu

5 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
Pounet95
Bonjour,
Alors, on a inventé le mouvement perpétuel ;o)))

Tu n'as vraiment que ça comme procédures ?
Pour moi, ça fonctionne bien ( XL2000 XP Pro )

Sinon, pour arrêter, CTRL+Pause ou ESC devrait faire.

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Le Surcitaire" a écrit dans le message de
news:
Bonjour,

C'est encore moi qui ai besoin de vos lumieres ^^

Pour trier les onglets de mon classeur j'ai les 2 fonction ci-dessous
La fonction TrierSauf2 est affectee a un bouton et quand je l'actionne
j'ai le sablier et plus acces a excel, je suis oblige de passer par le
gestionnaire de tache pour le ferme. :'(
Je n'arrive pas a trouver l'erreur, sachant que j'ai appele une feuille
AAintro pour quel reste en 1 position

Sub TrierSauf2()
Modèle = Sheets(2).Name
Récapitulatif = Sheets(3).Name
TrierOnglets
'mettre les onglets en place
Sheets(Modèle).Move After:=Sheets(1)
Sheets(Récapitulatif).Move After:=Sheets(2)
End Sub

Sub TrierOnglets()
Dim FlagClassement As Boolean
Dim Compteur As Integer
FlagClassement = True
Do While FlagClassement = True
FlagClassement = False
For Compteur = 1 To Worksheets.Count - 1
If Worksheets(Compteur).Name > Worksheets(Compteur + 1).Name Then
Worksheets(Compteur).Move After:=Worksheets(Compteur + 1)
FlagClassement = True
End If
Next Compteur
Loop
End Sub

--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre



Avatar
Le Surcitaire
Pounet95 a utilisé son clavier pour écrire :
Bonjour,
Alors, on a inventé le mouvement perpétuel ;o)))

Tu n'as vraiment que ça comme procédures ?
Pour moi, ça fonctionne bien ( XL2000 XP Pro )

Sinon, pour arrêter, CTRL+Pause ou ESC devrait faire.

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Le Surcitaire" a écrit dans le message de
news:
Bonjour,

C'est encore moi qui ai besoin de vos lumieres ^^

Pour trier les onglets de mon classeur j'ai les 2 fonction ci-dessous
La fonction TrierSauf2 est affectee a un bouton et quand je l'actionne j'ai
le sablier et plus acces a excel, je suis oblige de passer par le
gestionnaire de tache pour le ferme. :'(
Je n'arrive pas a trouver l'erreur, sachant que j'ai appele une feuille
AAintro pour quel reste en 1 position

Sub TrierSauf2()
Modèle = Sheets(2).Name
Récapitulatif = Sheets(3).Name
TrierOnglets
'mettre les onglets en place
Sheets(Modèle).Move After:=Sheets(1)
Sheets(Récapitulatif).Move After:=Sheets(2)
End Sub

Sub TrierOnglets()
Dim FlagClassement As Boolean
Dim Compteur As Integer
FlagClassement = True
Do While FlagClassement = True
FlagClassement = False
For Compteur = 1 To Worksheets.Count - 1
If Worksheets(Compteur).Name > Worksheets(Compteur + 1).Name Then
Worksheets(Compteur).Move After:=Worksheets(Compteur + 1)
FlagClassement = True
End If
Next Compteur
Loop
End Sub

-- enlever lesurcitaire
La Vie n'est rien sans la joie de vivre




:-Z Oui je n'ai que ça comme procedure, mais si tu peux me proposer
mieux je suis preneur.
Merci pour la combine de Ctrl + pause :-[

--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre


Avatar
Quetzalcoatl
Bonjour,

Essaie :

Sub TrierOnglets()
Dim Feuille
Dim Compteur As Integer
For Each Feuille In Worksheets
For Compteur = 1 To Worksheets.Count - 1
If Worksheets(Compteur).Name > Worksheets(Compteur + 1).Name Then
Worksheets(Compteur).Move After:=Worksheets(Compteur + 1)
End If
Next
Next
End Sub

--
Avete amici


quand je l'actionne
j'ai le sablier et plus acces a excel


Avatar
Pounet95
Re,
Ben non, puisque ça marche, je n'ai pas pensé à te proposer autre chose.
Par contre, comment appelles-tu le code qu'il doit y avoir dans ton bouton ?
Ca serait ty point une procédure !!!!!!
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Le Surcitaire" a écrit dans le message de
news:
Pounet95 a utilisé son clavier pour écrire :
Bonjour,
Alors, on a inventé le mouvement perpétuel ;o)))

Tu n'as vraiment que ça comme procédures ?
Pour moi, ça fonctionne bien ( XL2000 XP Pro )

Sinon, pour arrêter, CTRL+Pause ou ESC devrait faire.

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Le Surcitaire" a écrit dans le message
de news:
Bonjour,

C'est encore moi qui ai besoin de vos lumieres ^^

Pour trier les onglets de mon classeur j'ai les 2 fonction ci-dessous
La fonction TrierSauf2 est affectee a un bouton et quand je l'actionne
j'ai le sablier et plus acces a excel, je suis oblige de passer par le
gestionnaire de tache pour le ferme. :'(
Je n'arrive pas a trouver l'erreur, sachant que j'ai appele une feuille
AAintro pour quel reste en 1 position

Sub TrierSauf2()
Modèle = Sheets(2).Name
Récapitulatif = Sheets(3).Name
TrierOnglets
'mettre les onglets en place
Sheets(Modèle).Move After:=Sheets(1)
Sheets(Récapitulatif).Move After:=Sheets(2)
End Sub

Sub TrierOnglets()
Dim FlagClassement As Boolean
Dim Compteur As Integer
FlagClassement = True
Do While FlagClassement = True
FlagClassement = False
For Compteur = 1 To Worksheets.Count - 1
If Worksheets(Compteur).Name > Worksheets(Compteur + 1).Name Then
Worksheets(Compteur).Move After:=Worksheets(Compteur + 1)
FlagClassement = True
End If
Next Compteur
Loop
End Sub

-- enlever lesurcitaire
La Vie n'est rien sans la joie de vivre




:-Z Oui je n'ai que ça comme procedure, mais si tu peux me proposer mieux
je suis preneur.
Merci pour la combine de Ctrl + pause :-[

--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre





Avatar
Le Surcitaire
Pounet95 a pensé très fort :
Re,
Ben non, puisque ça marche, je n'ai pas pensé à te proposer autre chose.
Par contre, comment appelles-tu le code qu'il doit y avoir dans ton bouton ?
Ca serait ty point une procédure !!!!!!
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Le Surcitaire" a écrit dans le message de
news:
Pounet95 a utilisé son clavier pour écrire :
Bonjour,
Alors, on a inventé le mouvement perpétuel ;o)))

Tu n'as vraiment que ça comme procédures ?
Pour moi, ça fonctionne bien ( XL2000 XP Pro )

Sinon, pour arrêter, CTRL+Pause ou ESC devrait faire.

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Le Surcitaire" a écrit dans le message de
news:
Bonjour,

C'est encore moi qui ai besoin de vos lumieres ^^

Pour trier les onglets de mon classeur j'ai les 2 fonction ci-dessous
La fonction TrierSauf2 est affectee a un bouton et quand je l'actionne
j'ai le sablier et plus acces a excel, je suis oblige de passer par le
gestionnaire de tache pour le ferme. :'(
Je n'arrive pas a trouver l'erreur, sachant que j'ai appele une feuille
AAintro pour quel reste en 1 position

Sub TrierSauf2()
Modèle = Sheets(2).Name
Récapitulatif = Sheets(3).Name
TrierOnglets
'mettre les onglets en place
Sheets(Modèle).Move After:=Sheets(1)
Sheets(Récapitulatif).Move After:=Sheets(2)
End Sub

Sub TrierOnglets()
Dim FlagClassement As Boolean
Dim Compteur As Integer
FlagClassement = True
Do While FlagClassement = True
FlagClassement = False
For Compteur = 1 To Worksheets.Count - 1
If Worksheets(Compteur).Name > Worksheets(Compteur + 1).Name Then
Worksheets(Compteur).Move After:=Worksheets(Compteur + 1)
FlagClassement = True
End If
Next Compteur
Loop
End Sub

-- enlever lesurcitaire
La Vie n'est rien sans la joie de vivre




:-Z Oui je n'ai que ça comme procedure, mais si tu peux me proposer mieux
je suis preneur.
Merci pour la combine de Ctrl + pause :-[

-- enlever lesurcitaire
La Vie n'est rien sans la joie de vivre




Oui exacte, mais bon c'st le WE il ne faut pas trop en demander ;-) :-Z

--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre