Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA, lier une ComboBox à une ListBox

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
K

kennedy

XLDnaute Junior
Bonjour à tous !

Voilà comme l'indique le titre de mon post, je souhaiterais lier une selection faite dans une combobox avec une liste d'item lui correspondant. Du style: La combobox contient une catégorie de produits, et la listbox contient la sous-catégorie.

Voilà ce que j'ai commencé à faire... Mais ça marche pas trop. ça va chercher des données, mais ce ne sont pas les bonnes...

En gros dans la combobox, se trouve des éléments se trouvant dans la colonne A d'un fichier excel, et dans la listbox, il doit apparaitre des éléments se trouvants dans la colonne C...

Voilà mon bout de code, si quelqu'un voit une erreur s'il vous plait? Mes sous catégories sont fausses au moment de la selection de la catégorie via la combobox.


Code: 
Private Sub Userform_Activate()
..........................
..........................
..........................
 'Récupère les données de la colonne A...
 For j = 1 To Range("A65536").End(xlUp).Row
        ComboBox3 = Range("A" & j)
        '...et filtre les doublons
        If ComboBox3.ListInde x = -1 Then ComboBox3.AddItem Range("A" & j)
    Next j
End sub


Private Sub ComboBox3_Change()
Dim j As Integer

    
    Me.ListSources.Clear
        
        For j = 1 To Range("C65536").End(xlUp).Row
            If Cells(j, 1) = ComboBox3.Value Then
                Workbooks("TablesCesarv1.0.xls").Activate
                Worksheets("Sheet1").Activate
                Me.ListSources.AddItem Range("C" & j).Value
            End If
        Next j
        
End Sub

Merci d'avance 🙂! Bonne journée
 
Trier par date Trier par votes
Re : VBA, lier une ComboBox à une ListBox

Salut kennedy,
Peut être comme ceci mais non testé . . .
Bruno
Code: 
 Me.ListSources.Clear
        
        For j = 1 To Range("C65536").End(xlUp).Row
            If Cells(j, 1) = ComboBox3.Value Then
Me.ListSources.AddItem Workbooks("TablesCesarv1.0.xls").sheets("Sheet1").cells(j,3).value
            End If
        Next j
 
Vote positif 0 Vote négatif
Re : VBA, lier une ComboBox à une ListBox

Bonjour Kennedy, bonjour le forum,

Dans l'exposé tu dis que les données qui alimentent la ComboBox sont la la colonne A et celles de la ListBox dan sla colonne C et dans le code tu actives un autre classeur... Tes données sont-elles dans deux classeurs différents ?

Pour vérifier ton code il va nous falloir recréer son environnement... Userform, Combo, Listbox, données etc... Je pense que si tu veux une réponse rapide tu devrais nous envoyer soit ton fichier (s'il n'est pas trop lourd) ou un fichier exemple basé sur ton fichier avec juste une poignée de données.

[Édition] Bonjour Youky on s'est croisé
 
Vote positif 0 Vote négatif
Re : VBA, lier une ComboBox à une ListBox

Bonjour, je me permet de revenir sur ce post.

Comment procéder si ma listbox, est une listbox multicolonne à deux colonnes?.
J'ai essayer:

Code: 
Me.ListSources.AddItem Workbooks("TablesCesarv1.0.xls").sheets("Sheet1").cells(j, 3) & cells(j  4).value

Mais ça ajoute les 2 éléments que je veux avoir séparément dans la même colonne de la listbox... Quelqu'un aurait une solution s'il vous plait? 🙂

Bonne journée.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : VBA, lier une ComboBox à une ListBox

J'ai essayer:

Code: 
Me.ListSources.Column(1).AddItem Workbooks("Correspondance vFinal 2.3.xls").Sheets("infos").Cells(j, 36)
Me.ListSources.Column(2).AddItem Workbooks("Correspondance vFinal 2.3.xls").Sheets("infos").Cells(j, 37)

Mais ça ne marche pas non plus. La pour le coup j'ai une erreur:

" Erreur d'exécution '381'

Impossible de lire la propriété Column. Index de table de propriétés non valide."
 
Vote positif 0 Vote négatif
Re : VBA, lier une ComboBox à une ListBox

Bonsoir,
comme ceci.
J'ai mis une variable k (à voir si à déclarer)
Sinon à la place de k tu peux mettre . . .Me.ListSources.listcount-1
Code: 
k=k+1
Me.ListSources.List(k,1)= Workbooks("Correspondance vFinal 2.3.xls").Sheets("infos").Cells(j, 36)
Me.ListSources.List(k,2)= Workbooks("Correspondance vFinal 2.3.xls").Sheets("infos").Cells(j, 37)

Bruno
 
Dernière édition:
Vote positif 0 Vote négatif
Re : VBA, lier une ComboBox à une ListBox

Salut, merci de te pencher encore une fois sur mon problème.🙂

Par contre ça ne marche pas chez moi? J'ai l'erreur "381":

"Impossible de définir la propriété List. Index de table de propriéés non valide"

il a pas l'air d'aimer le "List(k,1)"
 
Vote positif 0 Vote négatif
Re : VBA, lier une ComboBox à une ListBox

Exact:
Autant pour moi, j'ai oublié le -1 donc mets k-1
Si tu as que 2 colonnes cette ligne suffit.
Bruno
Code: 
k=k+1
Me.ListSources.List(k-1,1)= Workbooks("Correspondance vFinal 2.3.xls").Sheets("infos").Cells(j, 36)
 
Vote positif 0 Vote négatif
Re : VBA, lier une ComboBox à une ListBox

Je dois mal faire quelque chose? :x J'ai toujours la même erreur qui s'affiche sur mon écran.

"Impossible de définir la propriété List. Index de table de propriéés non valide"
Je ne comprend pas trop ^^

Le bout de code du début du post a légèrement changé. :
Code: 
Private Sub Userform_Activate()
..........................
..........................
..........................
 Workbooks("Correspondance vFinal 2.3.xls").Activate
Worksheets("infos").Activate
            Range("AI2:AK65536").Sort Key1:=Range("AI2"), Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortNormal
    'Récupère les données de la colonne A...
    For j = 1 To Range("AI65536").End(xlUp).Row
        ComboBox3 = Range("AI" & j)
        '...et filtre les doublons
        If ComboBox3.ListIndex = -1 Then ComboBox3.AddItem Range("AI" & j)
    Next j

End sub


Private Sub ComboBox3_Change()                          'Lie la ComboBox avec la Listbox sur l'onglet 1. ("Fenêtre de contrôle")
Dim k, j As Integer

     Me.ListSources.Clear
        
        For j = 1 To Range("AJ65536").End(xlUp).Row
            If Cells(j, 35) = ComboBox3.Value Or (Val(ComboBox3.Value) = Cells(j, 35) And Val(ComboBox3.Value) = ComboBox3.Value) Then
                                [B]k = k + 1
                Me.ListSources.List(k - 1, 1) = Workbooks("Correspondance vFinal 2.3.xls").Sheets("infos").Cells(j, 36)[/B]           
           End If
        Next j
    
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : VBA, lier une ComboBox à une ListBox

Bonsoir,
Désolé du retard j'étais absent.
Bruno
Edit: en rouge ce qui manquait, revoir le nom du fichier et la sheets
Code: 
Private Sub ComboBox3_Change()                          'Lie la ComboBox avec la Listbox sur l'onglet 1. ("Fenêtre de contrôle")
Dim k, j As Integer
     Me.ListSources.Clear
        
        For j = 1 To Range("AJ65536").End(xlUp).Row
            If Cells(j, 35) = ComboBox3.Value Or (Val(ComboBox3.Value) = Cells(j, 35) And Val(ComboBox3.Value) = ComboBox3.Value) Then
[COLOR="Red"]Me.ListSources.AddItem Workbooks("TablesCesarv1.0.xls").sheets("Sheet1").cells(j, 3) & cells(j  4).value[/COLOR] 
  k = k + 1
Me.ListSources.List(k - 1, 1) = Workbooks("Correspondance vFinal 2.3.xls").Sheets("infos").Cells(j, 36)           
           End If
        Next j
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 selectionner cellule via un combobox
Réponses
3
Affichages
197
job75
J
  • Question Question
Microsoft 365 Userform comboboxes indexés
Réponses
8
Affichages
235
jp26200
J
D
  • Résolu(e)
XL 2021 Combobox vide
Réponses
9
Affichages
202
Did25
D
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
897
Dranreb
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
518
tnion
T
N
  • Question Question
Listbox click
Réponses
10
Affichages
285
ChTi160
J
  • Résolu(e)
XL 2021 Filtre combobox
Réponses
5
Affichages
186
Dranreb
  • Résolu(e)
XL 2016 problème au niveau d'un contrôle dans VBA
Réponses
2
Affichages
206
chinel
  • Question Question
XL 2016 Filtrer plage via le contrôle ActiveX : combobox
Réponses
7
Affichages
279
KTM
S
  • Question Question
XL 2019 Remplir une combobox avec une ligne
2
Réponses
17
Affichages
1 K
fanch55
A
  • Résolu(e)
XL 2019 Remplacer un mot et ajouter une couleur
Réponses
7
Affichages
344
Attila451
A
E
  • Résolu(e)
Microsoft 365 Combobox ajouter si n'existe pas dans Liste
2 3 4
Réponses
47
Affichages
2 K
cathodique
E
  • Résolu(e)
XL 2019 transfer listbox vers une colonne à partir de la 4 ligne
Réponses
2
Affichages
237
escudo
E
  • Question Question
XL 2013 Sub commentaire
Réponses
2
Affichages
157
lestoiles1
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
475
Phil69970
E
  • Résolu(e)
XL 2019 combobox intuitive
Réponses
14
Affichages
365
escudo
E
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
181
un internaute
U
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
117
patricktoulon
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
145
sylvanu
G
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
652
GClaire
G
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…