Tri de dates dans un ComboBox

Version imprimable

Bonjour à tous,

Je suis a la recherche d'une solution afin de trier une combobox. J'ai bien essayé diverses méthodes trouvées sur le net mais je veux trier des dates et non pas des données.

Avez-vous une solution ?

La solution que j'ai testée et qui ne prend en compte que le jour de la date et non pas la date dans son intégralité...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 With Me.ComboBox2 For i = 0 To .ListCount - 1 For j = 0 To .ListCount - 1 If .List(i) < .List(j) Then strTemp = CDate(.List(i)) List(i) = CDate(.List(j)) .List(j) = strTemp End If Next j Next i End With
Merci d'avance a tous ceux qui voudrons bien tenter de m'apporter de l'aide.

Damien,

Bonjour,

Les valeurs contenues dans les ComboBox sont systématiquement des valeurs de type String donc, c'est dans la comparaison qu'il te faut transformer la valeur en date valide et non dans l'affectation des valeurs :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Dim I As Integer
Dim J As Integer
Dim strTemp As String
 
With Me.ComboBox2
 
    For I = 0 To .ListCount - 1: For J = 0 To .ListCount - 1
 
            If CDate(.List(I)) < CDate(.List(J)) Then
 
                strTemp = .List(I): .List(I) = .List(J): .List(J) = strTemp
 
             End If
 
        Next J, I
 
End With

16/09/2019, 10h31
hamon37

Merci énormément pour cette réponse rapide et efficace !!

Ça fonctionne parfaitement, je vais donc indiquer le sujet comme résolu ;)

Bonne journée