• Initiateur de la discussion Initiateur de la discussion Popi14
  • 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 !

Popi14

XLDnaute Junior
Bonjour à tous,

Je dispose dans une Userform de deux OptionButton.
J'aimerais lorsque je choisis l'option 1 , afficher l'item "Papa" dans ma comboxBox. Par contre, si je choisis l'option 2, j'aimerais afficher l'item "maman".

J'ai essayé le code ci-dessous mais il ne marche pas:

Private Sub ComboBox1_Click()

If OptionButton1 = True Then
ComboBox1.Clear
ComboBox1.AddItem "Papa"
End if

If OptionButton2 = True Then
ComboBox1.Clear
ComboBox1.AddItem "maman"
End if

End Sub


Je vous remercie d'avance pour votre aide,

Bonne fin de journée,

Laurent
 
Re : Combobox

Bonsoir,
Code:
Private Sub ComboBox1_DropButtonClick()
ComboBox1.Clear
If OptionButton1 = True Then
     ComboBox1.AddItem "Papa"
Else
     ComboBox1.AddItem "maman"
End If
End Sub
A activer par un clic sur la flèche du combo.

Cordialement
 
Re : Combobox

Bonjour Popi14, Spitnolan08,

Voici une autre solution :
Code:
Private Sub OptionButton1_Click()
    If OptionButton1.Value = True Then
        ComboBox1.Clear
        ComboBox1.AddItem "papa"
    End If
End Sub

Private Sub OptionButton2_Click()
    If OptionButton2.Value = True Then
        ComboBox1.Clear
        ComboBox1.AddItem "maman"
    End If
End Sub

Le problème avec l'événement "DropButtonClick" est qu'il se déclenche 2 fois : une fois lors du clic sur la flèche pour visualiser le contenu de la combo et une autre fois, lors de la sélection. Au final, pas de possibilité de visualiser l'élément sélectionné.
 
Re : Combobox

Bonjour à tous,

J'ai une dernière petite question. J'arrive à ajouter des items dans ma combobox grâce aux précèdentes explications.

Cependant, lorsque je clique sur un item de la liste avec la fléche de la combobox, celui-ci ne reste pas, ne s'affiche pas comme l'item que j'ai sélectionné pour ma combobox.

La combobox reste blanche. Je vois la liste des items dedans mais je n'arrive pas afficher l'item que j'ai sélectionné.

Je précise que ma combobox est dans ma Userform.

Pourriez-vous m'aider ?

Merci,

Laurent
 
Re : Combobox

Bonjour,

La combobox ne contient pas qu'une seule valeur.

Elle en contient plusieurs. L'explication de mon problème était plus simple à comprendre avec une seule valeur.

Je voudrais juste connaîte, savoir s'il existe une fonction du genre:

Combobox.value= Combobox.selectItem ou Listitem

car je ne sais pas comment faire. J'ai essayé mais le compilateur m'indique que ma ligne n'est pas bonne.

Je vous remercie pour vos précèdentes réponses.

Laurent
 
Re : Combobox

Bonjour,

Je viens de trouver. Si cela peut aider une personne, je vous transmets le code ci-dessous:

Private Sub ComboBox1_Click()
monindex = Me.ComboBox1.ListIndex 'récupération de l'index

If monindex = 0 Then
ComboBox1.Value = "le nom de mon item"
End If


End Sub


Bonne fin de journée à tous,

Laurent
 
- 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

Discussions similaires

Réponses
3
Affichages
568
Réponses
13
Affichages
493
Réponses
3
Affichages
449
Réponses
0
Affichages
519
Retour