XL 2010 Trier sur dates, heures et textes

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,

Je bute sur un souci de tri.
Malgré mes recherches et tentatives, je n'y arrive pas.

J'ai des dates et heures ( 21.03.2017 20:00:00).
j'ai besoin de trier mes lignes (environ 20000) selon les dates et, par dates, selon les heures.
Voici le code :
Code:
Sub LignesSuivis70Trie()
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Application.Calculation = xlManual
   
    With Worksheets("Feuil1") 'Nom feuille à adapter au besoin
    With .Range("a7:az" & .Range("g65536").End(xlUp).Row)
        .Sort key1:=.Item(1, 1), order1:=xlAscending, Header:=xlNo
    End With
    End With
   
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    Application.Calculation = xlAutomatic
End Sub

je joins un fichier test avec les résultat attendu.
Un grand merci (une fois de plus) pour votre aide si précieuse.
Bon dimanche à toutes et à tous,
Amicalement,
Lionel,
 

Pièces jointes

Bonjour,

"curieux ton tableau"

Ce n'est qu'un fichier test qui n'est pas mon "gros" fichier de travail.
Je pense que Job75 voulait dire que le "10 mars" n'est pas à la bonne place : il devrait être en tête de tableau des résultats attendus.

Mais c'est probablement une faute d'inattention et je suppose qu'en réalité ce "10 mars" est un "21 mars". 😉


Est-ce que je deviens gâteux ou tu avais déjà ouvert un fil de discussion avec le même problème de tri que tu effectuais sur la première colonne au lieu de la colonne désirée ?
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
280
Réponses
7
Affichages
558
Réponses
1
Affichages
449
Retour