Discussion :

[hamon37]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[Theze]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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