Jai trouve cette macro sur google et j'aimerai que 2 onglets ne soit
pas classer mais reste en 2 et 3 positions
Est ce possible et comment?
***************************************************************************
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
***************************************************************************
Merci
--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre
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
Pounet95
Bonsoir, Avant de faire le tri de tous les onglets, mémoriser le nom des 2ème et 3ème onglets. Faire le tri sans s'en préoccuper. Quand c'est fini, les mettre là où ils doivent être.
Sub TriSauf2 onglet2=sheets(2).Name onglet3=sheets(3).Name ' faire la proc ci-dessous TrierOnglets
'mettre les onglets en place Sheets(onglet2).Move After:=Sheets(1) Sheets(onglet3).Move After:=Sheets(2)
End sub -- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"Le Surcitaire" a écrit dans le message de news:
Bonjour,
Jai trouve cette macro sur google et j'aimerai que 2 onglets ne soit pas classer mais reste en 2 et 3 positions Est ce possible et comment?
*************************************************************************** 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 *************************************************************************** Merci
-- enlever lesurcitaire La Vie n'est rien sans la joie de vivre
Bonsoir,
Avant de faire le tri de tous les onglets, mémoriser le nom des 2ème et 3ème
onglets.
Faire le tri sans s'en préoccuper.
Quand c'est fini, les mettre là où ils doivent être.
Sub TriSauf2
onglet2=sheets(2).Name
onglet3=sheets(3).Name
' faire la proc ci-dessous
TrierOnglets
'mettre les onglets en place
Sheets(onglet2).Move After:=Sheets(1)
Sheets(onglet3).Move After:=Sheets(2)
End sub
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Le Surcitaire" <donzel-gargand.jacques-lesurcitaire@tiscali.fr> a écrit
dans le message de news: mn.8cde7d51280109f2.13377@tiscali.fr...
Bonjour,
Jai trouve cette macro sur google et j'aimerai que 2 onglets ne soit pas
classer mais reste en 2 et 3 positions
Est ce possible et comment?
***************************************************************************
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
***************************************************************************
Merci
--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre
Bonsoir, Avant de faire le tri de tous les onglets, mémoriser le nom des 2ème et 3ème onglets. Faire le tri sans s'en préoccuper. Quand c'est fini, les mettre là où ils doivent être.
Sub TriSauf2 onglet2=sheets(2).Name onglet3=sheets(3).Name ' faire la proc ci-dessous TrierOnglets
'mettre les onglets en place Sheets(onglet2).Move After:=Sheets(1) Sheets(onglet3).Move After:=Sheets(2)
End sub -- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"Le Surcitaire" a écrit dans le message de news:
Bonjour,
Jai trouve cette macro sur google et j'aimerai que 2 onglets ne soit pas classer mais reste en 2 et 3 positions Est ce possible et comment?
*************************************************************************** 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 *************************************************************************** Merci
-- enlever lesurcitaire La Vie n'est rien sans la joie de vivre
Le Surcitaire
Pounet95 avait énoncé :
Bonsoir, Avant de faire le tri de tous les onglets, mémoriser le nom des 2ème et 3ème onglets. Faire le tri sans s'en préoccuper. Quand c'est fini, les mettre là où ils doivent être.
Sub TriSauf2 onglet2=sheets(2).Name onglet3=sheets(3).Name ' faire la proc ci-dessous TrierOnglets
'mettre les onglets en place Sheets(onglet2).Move After:=Sheets(1) Sheets(onglet3).Move After:=Sheets(2)
End sub -- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"Le Surcitaire" a écrit dans le message de news:
Bonjour,
Jai trouve cette macro sur google et j'aimerai que 2 onglets ne soit pas classer mais reste en 2 et 3 positions Est ce possible et comment?
*************************************************************************** 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 *************************************************************************** Merci
-- enlever lesurcitaire La Vie n'est rien sans la joie de vivre
Merci c'est tout a fait ce que je voulais
-- enlever lesurcitaire La Vie n'est rien sans la joie de vivre
Pounet95 avait énoncé :
Bonsoir,
Avant de faire le tri de tous les onglets, mémoriser le nom des 2ème et 3ème
onglets.
Faire le tri sans s'en préoccuper.
Quand c'est fini, les mettre là où ils doivent être.
Sub TriSauf2
onglet2=sheets(2).Name
onglet3=sheets(3).Name
' faire la proc ci-dessous
TrierOnglets
'mettre les onglets en place
Sheets(onglet2).Move After:=Sheets(1)
Sheets(onglet3).Move After:=Sheets(2)
End sub
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Le Surcitaire" <donzel-gargand.jacques-lesurcitaire@tiscali.fr> a écrit dans
le message de news: mn.8cde7d51280109f2.13377@tiscali.fr...
Bonjour,
Jai trouve cette macro sur google et j'aimerai que 2 onglets ne soit pas
classer mais reste en 2 et 3 positions
Est ce possible et comment?
***************************************************************************
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
***************************************************************************
Merci
-- enlever lesurcitaire
La Vie n'est rien sans la joie de vivre
Merci c'est tout a fait ce que je voulais
--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre
Bonsoir, Avant de faire le tri de tous les onglets, mémoriser le nom des 2ème et 3ème onglets. Faire le tri sans s'en préoccuper. Quand c'est fini, les mettre là où ils doivent être.
Sub TriSauf2 onglet2=sheets(2).Name onglet3=sheets(3).Name ' faire la proc ci-dessous TrierOnglets
'mettre les onglets en place Sheets(onglet2).Move After:=Sheets(1) Sheets(onglet3).Move After:=Sheets(2)
End sub -- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"Le Surcitaire" a écrit dans le message de news:
Bonjour,
Jai trouve cette macro sur google et j'aimerai que 2 onglets ne soit pas classer mais reste en 2 et 3 positions Est ce possible et comment?
*************************************************************************** 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 *************************************************************************** Merci
-- enlever lesurcitaire La Vie n'est rien sans la joie de vivre
Merci c'est tout a fait ce que je voulais
-- enlever lesurcitaire La Vie n'est rien sans la joie de vivre
