Bonsoir à tous,

J'aimerais trier des onglets d'une feuille selon les noms des mois de l'année.

Mais je cherche encore une idée.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub SortTabs()
    Dim lp As Integer, counter As Integer
    Dim myMnth()
 
    myMnth = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")
    'On ne prend pas la première feuille
    For lp = 2 To Sheets.Count
        If Sheets(lp).Visible = True Then
            For counter = 12 To (lp - 1)
                If Sheets(counter).Visible = True Then
                    If (UCase(Sheets(lp).Name) < UCase(Sheets(counter).Name)) Then
                        Sheets(lp).Move Before:=Sheets(counter)
                        Exit For
                    End If
                End If
            Next counter
        End If
    Next lp
 
End Sub
Merci.