VBA Remplir une combobox de deux colonnes avec un nombre indéfini de lignes
Bonsoir le forum,
Je sais créer une combobox à deux colonnes et la remplir avec un nombre précis de lignes. J'ai mis dans les propriétés de le la combo ColumnCount à 2 et Rowsource à Biens!"A3:B5". Mais cela me limite à 3 lignes.
Cela fonctionne bien, mais mon problème est que cette liste de la combobox est extensible. Je rajoute régulièrement des lignes.
J'aurais souhaité remplir ma combobox double en vba et non en modifiant les propriétés de celle-ci. Et pouvoir ajouter des items à celle-ci.
Quelqu'un aurait-il une idée?
D'avance, Merci
Donpopo
Hello,
Tu peux faire comme ceci à l'ouverture de ton form
With Sheets("Biens")
Plage = .Range("A3:B" & .Range("B65536").End(xlUp).Row).Address
End With
ComboBox1.RowSource = "Biens!" & PlageR@g
Bonsoir R@G,
Merci, cela fonctionne très bien.
Une petite question: est-il possible, lorsque l'on sélectionne un élément de la liste, d'afficher les données des deux colonnes?
Merci.
Hello,
A tester :
msgbox Me.ComboBox1.Column(0)
msgbox Me.ComboBox1.Column(1)Mes excuses, je ne comprend pas bien. Je met ces messages où?
Comme tu ne donnes pas de fichier j'en ai aucune idée ...
Mais tu peux avoir un bouton sur ton formulaire, et tu peux insérer ces lignes dans le code du bouton
tu sélectionnes une ligne de ta combobox et tu appuies sur le bouton.
oui oui,
ok j'ai compris.
Difficile pour moi d'envoyer un fichier, car il est assez volumineux, et de plus, la question que je pose n'est qu'à l'état d'embryon.
Merci
Donpopo