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

  • Initiateur de la discussion Initiateur de la discussion pedrofabien1986
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

P

pedrofabien1986

Guest
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.
 
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+
 
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:
Re : Récupérer donnée de UserForm1.ComboBox dans Variable

Et un tout grand Merci à Papou-net ..

J'ai utilisé donn = UserForm1.Controls("Liste").Value et ça fonctionne parfaitement.

Merci beaucoup.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Retour