Récupérer donnée de UserForm1.ComboBox dans Variable

pedrofabien1986

XLDnaute Nouveau
Bonjour,

Comme le titre l'indique, je voudrai récupérer les données se trouvant dans la ComboBox de mon UserFom1 dans une cellule.

Le problème est que ce ComboBox a été créé avec ce code :
Code:
' Code se trouvant dans Sub Userform_Activate()
Set CB1= UserForm1.Controls.Add("Forms.Combobox.1", "Liste")
        CB1.Top = 10
        CB1.Left = 100
        CB1.Width = 200

Dans cet UserFom, il y a un bouton qui va envoyer mon choix dans une cellule. Mais je n'arrive pas à récupérer cette donnée.

Voici les codes que j'ai utilisé
Code:
' Code se trouvant dans Sub CommandButton2_Click()

donn = UserForm1.Liste.Text
donn = UserForm1.Liste.Value
donn = UserForm1.CB1.Text
donn = UserForm1.CB1.Value

Et aucun de ceux-ci ne fonctionne.

J'ai fait beaucoup de recherche mais je n'arrive à rien.
Vous êtes mon seul espoir.
 

fhoest

XLDnaute Accro
Re : Récupérer donnée de UserForm1.ComboBox dans Variable

Bonjour
pour moi je pense que celui ci est bon
Code:
donn = UserForm1.CB1.Value
écrit :
Code:
msgbox  UserForm1.CB1.Value
pour voir si la valeur correspond a quelque chose
A+
 

Papou-net

XLDnaute Barbatruc
Re : Récupérer donnée de UserForm1.ComboBox dans Variable

Bonjour pedrofabien1986,

Tu peux modifier ton code comme ceci :

Code:
Private Sub CommandButton2_Click()
donn = UserForm1.Controls("Liste").Value
End Sub

Ou comme cela :

Code:
Public cb1 As Object

Private Sub CommandButton2_Click()
donn = UserForm1.cb1.Text
End Sub
Par contre, ta variable "donn" sera vide puisqu'il n'y a aucune dannée dans "cb1".

Espérant avoir répondu.

Cordialement.

Edit : bonjour CHALET53, fhoest
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
312 505
Messages
2 089 071
Membres
104 020
dernier inscrit
Mzghal