Trie par date et heure avec VBA

[NICOALBERT]

Bonsoir le Forum,

J'ai un fichier avec des dates et heure dans 2 colonnes différentes et je cherche à les trier du 31/12 au 01/01 et la même chose pour les heures

exemple :
31/12/2016 03h00
31/12/2016 02h00
31/12/2016 01h00
.........
01/01/2016 03h00
01/01/2016 02h00

le mieux serait en VBA car j'ai plusieurs fichiers sur plusieurs année

J'ai bien tenté de le faire avec le filtre mais ça mélange tout 😡

Cdlt Nicoalbert

 

[NICOALBERT]

Bonsoir le forum ,

Je vient de résoudre mon problème en modifiant la forme de la date de 01/01/2016 je suis passé en 01-01-2016 et puis en 1 janvier 2016et après mon trie je suis repassé en format 01/01/2016.

Cdlt Nicoalbert

 

[ChTi160]

Bonsoir Nicoalbert
une approche

Sub Test()
    With Feuil1
       With .Range("A1").CurrentRegion
            .Columns(4) = Application.Substitute(.Columns(4), "h", ":")
            .Sort Cells(1, 3), xlAscending, Cells(1, 4), , xlAscending, , , xlGuess
       End With
    End With
End Sub

bonne fin de Soirée
Amicalement
Jean Marie

 

[JHA]

Bonjour le forum,
Bonjour Jean-Marie,

j'ai essayé de modifier ton code pour associer la date et l'heure mais il y a toujours une erreur sur le trie, peux tu m'éclairer?

Sub Test()
    With Feuil2
       With .Range("A1").CurrentRegion
            .Columns(16) = Application.Substitute(.Columns(4), "h", ":")
            .Columns(15) = "=RC[-12]+RC[+1]"
            .Sort Cells(1, 15), xlAscending
            .Columns(15).Select
            Selection.ClearContents
            .Columns(16).Select
            Selection.ClearContents
       End With
    End With
End Sub

JHA

 

[ChTi160]

Bonjour JHA
Bonjour le fil,Le Forum

voir post suivant

Amicalement
Jean Marie[/Code]

 

[ChTi160]

re
peut être comme ceci
le problème vient je pense du fait que les Colonnes 15 et 16 dans ton exemple ne sont pas prises en compte lors de la détermination de la Plage de référence ".Range("A1").CurrentRegion" elle ne comprends pas les Colonnes rajoutées ensuite !
voir avec ce code :

Sub Test()
    With Feuil2
       With .Range("A1").CurrentRegion
            .Columns(16) = Application.Substitute(.Columns(4), "h", ":")
            .Columns(15) = "=RC[-12]+RC[+1]"
        End With    
        With.Range("A1").CurrentRegion
                 .Sort Cells(1, 15), xlAscending
            .Columns(15).Select
            Selection.ClearContents
            .Columns(16).Select
            Selection.ClearContents
        End With
    End With
End Sub[/VB]
à tester !
Bonne fin de Journée
Amicalement
Jean marie

 

[JHA]

Bonjour Jean-marie,

Merci pour le code, le tri me parait correct et on garde le format d'origine de la colonne "D"

JHA

 

[ChTi160]

Re
Si le problème c'est le format des heures tu aurais pu remettre les heures au format initial

Sub Test()
   With Feuil1
       With .Range("A1").CurrentRegion
            .Columns(4) = Application.Substitute(.Columns(4), "h", ":")
            .Sort Cells(1, 3), xlAscending, Cells(1, 4), , xlAscending, , , xlGuess
            .Columns(4) = Application.Substitute(.Columns(4), ":";"h")
       End With
   End With
End Sub[/vb]
Bonne fin de Soirée
Amicalement
Jean marie

 

[JHA]

Bonsoir à tous,
Bonsoir Jean-Marie,

Je pense que le tri n'est pas correct si on ne met pas la date et l'heure ensemble, c'est pour cela que j'ai mis la date et l'heure dans une autre colonne.

JHA