VBA - tri date dans l'ordre -suite

VBA
1

Bonjour,

J’avais déjà ouvert un sujet en mars sur ce titre; j’ai la réponse à mon problème que je partage :

Sub ConversionColonneAEnDatePuisTriAscendant()

ActiveWorkbook.Worksheets(« EXPORT INTER 1 »).Select

'convertir la date (sous le format texte) en vrai date pour le tri
Dim parcours As Range
Dim i As Range
Set parcours = Range(« A1 »)
While (parcours.Value <> «  »)
dateHeure = DateValue(parcours.Value) + TimeValue(parcours.Value)
parcours.Value = dateHeure
'MsgBox dateHeure
Set parcours = parcours.Offset(1, 0)
Wend

Set tout = Range(Range(« A1 »).EntireRow, parcours.Offset(-1, 0).EntireRow)
'tout.Select

ActiveWorkbook.Worksheets(« EXPORT INTER 1 »).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(« EXPORT INTER 1 »).Sort.SortFields.Add Key:=Range(« A1 »), SortOn:=xlSortOnValues, Order:=xlAscending

With ActiveWorkbook.Worksheets(« EXPORT INTER 1 »).Sort
.SetRange tout
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Voilà

2

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.