Discussion :

[apt]

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.

[casefayere]

Bonsoir,
essayes comme ça

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
Sub tri_feuil()
Dim fl As Worksheet, x As Integer, y As Integer
Dim myMnth()
y = 3
myMnth = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")
 
For x = 0 To 11
  For Each fl In Worksheets
    If fl.Name <> "feuil1" Then'nom feuille non concernée
      If UCase(fl.Name) = UCase(myMnth(x)) Then
        fl.Move Before:=Sheets(y): y = y + 1
      End If
    End If
 Next fl
Next x
 
End Sub

[mercatog]

Une autre proposition

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
Sub TriFeuilles()
Dim i As Integer
 
For i = 12 To 1 Step -1
    If Existe(i) Then Worksheets(MonthName(i)).Move After:=Worksheets(1)
Next i
End Sub
 
Private Function Existe(ByVal i As Byte) As Boolean
Dim Sh As Worksheet
 
For Each Sh In ThisWorkbook.Worksheets
    If UCase(Sh.Name) = UCase(MonthName(i)) Then
        Existe = True
        Exit For
    End If
Next Sh
End Function

[casefayere]

Bonsoir mercatog,
Je souris souvent quand je vois tes propositions propres et faisant appel à des fonctions ou des formules rarement utilisées, dommage que je commence à avoir les neurones du souvenir qui commencent à me quitter.

Bonne soirée

[mercatog]

Bonsoir Dominique
Ta proposition est pour moi plus optimale du moment que tu utilises une seule boucle.

Pour l'histoire des neurones, je t'assure que ma courbe est déjà décroissante et ce forum est une occasion pour les faire travailler.

Mes amitiés.

[casefayere]

En reprenant la proposition de mercatog, ci-joint solution plus simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub tri_feuil()
Dim fl As Worksheet, x As Integer, y As Integer
y = 3
For x = 1 To 12
  For Each fl In Worksheets
    If UCase(fl.Name) = UCase(MonthName(x)) Then
      fl.Move Before:=Sheets(y): y = y + 1
    End If
 Next fl
 If y = Sheets.Count Then Exit For
Next x
 
End Sub

Bonne nuit à tou(te)s

[apt]

Bonjour casefeyer, mercatog

Merci pour toutes vos solutions.

Comme je suis à la quatrième feuille (Mois de Mars), j'ai limité le compteur de feuille au nombre existant, et je me suis passé de l'utilisation de la fonction Existe, parce que je l'utilise déjà pour en créer les feuilles au premier jour de chaque mois.


Voila le code :

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
Sub TriOnglets()
    Dim i As Integer, Cnt As Integer
    Dim Sh As Worksheet
 
    'Les feuilles sont créées selon le mois en cours
    'Alors la dernière feuille est "Mars"
    'Cnt = 4
    Cnt = Application.Min(12, Sheets.Count)
 
    For i = Cnt To 1 Step -1
        For Each Sh In ThisWorkbook.Worksheets
            If UCase(Sh.Name) = UCase(MonthName(i)) Then
                Worksheets(MonthName(i)).Move After:=Worksheets(1)
            End If
        Next Sh
    Next i
End Sub

[mercatog]

Code qu'on pourrait simplifier comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub TriOnglets()
Dim i As Integer, Cnt As Integer
Dim Sh As Worksheet
 
Application.ScreenUpdating = False
Cnt = Application.Min(12, Sheets.Count)
For i = Cnt To 1 Step -1
    For Each Sh In ThisWorkbook.Worksheets
        If UCase(Sh.Name) = UCase(MonthName(i)) Then Sh.Move After:=Worksheets(1)
    Next Sh
Next i
End Sub

[apt]

Merci mercatog