Microsoft 365 Tri dates sur colonne - cellules formatées "29 03 2021 08:30"

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite une belle journée

Encore besoin de nos ténors vba
Je bute sur un tri.
Voici mon souci :
Je souhaite faire un tri pour afficher en 1ères lignes mes rappels selon les dates et heures de la Col "J" (date plus récente > date plus ancienne),
Si je fais mon tri sur la col "J" le tri est fait "DANS LE DESORDRE",

Pour afficher mes rappels dans le bon ordre, j'ai trouvé une solution :
J'ai ajouté dans la col "N" une formule et le tri est bien selon mon besoin,
Toutefois, ça alourdi mon fichier et j'aimerais pour faire le bon tri directement sur la col J sans avoir besoin d'ajouter des formules en col "J".

Malgré mes tentatives et recherches, je n'ai pas trouvé comment faire
Auriez-vous la solution ?
Je joins le fichier test et je continue mes recherches.
Mes remerciements à toutes et à tous,
Amicalement,
lionel,

 

[chris]

Bonjour

Normal la colonne J ne contient que des textes

Nième rappel sur ce forum : le format n'est que l'habit qui ne fait pas le moine, la donnée texte reste un texte en dépit de l'habillage date

 

[Usine à gaz]

Bonjour chris,
Merci pour ton retour,
Donc, je suis obligé de passer par la formule en col N ?
Sniff

 

[sylvanu]

Bonjour Lionel,
Ah la gestion des dates et heure sous XL, on pourrait écrire un bouquin.
Le seul moyen que j'ai trouvé est de remettre en forme la colonne J et de la mettre sous la forme
dd/mm/yyyy hh:mm sinon le tri ne va pas. Avec :

Sub MiseEnFormeDate()
    Dim tablo, L%
    For L = 4 To Range("J65500").End(xlUp).Row
        tablo = Split(Cells(L, "J"), " ")
        If UBound(tablo) > 2 Then
            If IsNumeric(tablo(2)) Then
                Cells(L, "J") = Format(CDate(tablo(0) & "/" & tablo(1) & "/" & tablo(2) & " " & tablo(3)), "dd/mm/yyyy hh:mm")
            End If
        End If
    Next L
End Sub

Et appel de cette macro dans vos deux macros de tri.
( Si on essaie de mettre en forme de type dd mm yyyy hh:mm ça ne marche pas alors que le contenu est bien le même puisque ça n'affecte que l'affichage. No capito. )

 

[fanch55]

Salut à tous,
Lionel, pas d'autre moyen que de reconvertir les valeurs de la colonne J en date .

edit: mince grillé par Sylvanu

 

[Usine à gaz]

Bonjour sylvanu
Merci pour t'être penché sur ma demande.
lol, je crois bien que je vais être obligé de garder ma formule
lionel,

 

[chris]

RE

Format donne du texte : pourquoi ne pas stocker la date/heure dans les cellules et formater la colonne ?

Le problème est en amont : comment est remplie cette colonne ?

 

[job75]

Bonjour Lionel, chris, sylvanu, fanch55,

Bien sûr il faut trier sur une colonne de vraies dates mais c'est à la macro de la créer :

Sub tri_rappelsJ()
With Feuil1 'CodeName
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    With .Rows("4:" & .Range("J65536").End(xlUp).Row)
        If .Row < 4 Then Exit Sub 'sécurité
        Application.ScreenUpdating = False
        .Columns(10).EntireColumn.Insert 'insère une colonne auxiliaire
        .Columns(10) = "=--(SUBSTITUTE(LEFT(TRIM(RC[1]),10),"" "",""/"")&RIGHT(TRIM(RC[1]),6))"
        .Columns(10) = .Columns(10).Value 'supprime les formules
        .Sort .Columns(10), xlAscending, Header:=xlNo
        .Columns(10).EntireColumn.Delete 'supprime la colonne auxiliaire
    End With
End With
End Sub

Nota : pour l'instant pas besoin des Application.EnableEvents = False/True.

A+

 

[Usine à gaz]

Bjr Gérard,
Une fois de plus (je ne les compte plus), merci, merci, merci c'est nickel, comme toujours,
Merci Gérard
Bonne fin de journée
lionel,