Classer nom de feuille alpha numérique inversé

Piboulet · 1 Août 2013

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 · 1 Août 2013

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

Bonjour,
Code à essayer :

VB:

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 · 1 Août 2013

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

Bonjour Piboulet,

avec ce code

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 · 1 Août 2013

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 !)

Classer nom de feuille alpha numérique inversé

Piboulet

XLDnaute Nouveau

Pièces jointes

Grand Chaman Excel

XLDnaute Impliqué

phlaurent55

Nous a quittés en 2020

Piboulet

XLDnaute Nouveau

Discussions similaires