Question sur le tri des onglets

[gianluca]

Bonsoir à tous...

Une petite dernière pour la route...

J'ai récupéré sur le forum une procédure de tri des onglets. (By Catrice...)

For i = 6 To Sheets.Count
Num = 0
Nom = Sheets(i).Name
For j = i - 1 To 1 Step -1
If Sheets(i).Name < Sheets(j).Name Then Num = j
Next j
If Num > 0 Then Sheets(i).Move before:=Sheets(Num)
Next i

procédure que j'ai modifiée car je ne souhaite pas que les 5 premiers onglets soient triés.
La procédure fonctionne parfaitement mais.... eh oui....
le tri ne tient pas compte des onglets que je veux ignorer et certains de ceux-ci se retrouvent encadrés par des onglets qui ont été triés. (La feuille Menu, par exemple, n'est plus en première position)

Existe t'il une solution pour que le tri et son résultat n'impacte pas les 5 premiers onglets ?

Merci à vous

Bonne soirée

Gianluca

 

[pierrejean]

Re : Question sur le tri des onglets

bonsoir gianluca

Catrice que je salue n'etant pas la je me permets de repondre

For i = 6 To Sheets.Count
Num = 0
Nom = Sheets(i).Name
For j = i - 1 To [COLOR=red]5 [/COLOR]Step -1
If Sheets(i).Name < Sheets(j).Name Then Num = j
Next j
If Num > 0 Then Sheets(i).Move before:=Sheets(Num)
Next i

 

[gianluca]

Re : Question sur le tri des onglets

Bonsoir PierreJean, re le forum

Merci de ta réponse.

je vais de ce pas modifier....
Que deviendrais-je sans vous ?

Merci vraiment

Bonne soirée
Gianluca