Classer nom de feuille alpha numérique inversé

[Piboulet]

Bonjour à tous, le Forum
J’ai déjà trouvé pas mal d’information sur le site pour classement des feuilles, mais je n’arrive pas à finaliser.
Mon classeur comporte 6 feuilles permanentes :
Accueil, Paramètres, Sites, Modèle, Monnaie métallique, Exploitation,
+ des feuilles de semaine S1 à S53, créées puis supprimées par l'utilisateur au fur et à mesure que l’année avance, avec présence d’une douzaine de semaine simultanément.
Mon problème , qui n’a peut être aucune solution:
Classer par macro les semaines à droite de la feuille Exploitation, mais dans l’ordre décroissant !, pour que l'utilisateur dispose de la semaine récente à proximité.
Fichier joint avec essai ......infructueux ! ! ! Merci.

 

[Grand Chaman Excel]

Re : Classer nom de feuille alpha numérique inversé

Bonjour,
Code à essayer :

Sub tri_inverse()
   Dim i As Integer
   On Error Resume Next
      For i = 1 To 53
         Sheets("S" & i).Move after:=Sheets("Exploitation")
      Next i
   On Error GoTo 0
End Sub

A+

 

[phlaurent55]

Re : Classer nom de feuille alpha numérique inversé

Bonjour Piboulet,

avec ce code

Sub Macro1()
On Error Resume Next
For i = 53 To 1 Step -1
    Sheets("S" & i).Move After:=Sheets(Sheets.Count)
Next i
End Sub

à+
Philippe

Edit: Bonjour Grand Chaman

 

[Piboulet]

Re : Classer nom de feuille alpha numérique inversé

Bonsoir Grand Chaman et phlaurent,
C'est super, tout est ok et cela fonctionne très bien sur la maquette.
Je l'adapte très bientôt en opérationnel.
Un grand merci pour cette prompte et efficace réponse. Bonne soirée (très chaude dans ma région !)