Trier dans un ComboBox pour Rapport

Bonsoir à Tous,

gmb m'a donné un coup de main pour réaliser un rapport par date et de l'imprimer par la suite.

J'ai rajouté un combobox pour crée un rapport par utilisateur. Le rapport se déclenche en cliquant sur l'utilisateur.

Mais comme la colonne utilisateur est en colonne "D", les noms ne sont pas trier en ordre alphabétique dans le combobox.

Y a t'il un moyen que les noms soit trier dans le combobox ou que je puisse écrire le nom voulu dans le combobox avant que l'impression commence.

Mais le rapport doit rester trier à partir de la colonne "A" (DATE) après l'impression.

Je joins mon fichier.

Merci

Bonsoir,

Tu peux trier la liste avant de l'affecter au Combo :

Sub TriUsers(Temp)
    Dim i%, j%, u$
    For i = LBound(Temp) To UBound(Temp) - 1
        For j = i + 1 To UBound(Temp)
            If Temp(j) < Temp(i) Then
                u = Temp(j): Temp(j) = Temp(i): Temp(i) = u
            End If
        Next j
    Next i
End Sub

Et tu termines ton Initialize ainsi :

    Temp = dico.keys
    TriUsers Temp
    ComboBox_User.List = Temp
End Sub

NB- Si ton code était indenté, il serait nettement plus lisible !

Bonsoir MFerrand,

Votre solution fonctionne très bien.

Un GROS MERCI de m'avoir aidé.

Jean.