trier dans une feuille deux colonnes avec dans chaque Cellules date et heure

[zephir94]

Bonjour à tous je voudrais trier une feuille, en triant une colonne de référence qui comporte date et heure, sous le format :
06/09/2015 14:19
de la date et heure la plus ancienne en haut à la date et heure la plus récente en bas
j'ai donc écris :

Sub trions()


Feuil1.Select
zz = Feui1.Range("A65536").End(xlUp).Row
Feuil3.Range("A2" & ":N" & zz).Select
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
Feuil1.Select

End Sub

mais euh cela ne trie pas !
Merci à vous tous

 

[ivan27]

Re : trier dans une feuille une colonne avec dans chaque Cellules date et heure

Bonjour zéphir94, le forum,

As-tu essayé en changeant le nom de la feuille ?

Cdlt,

Ivan

 

[zephir94]

Re : trier dans une feuille une colonne avec dans chaque Cellules date et heure

J'ai un peu avancé je dois trier en fonction des dates et heures sur deux colonnes H2 et J2 la feuille.

Sub TriPerso()

    Range("A2:N29").Select
    
    Range("A2:N29").Sort Key1:=Range("H2"), Key2:=Range("J2"), order1:=xlDescending, Header:=xlGuess, _
         OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

End Sub

Merci Ivan pour le numéro de la feuille mais j'ai fabriqué un exemple et sur mon classeur la feuille est la 3 et sur celui d'exemple c'est la feuille1

 

[zephir94]

Re : trier dans une feuille une colonne avec dans chaque Cellules date et heure

Bon j'ai modifié mais j'ai encore en colonne H un désordre sur les dates car le 30/08 est avant le 24/08 !

Sub Classer()
    Feuil1.Range("A2:N29").Sort Key1:=Feuil1.Range("H2") _
          , Order1:=xlDescending, Key2:=Feuil1.Range("J2"), Order2:=xlDescending, Header:=xlYes
  
End Sub

 

[zephir94]

Re : trier dans une feuille une colonne avec dans chaque Cellules date et heure

J'avance, j'avance

Sub Classer()
    Feuil1.Range("A2:N29").Sort Key1:=Feuil1.Range("H2") _
          , Order1:=xlAscending, Key2:=Feuil1.Range("J2"), Order2:=xlAscending, Header:=xlGuess, _
         OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
         DataOption1:=xlSortNormal
End Sub

 

[zephir94]

Re : trier dans une feuille une colonne avec dans chaque Cellules date et heure

Bon et bien c'est bon tout est trié
Bonne soirée à vous tous