Problème macro ordre des feuilles Excel par date

safach -  
Frenchie83 Messages postés 2240 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
j'ai un problème dans un classeur Excel qui renferme des feuilles nommées jj-mm-aa en ordre croissant
depuis un temps l'ordre des feuilles a été modifié au lieu d'avoir les feuilles ordonnées par date croissant exemple 02/09/19 03/09/19 04/09/2019 ...
ça devient 02/09/2019 02/10/2019 03/09/2019 03/10/2019 04/09/2019 04/10/2019 etc
c'est regroupé par jour
si quelqu'un pourra m'aider ça sera très gentil vraiment je n'ai pas pu connaitre la cause
merci beaucoup par avance
le lien vers le document
https://mon-partage.fr/f/foJ4Wmhh/
je suis disponible pour toute autre clarification
merci encore les amis
bien cordialement



Configuration: Windows / Chrome 78.0.3904.108
A voir également:

5 réponses

danielc0 Messages postés 1858 Date d'inscription   Statut Membre Dernière intervention   231
 
Bonjour,

A quel niveau est-ce que tu modifies l'ordre des feuilles ?

Cordialement.

Daniel
0
danielc0 Messages postés 1858 Date d'inscription   Statut Membre Dernière intervention   231
 
Tu tries les feuilles sur le nom des onglets donc d'abord sur les jours, puis les mois, puis les années. Il faudrait que les noms feuilles soient au format aa-mm-jj. Sinon, ça va compliquer le code. Qu'est-ce que tu souhaites ?

Daniel
0
safach
 
Bonjour Daniel
merci de votre réponse
je veux que les feuilles soient par ordre de date croissante mois par mois (exemple mois septembre puis novembre puis decembre etcet pas regroupé par jour comme maintenant j'ai pas de grande connaissance la dessus ,ce désordre est récent
les feuilles sont en fait au format jj-mm-aa
merci encore
cordialement
0
danielc0 Messages postés 1858 Date d'inscription   Statut Membre Dernière intervention   231
 
J'ai rectifié l'ordre des feuilles. Pas sûr que ça n'aie pas cassé autre chose par ailleurs. Teste :

https://mon-partage.fr/f/zeXsY0M0/

Daniel
0
JCB40 Messages postés 3013 Date d'inscription   Statut Membre Dernière intervention   463
 
Bonjour

Un exemple de ton fichier
avec une macro
il faut que tes onglets soient au format date aa-mm-jj
https://www.cjoint.com/c/ILhnWpIvph6
j'ai commencé à renommer quelques onglets
Crdlt
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Frenchie83 Messages postés 2240 Date d'inscription   Statut Membre Dernière intervention   338
 
Bonjour,

Autre exemple sans renommer les onglets
Sub Classement_feuilles()
    Application.ScreenUpdating = False
    NbSh = ActiveWorkbook.Sheets.Count
    For i = 1 To NbSh
        If Sheets(i).Name = "MODELE" Then Exit For
        For j = 2 To NbSh
            If Sheets(j).Name = "MODELE" Then Exit For
            If CDate(Format(Sheets(j).Name, "d/m/yy")) * 1 < CDate(Format(Sheets(j - 1).Name, "d/m/yy")) * 1 Then Sheets(j).Move before:=Sheets(j - 1)
        Next j
    Next i
End Sub


Cdlt
0