Excel VBA - Comment alimenter une ListBox à partir d'un critère

Описание: Cette vidéo vous vous expliquer comment charger des données d'une Base de données dans un contrôle de type ListBox à partir d'un critère de filtre.

Code VBA :

Private Sub btnRegion_Click()

'Décalaration des variables
Dim Critere
Dim DerniereLigne As Integer, x As Integer

'Affectation des variables
Critere = Range("M4")
'On récupère la dernière ligne de la source de données
If Cells(Rows.Count, 1).End(xlUp).Row = 1 Then
DerniereLigne = 2
Else
DerniereLigne = Cells(Rows.Count, 1).End(xlUp).Row
End If
'On efface le contenu de la liste à chaque recherche.
lstRegion.Clear
lstRegion.BackColor = RGB(100, 100, 400)
'On parcours la source de données de la ligne à la dernière ligne
For x = 1 To DerniereLigne
'On teste le critère, ici le contenu de M4 avec la source de données.
If Cells(x, 5) = Critere Then
'On ecrit dans la listbox
Me.lstRegion.AddItem Cells(x, 1)
Me.lstRegion.List(Me.lstRegion.ListCount - 1, 1) = Cells(x, 2)
Me.lstRegion.List(Me.lstRegion.ListCount - 1, 2) = Cells(x, 3)
Me.lstRegion.List(Me.lstRegion.ListCount - 1, 3) = Cells(x, 4)
Me.lstRegion.List(Me.lstRegion.ListCount - 1, 4) = Cells(x, 5)
Me.lstRegion.List(Me.lstRegion.ListCount - 1, 5) = Cells(x, 6)
Me.lstRegion.List(Me.lstRegion.ListCount - 1, 6) = Cells(x, 7)
Me.lstRegion.List(Me.lstRegion.ListCount - 1, 7) = Cells(x, 8)
Me.lstRegion.List(Me.lstRegion.ListCount - 1, 8) = Cells(x, 9)
Me.lstRegion.List(Me.lstRegion.ListCount - 1, 9) = Cells(x, 10)
End If
Next x
End Sub

---------------------------------------------------------------------------------------------------------
Cliquez sur le lien ci-dessous pour télécharger le fichier source :

https://learnaccess.kneo.me/content/b...

---------------------------------------------------------------------------------------------------------

================================================
Consulter ma Boutique en ligne :
https://learnaccess.kneo.me/shop
================================================ *********************************************************************************************************
Utiliser mon lien de parrainage pour acheter un produit Tesla et obtenir des crédits gratuits :
kilomètres gratuits en Superchargeur
des vêtements et accessoires.

https://ts.la/jeanpaul673722
*************************************************************************************************************