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

Trie par date et heure avec VBA

Créer une discussion

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 !

S'inscrire
N

NICOALBERT

XLDnaute Occasionnel
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
 

Pièces jointes

Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
Bonsoir Nicoalbert
une approche
VB: 
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
 
Vote positif 0 Vote négatif
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?
Code: 
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
 
Dernière édition:
Vote positif 0 Vote négatif
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 :
VB: 
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
 
Vote positif 0 Vote négatif
Re
Si le problème c'est le format des heures tu aurais pu remettre les heures au format initial
VB: 
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

E
  • Résolu(e)
Microsoft 365 Filtre avancé et Critère de Date
Réponses
4
Affichages
82
eric72
E
  • Question Question
XL 2021 Afficher une date d'une colonne selon date du jour
Réponses
8
Affichages
460
BLACKHAYES
  • Question Question
Microsoft 365 Calcul total horaire entre 1er jour et dernier jour de chaque mois
Réponses
5
Affichages
192
pompaero
E
  • Résolu(e)
Microsoft 365 Textbox heure minute vers tableau en décimal
Réponses
4
Affichages
257
eric72
E
E
  • Résolu(e)
Autres Doublon dans ComboBox et Trie
2 3
Réponses
35
Affichages
2 K
ChTi160
P
  • Résolu(e)
XL 2021 Requête API - VBA Excel - Parse JSON
Réponses
2
Affichages
248
picc
P
J
  • Question Question
XL 2016 Calcul nombre de jours réalisés sur une période
Réponses
2
Affichages
437
jcoillot
J
P
  • Résolu(e)
XL 2016 VBA Insérer une date dans le nom de fichiers PDF publipostés via WORD à partir d"excel
Réponses
3
Affichages
246
PHIL37
P
D
  • Question Question
Microsoft 365 TCD et format date
Réponses
7
Affichages
181
Cousinhub
S
  • Résolu(e)
Microsoft 365 Vba, Mise en forme d'un calendrier
Réponses
8
Affichages
663
SOP
S
L
  • Résolu(e)
Microsoft 365 Trie par Date & Heure
Réponses
8
Affichages
493
Le Rouky
L
P
  • Question Question
Microsoft 365 Calcul sur une date et heure : cellule erronée donne cellule correcte
Réponses
2
Affichages
127
Philippe Château
P
G
  • Question Question
Microsoft 365 Trier les noms par dates dans Excel : gérer les doublons pour des dates identiques
Réponses
6
Affichages
239
C'est papy Mougeot !
H
  • Question Question
Microsoft 365 Trier des données dans une colonne avec VBA
Réponses
9
Affichages
708
HUMANUM79
H
C
  • Résolu(e)
XL 2019 Recherchev avec même valeur
Réponses
5
Affichages
277
job75
S
  • Résolu(e)
XL 2021 Graphique TCD par date
2
Réponses
20
Affichages
397
Hecatonchire
H
D
  • Question Question
Microsoft 365 Code VBA pour date DD/MM/YYYY
Réponses
6
Affichages
305
Staple1600
O
  • Question Question
XL 2019 Code VBA pour automatiser la programmation des rotations des ouvriers qui travaillent à temps partiel et se relaient par période de temps constante.
2 3
Réponses
35
Affichages
2 K
olivier1984
O
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
B
  • Question Question
Microsoft 365 Faire ressortir toutes les données si un mois spécifique est compris entre deux dates
Réponses
9
Affichages
1 K
burbi
B
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…