ListBox Selected Item

[Marino]

Bonjour,

J'ai un souci, et je ne trouve d'aide nulle part.
Je pense que c'est pourtant très simple:
J'ai une feuille Excel : j'y insère une ListBox par Affichage>Barre d'outils>Formulaire>Zone de liste. En cliquant droit, dans format de contrôle je définis la plage de cellules qui va correspondre aux données de ma liste : admettons 'a', 'b', 'c'. Je change lenom de ma liste en haut à gauche de la feuille Excel.
Ensuite, j'affecte une macro à ma liste.
Je désire afficher dans une cellule la valeur sélectionnée dans la liste et PAS LE NUMERO DE LA LIGNE !!!
Mon code est le suivant :
Private Sub gg()
Dim x As Integer
For x = 0 To 4
If ListBox1.Selected(x) = True Then
Range('D4').Value = ListBox1.List.Selected
End If
Next
End Sub

 

[AeroPlanneur]

bonjour Marino,

tout simplement
If ListBox1.Selected(x) = True Then
Range('D4').Value = ListBox1
End If


cordialement

 

[Marino]

Mais voilà, je sais que c'est censé marcher ça,mais ça ne marche pas !!!!

Voilà exactement mon code :

Sub gg()

Dim x As Integer
For x = 0 To 4
If ListBox1.Selected(x) = True Then
Range('D4').Value = ListBox1
End If
Next

End Sub

Le code bug, on me surligne la ligne If... en me disant 'Objet requis'. J'ai l'impression qu'il ne voit pas à quoi correspond le ListBox1. Au niveau de la feuille Excel elle meme, j'ai mis le nom ListBox1 en haut à gauche de la feuille excell. Est ce suffisant ????
Je comprends pas pourquoi ça ne marche pas!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Merci pour votre aide,

Marino.

 

[AeroPlanneur]

Marino,

ton code devrait marcher, regarde ce lien


Il se peut néanmoins que tu doives préciser l'endroit où se trouve ta listbox, par exemple Feuil1.listbox1

cordialement