Filtrage de données listbox

Bonjour !


Je viens avec des bonnes nouvelles pour moi, j'ai réussi à faire ce que je voulais ! \o/

Je mets ici le code propre et commenté, si jamais ça peut servir à quelqu'un ! Il fonctionne mais si vous voyez une erreur de convention ou une méthode un peu aléatoire, merci de me le signaler !

Ce code permet donc de créer une listbox par rapport à une plage de données dynamique dans un premier temps, puis de lier les autres données de la ligne excel à laquelle appartient la donnée sélectionnée dans la listbox dans des labels.

Private Sub UserForm_Initialize()
'
'LISTE DÉROULANTE
'
'Déclaration des variables
Dim cell As Range
'On vide la liste
pdates.Clear
 
'Boucle sur les dates de prochaine visite
    For Each cell In Range("U2:U100")
        'Affichage de toutes les cellules <> 0 dans la liste déroulante
        If cell.Value <> "" Then
            pdates.AddItem cell.Value
            pdates.List(pdates.ListCount - 1, 1) = cell.Row
        End If
    Next
End Sub

Private Sub pdates_Click()
 
'Déclaration des variables
Dim IntCurrentRow As Variant
Dim NuLigne As Integer
 
'On lie chaque ligne de la listbox aux autres
'lignes correspondantes de la feuille de calcul
 
'Boucle
For IntCurrentRow = 0 To pdates.ListCount - 1
If pdates.Selected(IntCurrentRow) Then
NuLigne = IntCurrentRow
Exit For
End If
Next IntCurrentRow
 
'Affichage de l'entreprise dans le label correspondant
Nom_Entreprise.Caption = cells(pdates.List(pdates.ListIndex, 1), 2)
 
'Affichage de l'adresse dans le label correspondant
Adresse_Entreprise.Caption = cells(pdates.List(pdates.ListIndex, 1), 3) & "  " & vbCrLf & _
                             cells(pdates.List(pdates.ListIndex, 1), 4) & "  " & _
                             cells(pdates.List(pdates.ListIndex, 1), 5)
 
'Affichage des besoins dans le label
 
'On exclue de l'affichage les cellules vides ou contenant la valeur 0
'pour les p1
If cells(pdates.List(pdates.ListIndex, 1), 7) = "" _
Or cells(pdates.List(pdates.ListIndex, 1), 7) = 0 _
Then
    'pour les p2
    If cells(pdates.List(pdates.ListIndex, 1), 8) = "" _
    Or cells(pdates.List(pdates.ListIndex, 1), 8) = 0 _
    Then
        'pour les p3
        If cells(pdates.List(pdates.ListIndex, 1), 9) = "" _
        Or cells(pdates.List(pdates.ListIndex, 1), 9) = 0 _
        Then
            'pour les p4
            If cells(pdates.List(pdates.ListIndex, 1), 10) = "" _
            Or cells(pdates.List(pdates.ListIndex, 1), 10) = 0 _
            Then
                'pour les p5
                If cells(pdates.List(pdates.ListIndex, 1), 11) = "" _
                Or cells(pdates.List(pdates.ListIndex, 1), 11) = 0 _
                Then
                    besoins.Caption = "Aucun"
'On affiche les besoins <> 0 dans le label correspondant
                Else: besoins.Caption = cells(pdates.List(pdates.ListIndex, 1), 11) & "   " & "p5"
                End If
            Else: besoins.Caption = cells(pdates.List(pdates.ListIndex, 1), 10) & "   " & "p4" & vbCrLf & _
                                    cells(pdates.List(pdates.ListIndex, 1), 11) & "   " & "p5"
            End If
        Else: besoins.Caption = cells(pdates.List(pdates.ListIndex, 1), 9) & "   " & "p3" & vbCrLf & _
                                cells(pdates.List(pdates.ListIndex, 1), 10) & "   " & "p4" & vbCrLf & _
                                cells(pdates.List(pdates.ListIndex, 1), 11) & "   " & "p5"
        End If
    Else: besoins.Caption = cells(pdates.List(pdates.ListIndex, 1), 8) & "   " & "p2" & vbCrLf & _
                            cells(pdates.List(pdates.ListIndex, 1), 9) & "   " & "p3" & vbCrLf & _
                            cells(pdates.List(pdates.ListIndex, 1), 10) & "   " & "p4" & vbCrLf & _
                            cells(pdates.List(pdates.ListIndex, 1), 11) & "   " & "p5"
    End If
Else: besoins.Caption = cells(pdates.List(pdates.ListIndex, 1), 7) & "   " & "p1" & vbCrLf & _
                        cells(pdates.List(pdates.ListIndex, 1), 8) & "   " & "p2" & vbCrLf & _
                        cells(pdates.List(pdates.ListIndex, 1), 9) & "   " & "p3" & vbCrLf & _
                        cells(pdates.List(pdates.ListIndex, 1), 10) & "   " & "p4" & vbCrLf & _
                        cells(pdates.List(pdates.ListIndex, 1), 11) & "   " & "p5"
End If
 
 
End Sub

Avant de crier définitivement victoire, j'ai encore un petit contretemps, le dernier je pense. J'aimerais que les données de la listbox (ce sont des dates) soient triées par ordre croissant. Or, la propriété sorted n'existe malheureusement pas en vba d'après ce que j'ai compris, et je doute qu'un order by ne daigne fonctionner !  
Une idée, une piste ?


En tous les cas merci beaucoup pour ton aide précieuse et ta disponibilité zeb, si toi ou un autre peut m'éclairer sur ce dernier point je lui en serai gré !