Question sur le tri des onglets

gianluca · 29 Avril 2007

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 · 29 Avril 2007

Re : Question sur le tri des onglets

bonsoir gianluca

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

Code:

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 · 29 Avril 2007

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

Question sur le tri des onglets

gianluca

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

gianluca

XLDnaute Occasionnel

Discussions similaires