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 :
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,
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,