Discussion :

[nicdodo]

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

[Jean-Philippe André]

Salut,

pourquoi utilises-tu un ; pour separer ta plage de cellule ? on utilise normalement les :

[nicdodo]

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

[Invité]

Bonjour,

Essayez ce code dans votre Userform :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[unparia]

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).

...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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[chacooly]

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