Microsoft 365 Tri et Formatage

[Usine à gaz]

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

Je bute sur un souci de tri et de formatage de cellules.

Dans le fichier test joint,
En colonne "D" l'affichage de la cellule est :

13.10.2021 00:00

Mes cellules colonne "D" affichent les heures/mn sous la date mais le classement est dans l'ordre Descendant

En colonne "F" l'affichage de la cellule est :

13 10 21 00:00

Mes cellules colonne "F" classent bien dans l'ordre Ascendant mais affichent les heures/mn sur la même ligne que la date

ma question :
Pour garder le même formatage de colonne/cellules que la colonne "D"
j'ai besoin de trier en "Ascendant" et d'afficher les heures/mn sur la même ligne que la date ?

Auriez-vous la solution ?
Je continue mes recherches.

Avec mes remerciements,
Amicalement,
lionel,

 

[natorp]

Bjr Lionel

et avec ce format de cellules en colonne F ?

Cordialement, Gérard

 

[Usine à gaz]

Bonjour Gérard,
Merci pour le retour
Mais les cellules sont déjà formatées en "Renvoyer à la ligne automatiquement.
Mais je ne peux pas sélectionner "Ajuster".
Voir fichier joint,
lionel

 

[natorp]

Re
Il faut d'abord décocher "Renvoyer à la ligne automatiquement"
cocher "Ajuster"
et recocher "Renvoyer à la ligne automatiquement"

Cordialement, Gérard

 

[Usine à gaz]

Malheureusement ne fonctionne pas :

 

[job75]

Bonjour Lionel, natorp,

Voyez le fichier joint et cette macro :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Application.ScreenUpdating = False
With Range("D2:D" & Rows.Count)
    .NumberFormat = "dd/mm/yyyy" & vbLf & "hh:mm"
    .RowHeight = 15
    .WrapText = False
    For Each c In .Resize(UsedRange.Rows.Count)
        If IsNumeric(CStr(c.Value2)) Then
            c.RowHeight = 30
            c.WrapText = True
        End If
    Next
    .EntireColumn.AutoFit
    If .ColumnWidth < 10.71 Then .ColumnWidth = 10.71
End With
End Sub

La colonne D est dans un format contenant le renvoi à la ligne vbLf.

A+

 

[job75]

Il me semblait que If IsDate(c) Then n'allait pas, en fait ça marche, tu peux utiliser ce fichier (2).

 

[Usine à gaz]

Bonsoir Gérard,

Juste génial super extra lol
Il va vraiment falloir que j'invente des mots pour te dire merci !!!
Merci Gérard
lionel,

 

[natorp]

Bonjour
Rendons à César..... non à Job ce qui appartient à Job
Bravo à Job pour son aide toujours aussi efficace
Cordialement, Gérard

 

[Usine à gaz]

Bonsoir à toutes et à tous,
Je vous souhaite une bonne fin de journée

Bonsoir Gérard : Je reviens sur le fil car j'ai un souci.

Ton code fonctionne très bien en ce qui concerne la colonne D.
Pour tester, j'ai ajouté mes infos du fichier de travail en colonne "I" et .....
ça ne classe pas les date de 2022.
Je n'arrive pas à comprendre pourquoi ???
Est-ce que tu saurais ?

Je joins le fichier test et je continue à chercher ...
lionel

 

[job75]

Bonsoir Lionel,

C'est une très mauvaise idée d'utiliser 2 colonnes.

Car avec le tri il y aura des interférences pour les hauteurs des lignes des 2 tableaux.

Utilise donc la seule colonne D et cette macro qui diffère peu de celle du post #6 :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Application.ScreenUpdating = False
With Range("D2:D" & Rows.Count)
    .NumberFormat = "dd/mm/yyyy" & vbLf & "hh:mm"
    .RowHeight = 15
    .WrapText = False
    .Sort .Cells(1), xlAscending, Header:=xlNo 'tri croissant
    For Each c In .Resize(UsedRange.Rows.Count)
        If IsDate(c) Then
            c.RowHeight = 30
            c.WrapText = True
        End If
    Next
    .EntireColumn.AutoFit
    If .ColumnWidth < 10.71 Then .ColumnWidth = 10.71
End With
End Sub

A+

 

[Usine à gaz]

Bonsoir Gérard,
Merci 1 fois de plus.
C'est nickel,
Juste un truc, j'aurais souhaité le faire avec un code dans un module,
C'est obligatoire avec le code dans la feuille ?
Encore merci
lionel,

 

[job75]

C'est obligatoire avec le code dans la feuille ?

Non le code peut être dans un module standard et s'appliquera à la feuille active.

Donc remplacer UsedRange par ActiveSheet.UsedRange

 

[Usine à gaz]

Merci Gérard,
Bonne fin de journée

 

[Usine à gaz]

Bon jour à toutes et à tous,
Je vous souhaite un bon WE

Merci encore à Gérard pour le code qui fonctionne nickel mais ... lol
Il me reste un souci indépendant du code.

Dans les dates à trier apparaissent de celle façon :
- Mon fichier de travail : 13.10.2021 00:00....... (col J du fichier)
- fichier test.......................: 13.10.2021 00:00:00 (Col D du fichier)
Le code
- classe bien sur Col D
- Ne classe pas dans l'ordre Ascendant sur Col J
J'ai un second souci mes MFC ne fonctionnent pas en Col. J

1 - Pour que le code classe bien la col. J, il convient d'y intégrer la notion
"Trier toutes les données ressemblant à des nombres comme des nombres = ce que je n'ai pas su faire jusqu'à maintenant.
Mais mon souci de MFC ne serait pas résolu.

Je joins le fichier test et je continue mes recherches.
Encore un p'tit peu besoin d'aide lol
lionel