Microsoft 365 tri des onglets selon une liste déterminée ou selon l'ordre alpha numérique

mapomme à dit:

Bonjour @Zarjoun,

Sans avoir analysé votre code, sur ma bécane l'exécution de votre code se fait en moins de 0,4 secondes.

Cliquez pour agrandir...

Zarjoun à dit:

C'est peut être du au fait que j'ai allégé le fichier,

Cliquez pour agrandir...

sylvanu à dit:

Bonjour,
En PJ un essai avec :
- Un tri alpha, ce tri est 0..9A..Z

VB:

Sub RangeOngletsOrdreAlpha()
    Dim tablo(), N%, i%, F
    Application.ScreenUpdating = False
    ' Redimensionner array avec nbre de feuilles
    N = Sheets.Count - 1
    ReDim tablo(N): i = 0
    ' Ranger les noms de feuilles dans l'array
    For Each F In Worksheets
        tablo(i) = F.Name: i = i + 1
    Next F
    ' Trier array 0..9 A..Z
    For i = 0 To N
        For j = 0 To N
            If tablo(i) < tablo(j) Then
                ' Swap des données dans l'array
                buffer = tablo(i): tablo(i) = tablo(j): tablo(j) = buffer
            End If
        Next j
    Next i
    ' Déplacer chaque feuille à la fin
    For i = 0 To N: Sheets(tablo(i)).Move After:=ActiveWorkbook.Sheets(Sheets.Count): Next i
    ' Repositionne Onglets en premier
    Sheets("Onglets").Move before:=ActiveWorkbook.Sheets(1)
    Application.ScreenUpdating = True
End Sub

- Un tri suivant liste en colonne E avec :

Code:

Sub RangeOngletsSuivantListe()
    Application.ScreenUpdating = False
    Dim NomFeuille$, L%
    For L = 5 To Range("E65500").End(xlUp).Row
        NomFeuille = CStr(Sheets("Onglets").Cells(L, "E"))
        If WsExist(NomFeuille) Then
            Sheets(NomFeuille).Move After:=ActiveWorkbook.Sheets(Sheets.Count)
        End If
    Next L
    Sheets("Onglets").Activate
    Application.ScreenUpdating = True
End Sub

Cliquez pour agrandir...