Classe Onglet alphabetique

[kromitou]

Bonjourrrrrrrrrrrrrrrrrr!!!

Petite question...?

Peut-on et y a t'il un moyen de Classer les onglets des feuilles par ordre Alphabétique.
(Riz; Banane; Poire; etc.....)

??????


Merci d'avance...

 

[noviceAG]

Re : Classe Onglet alphabetique

Bonjour kromitou, le Forum,
Essaie ceci, trouvé dans mes archives :

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

Bonne continuation

 

[noviceAG]

Re : Classe Onglet alphabetique

Re,
et celles-ci :

Les feuilles se réorganisent toutes seules, donc je passe par une (ou plutôt par deux) macro événementielle.

Option Explicit
'Ti - Ce lien n'existe plus

Private Sub TriFeuilles()
Dim Bcle%, Index%, Sh As Object
'évidemment, les feuilles ne doivent pas être protégées !
On Error Resume Next
With ThisWorkbook
For Each Sh In ThisWorkbook.Sheets
If Sh.Index > 5 Then
For Index = 6 To .Sheets.Count
If LCase(Sh.Name) > LCase(.Sheets(Index).Name) And Sh.Index < Index Then
Sh.Move , .Sheets(Index)
End If
Next Index
End If
Next Sh
End With
End Sub

Private Sub Workbook_NewSheet(ByVal Sh As Object)
TriFeuilles
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
TriFeuilles
End Sub

Bonne journée et bon courage

 

[excalibur]

Re : Classe Onglet alphabetique

bonjour kromitou noviceAG le forum une autre variante

Sub tri()
Dim i As Integer, j As Integer
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
For j = i To Sheets.Count
If UCase(Sheets(j).Name) < UCase(Sheets(i).Name) Then
Sheets(i).Move before:=Sheets(j)
Sheets(j).Move before:=Sheets(i)
End If: Next j: Next i
End Sub

 

[kromitou]

Re : Classe Onglet alphabetique

Bon.......

J'ai Testé tout ça ..

He bien un Grand Merci...Malgré une feuille récalcitrante, Vos propositions sont au TOP.

MERCI..........!!!!(NoviceAG & Excalibur)

 

[jppouma]

Re : Classe Onglet alphabetique

Peut-on aussi classer une sélection de feuilles? Autrement dit, que ce classement ne s'applique qu'aux onglets sélectionnés???

Merci pour vos réponses... 😕

jppouma