Valeurs dans une ComboBox

Bonjour à tous,

J'ai saisis dans mon Userform les valeurs prises en charge par un ComboBox.

Mais lorsque je lance la macro affectée à mon Userform, les valeurs n'apparaissent pas dans mon ComboBox.

Pourriez-vous me dire pourquoi les valeurs saisies n'apparaissent dans mon ComboBox, s'il vous plaît?

Merci d'avance pour votre aide.

PS. Vous trouverez ci-joint mon fichier, veuillez ouvrir Visual Basic pour afficher l'Userform

Bonne journée à tous.

Bonjour

pour le choix de la combobox mettre des OptionButton

a voir

Private Sub UserForm_Initialize()
    OptionButton1.Value = True
End Sub

Private Sub OptionButton1_Click()
    If OptionButton1.Value = True Then
        With ComboBox1
            .Clear
            .AddItem "Diesel/Gazole"
            .AddItem "Essence< 8 CV"
            .AddItem "Essence> 8 CV"
        End With
    End If
End Sub

Private Sub OptionButton2_Click()
    If OptionButton2.Value = True Then
        With ComboBox1
            .Clear
            .AddItem "Diesel/Gazole"
            .AddItem "Essence< 6 CV"
            .AddItem "Essence> 6 CV"
        End With
    End If
End Sub

A+

Maurice

Bonjour,

C'est à cause de la façon dont tu charges la liste, tu devrais charger la liste à nouveau quand tu coches une checkbox, ou la décoche, et non pas à l'initialisation du formulaire.

Je te retourne le fichier:

Bonjour @archer, @Ausecour,

Je vous remercie pour votre aide et pour vos explications.

Excellent, vos solutions correspondent à ce que je souhaitais faire.

Bonne journée!

De rien (bonjour archer au passage )

Merci à toi d'avoir passé le sujet en résolu

@Ausecour,

Désolé de revenir dessus mais j'ai oublié de vous poser une question.

J'ai constaté que lorsque je coche A alors B se décoche et réciproquement.

Pourriez-vous m'expliquer quelle ligne de code permet cela, s'il vous plaît?

Merci par avance pour votre aide.

Bien sûr

En fait dans le code du formulaire, j'ai rajouté ça :

Private Sub CheckBox3_Click()
CheckBox4 = (CheckBox3 <> True)
Call charger_liste(ActiveControl)
End Sub

Private Sub CheckBox4_Click()
CheckBox3 = (CheckBox4 <> True)
Call charger_liste(ActiveControl)
End Sub

qui fait que quand tu cliques sur une des checkbox, ça appelle son évènement Click, et la ligne : CheckBox4 = (CheckBox3 <> True), permet de renvoyer faux (décochée) si l'autre checkbox est cochée, et true (cochée) si l'autre textbox est décochée, j'ai trouvé ça plus court que de faire des If, comme on est dans un cas simple.

Bonjour @Ausecour,

Je vous remercie d'avoir pris le temps de détailler vos explications.

Je comprends beaucoup mieux votre code.

Bonne journée.

De rien

Bonne journée