Remplir une listbox à partir d'une combobox

Version imprimable

09/08/2016, 17h47
nicdodo

Remplir une listbox à partir d'une combobox

Bonjour,

Je viens vers vous car je n'arrive pas à comprendre une manipulation. Au préalable j'ai recherché sur différent forum, sur les cours de dévellopez.net mais excel refuse toutes mes requêtes. Quand je viens sur le forum c'est souvent en dernier recours, lorsque j'ai pas réussi à intégrer ou à bien comprendre la manipulation que je souhaite faire.

Concrètement, sur un feuille, j'ai une combobox qui comprend 2 items : "compensation" et match"
Sur la même feuille j'ai une listbox.

J'aimerais que lorsque je clique sur ma combobox et que je choisisse un des deux items la source d'affichage de ma listbox change.

Par exemple
si combobox="match" alors listbox.rowsource ="feuil1!B2;F1000"
si combobox="compensation" alors listbox.rowsource ="feuil1!H2;M1000"

J'ai essayé lisbox.list ; listbox.rowsource et d'autre mais rien n'y fait.

Un petit peu d'aide serai vraiment le bienvenue j'ai un projet à rendre pour jeudi, c'est pas indispensable mais ce serai top que cette petite option y soit.

Cordialament
09/08/2016, 18h34
Jean-Philippe André

Salut,

pourquoi utilises-tu un ; pour separer ta plage de cellule ? on utilise normalement les :
10/08/2016, 00h57
nicdodo

erreur de ma part

C'est lié à une erreur de ma part au moment d'écrire le message mais oui j'utilise : :). Je vais continuer à faire des essais en esperant que quelqu'un me mette sur la voie dans le cas ou je ne trouverai pas la solution

Cordialement

Bonjour,

Essayez ce code dans votre Userform :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub ComboBox1_Change()
 
        Select Case ComboBox1
               Case "match"
                    With ListBox1
                         .RowSource = Sheets("Feuil1").Range("B2:F1000").Address
                    End With
               Case "compensation"
                    With ListBox1
                         .RowSource = Sheets("Feuil1").Range("H2:M1000").Address
                    End With
        End Select
 
End Sub

Au lancement du Userform, penser à effacer la ListBox ou à affecter une valeur par défaut à la Combobox.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub LancerLeUserform()
 
    With UserForm1
 
        With .ComboBox1
             .AddItem "match"
             .AddItem "compensation"
        End With
 
        .ListBox1.RowSource = ""
 
        .Show
 
    End With
 
End Sub

Cordialement.

Bonjour
La syntaxe montrée dans le tout premier message de cette discussion est bonne (avec des ":" à la place des ";", bien sûr)
La rédaction du message l'est moins (tout au moins en matière de précision).

Citation:

...mais rien n'y fait ...

Je parierais que nicdodo a mis un "beau" 0 dans la propriété ColumnCount de la listbox .

EDIT :
Voici (exemple) comment je lui suggère de procéder :
Code:

1 2 3 4 5 6 7 8 9 10 select case comboBox1.text case "match" plage = "B2:F1000" case "compensation" plage = "H2:M1000" end select with listBox1 .rowSource = "feuil1!" & plage .columncount = range(plage).columns.count end with

17/02/2018, 15h29
chacooly

exo

Je veux que quand par exemple je choisi fruits dans un combobox, il s'affiche dans un listbox mangue, pomme, banane
Merci pour vos aides