userform

[florent]

bonjour,

novice en vba et userforme, je sollicite votre aide.
Je cherche à partir d'un choix dans une combobox ( valeur situer en A1 à A4) afficher la valeur correspondante ( B1 à B4 )dans une listbox ou une textbox.
pour essayer d'être plus clair

dans la combox > valeur A1 automatiquement s'inscrit la valeur B1 dans la textbox ou la listbox

Merci de votre aide

florent

ci joint mon fichier

 

[LaurentTBT]

Salut Florent, bonsoir le forum.

Pour un textbox:

Private Sub ComboBox1_Change()
TextBox1 = Range("B1").Cells(ComboBox1.ListIndex + 1, 1)
End Sub

Pour un list box, il faut d'abord que la liste (B1 à B4) ait été chargée à un moment, par exemple ainsi:
Private Sub UserForm_Initialize()
For i = 1 To 4
ListBox1.AddItem Range("B1").Cells(i, 1)
Next i
End Sub
pour pouvoir ensuite afficher l'élément de la liste, et dans ce cas,
Listbox1.listindex=Conmobox1.listindex devrait marcher

Bonsoir.
Laurent.

 

[florent]

bonsoir laurent,

merci ça marche du feu de dieu

salut à tous

Florent