onglet par odre alphabétique

[arvin]

bonjour à tous


pourriez vous m'indiquer le code vba pour mettre les feuilles par ordre alphabétique (évidemment en cas d'insertino de feuille ce marche aussi)


quelqu'un aurait il une idée ? merci de votre aide car sinon mon petit projet est quelque peu retardé


merci à tous et bon week end

 

[chris]

Bonjour
Une petitie recherche sur l'ancien forum...
Voici un post parmi d'autres sur le sujet
Lien supprimé

 

[arvin]

bonjour : oui j'avais trouvé mais j'étais un peu pressé !
merci pour l'aide

à +



Sub TrieOnglet()
Dim Cpt1 As Byte, Cpt2 As Byte, Ordre As Byte

Application.ScreenUpdating = False
Cpt1 = 1
Do
Ordre = 0
For Cpt2 = Cpt1 + 1 To Sheets.Count
If Sheets(Cpt1).Name > Sheets(Cpt2).Name Then Ordre = Cpt2
Next
If Ordre <> 0 Then Sheets(Cpt1).Move after:=Sheets(Ordre) Else Cpt1 = Cpt1 + 1
Loop While Cpt1 < Sheets.Count
Application.ScreenUpdating = True
End Sub

 

[fdarro]

Salut Arvin
J'ai retrouvé ca dans mes archives....
ce n'est pas de moi mais cela fonctionne.
@+

 

[arvin]

merci pur le coup de main (mais tu as oublié le fichier je pense)


à + tard


merci