XL 2019 Tri onglets en fonction du contenu d'une cellule VBA

fanch55 à dit:

Bonjour ( salut @cp4)
Si c'est pour trier les feuilles du classeur, le code ci-dessous devrait convenir :

VB:

Public Enum Sens
    xlAscending = 1
    xlDescending = 2
End Enum
Sub test()
    TriOnglets ' xlDescending
    With Sheets("Synthèse")
        .Move before:=Sheets(1)
        .Activate
    End With
End Sub
Public Sub TriOnglets(Optional Sens As Sens = xlAscending)
    For i = 1 To Sheets.Count
        For j = 1 To Sheets.Count - 1
            Select Case True
                Case Sens = xlAscending And UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name): Sheets(j).Move after:=Sheets(j + 1)
                Case Sens = xlDescending And UCase$(Sheets(j).Name) < UCase$(Sheets(j + 1).Name): Sheets(j).Move after:=Sheets(j + 1)
            End Select
        Next
    Next
End Sub

Sinon, si c'est pour "trier" les données des feuilles ,
il faudrait un peu plus d'explications et surtout de données .
Est-ce un tri réel à faire ou une extraction filtrée à mettre sur la feuille synthèse ?

Cliquez pour agrandir...

babie971 à dit:

Bonjour fanch55,

Merci pour ton aide,

C'est bien un tri de feuille que je souhaite, mais pas avec le nom des onglets, le tri doit se faire à partir d'une info située en G4 de chaque feuille.

Cliquez pour agrandir...

babie971 à dit:

Bonjour fanch55,

Merci pour ton aide,

C'est bien un tri de feuille que je souhaite, mais pas avec le nom des onglets, le tri doit se faire à partir d'une info située en G4 de chaque feuille.

Cliquez pour agrandir...

fanch55 à dit:

D'accord, mais on trie quoi ? la donnée qui se trouve en G4 n'est pas un critère de tri ... !!!

Regarde la pièce jointe 1169894

Cliquez pour agrandir...

cp4 à dit:

Bonjour @babie971 , @fanch55

VB:

Option Explicit
Option Compare Text

Sub TriparnomOnglets()   'tri par nom onglet en tenant compte de la présence de la feuille "Synthèse"
   Application.ScreenUpdating = False
   Dim ShCount As Integer, i As Integer, j As Integer
   ShCount = Sheets.Count
   Sheets("Synthèse").Visible = False
   For i = 1 To ShCount - 1
      If Sheets(i).Visible Then
         For j = i + 1 To ShCount
            If Sheets(j).Range("g4") < Sheets(i).Range("g4") Then
               Sheets(j).Move before:=Sheets(i)
            End If
         Next j
      End If
   Next i
   Sheets("Synthèse").Visible = True
End Sub

Bonne journée.

Cliquez pour agrandir...