[Toutes versions] Combobox et listbox

Combobox et listbox

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

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 :mouarf:
Bonne continuation

Code:

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

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