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 *************************************************************************************************************