Discussion :

[dydou76]

Bonjours,

J'ai une liste de pays en combobox1 et quand je sélectionne un pays de cette liste, j'aimerai qu'un texte s'affiche dans la listbox1

ex: je sélectionne " France" (qui se trouve dans la colonne "A" de la feuille "Pays") et quand je valide, je voudrait que dans ma listebox1 s'affiche " Paris est la capital" (qui se trouve dans la feuille "Pays" de la colonne "B")

En espérant avoir été clair lol Merci d'avance pour votre aide.

Denis

[BENNASR]

bonjour
je crois que t'as pas besoin de listbox tant que le résultat est unique, à mon avis un textbox suffit
ttefois est si pour des raisons t'as besoin de listbox procède de cette façon
NB : je suis débutant et certe ce code nécessite bq d'amélioration
Bonne continuation

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
18
19
20
21
22
23
24
25
Dim plage As Range
Set plage = Sheets("Pays").Range("A1:A" & [A65536].End(xlUp).Row)
codrecherché = ComboBox1.Value
 i = 0
For Each Cell In plage
 If Cell.Value = codrecherché Then
    UserForm1.ListBox1.ColumnCount = 2
    UserForm1.ListBox1.ColumnWidths = "40;100"
    UserForm1.ListBox1.AddItem
    UserForm1.ListBox1.Column(0, i) = Cell.Address
    UserForm1.ListBox1.Column(1, i) = Cell(1, 2)
    i = i + 1
 End If
    Next Cell
End Sub
 
Private Sub UserForm_Initialize()
dernLigne = Sheets("Pays").Range("A" & Rows.Count).End(xlUp).Row
Dim i As Integer
dernLigne = Sheets("Pays").Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To dernLigne
  ComboBox1 = Sheets("Pays").Range("A" & i)
  If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Sheets("Pays").Range("A" & i)
Next i
End Sub

[unparia]

Bonjour
Une simple combobox à 2 colonnes liée à la plage concernée de la feuille Pays suffit.