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