[VB] Récupérer les données d'une combobox?

Bonjour,

Tu crées une userform et tu la nommes (ici, userform1)
Tu insères une zone pour l'image (ici, image1)
Tu insères une liste (ici, ComboBox1)

Dans la partie déclarations d'une feuille, tu insères

Private Sub UserForm_Initialize()

'Add list entries to combo box. The value of each
'entry matches the corresponding ListIndex value
'in the combo box.
ComboBox1.AddItem "Collines" 'ListIndex = 0
ComboBox1.AddItem "Coucher de soleil" 'ListIndex = 1
ComboBox1.AddItem "Hiver" 'ListIndex = 2
ComboBox1.AddItem "Nénuphars" 'ListIndex = 3

ComboBox1.BoundColumn = 0

ComboBox1.Left = 18 'position du coté gauche
ComboBox1.Top = 36 'position du haut
ComboBox1.Width = 90 'hauteur
ComboBox1.ListWidth = 90 'largeur

Image1.Left = 18
Image1.Top = 60
Image1.Height = 84
Image1.Width = 84

End Sub

Private Sub ComboBox1_Click()
Select Case ComboBox1.Value
Case 0
Image1.Picture = _
LoadPicture("C:\...") 'adresse de la première image

Case 1
Image1.Picture = _
LoadPicture("C:\...") 'adresse de la deuxième image

Case 2
Image1.Picture = _
LoadPicture("C:\...")

Case 3
Image1.Picture = _
LoadPicture("C:\...")

End Select

End Sub

Dis moi si ça marche

Coco

Merci de ta réponse.

Je viens d'essayer et je pense que le problème que j'ai vient de la version de VB que j'utilise. Je suis sous Microsoft Visual Basic 2008 Express, et j'ai peur que ma difficulté vienne des différences de langage entre les différentes versions.

Quand j'insère ton script, j'obtiens des erreurs. En plaçant ma souris dessus je vois pour la ligne
ComboBox1.AddItem("Collines") 'ListIndex = 0

Pour Combobox1.AddItem il m'affiche le message: 'AddItem' n'est pas un membre de 'System.Windows.Form.ComboBox'

Et j'ai le même message pour chaque ligne d'index.

De la même façon, insérer des images est différent et ne fonctionne pas avec le langage que tu me proposes.
J'ai un message d'erreur car sur ma version, il faut utiliser le script:

Dim Adresse As New Bitmap ("C:\...")
Image1.Image = Adresse

J'espère que j'arriverais à trouver l'équivalence car visiblement il ne comprend pas 'AddItem', ni 'BoundColumn', ni 'ListWidth', ni 'Value'...

AH mince, ma réponse ne valait que pour VBA
Fouille dans l'aide de VB

Désolé

Coco