Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Tri et Formatage

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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,
 

Pièces jointes

Solution
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 :
VB:
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 <...
Reste juste à trouver :
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.
lol, je cherche 🙂
 
Bonjour Gérard,
Merci d'être encore là 🙂

Dans le fichier joint (#post16), je ne traite que la col J.
Je voudrais juste inclure dans ton code la notion :

c'est cette ligne de code que je ne sais pas modifier :
".Sort .Cells(1), xlTextAsNumbers, xlAscending, Header:=xlNo"
et ça fonctionnera nickel dans mon fichier de travail.
lionel,
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
254
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…