Sujet Précédent Sujet Suivant

Problème macro ordre des feuilles Excel par date

Fermé
safach - Modifié le 7 déc. 2019 à 12:32
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 - 7 déc. 2019 à 17:29
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

Réponse 1 / 5
danielc0 Messages postés 838 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 23 avril 2024 74
7 déc. 2019 à 12:57
Bonjour,

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

Cordialement.

Daniel
0
Réponse 2 / 5
danielc0 Messages postés 838 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 23 avril 2024 74
7 déc. 2019 à 13:04
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
Réponse 3 / 5
safach
7 déc. 2019 à 14:10
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 838 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 23 avril 2024 74
7 déc. 2019 à 15:18
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
Réponse 4 / 5
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 461
7 déc. 2019 à 14:48
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
Réponse 5 / 5
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
7 déc. 2019 à 17:29
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

Discussions similaires

liste de noms par ordre alphabétique
alma -
alma13 -

23 réponses