Discussion :

[Chicard]

Bonjour,

J'ai une combo dans un usf et cette combo doit être absolument pleine lorsque j'appuie sur "enregistrer".

J'aimerais que lorsque j'appuie sur mon bouton il mette un message d'erreur si ma combo est vide (ce qui ne devrais jamais arriver mais on n'est jamais trop prudent).

Merci

[Fvandermeulen]

Bonjour,
Je pense que ceci devrait suffire à court-circuiter l'action si la Combox est vide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If ComboBox1 = "" Then

Bonne continuation

[aalex_38]

Bonjour,

Tu peux tester aussi le nombre d'éléments dans la Combobox :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If ComboBox1.ListIndex = -1 then 
'...

[zandru]

Bonjour,

Ce que tu peux faire c'est empêcher l'utilisateur de cliquer sur le bouton enregistrer tant que la combo n'a pas été modifier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
private sub combobox_change()
    bouton.enabled=true
end sub

qui rend le bouton accessible dès que la combo est modifié.
et avec une initialisation du bouton à inactif au début :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
private sub userform_activate()
    bouton.enabled=false
end sub

(à adapter bien sur )

[Chicard]

En fait ma combo contient des éléments mais quand elle apparait elle est vide (ça c'est pas grave) en fait je veux afficher un message d'erreur si elle reste comme ça quand j'appuie sur mon bouton. Je cherche pas à la cout-circuiter au contarire je veux quelque m'avertisse que je n'ai rien rentrer avec un messagebox.

[zandru]

En fait ma combo contient des éléments mais quand elle apparait elle est vide (ça c'est pas grave) en fait je veux afficher un message d'erreur si elle reste comme ça quand j'appuie sur mon bouton. Je cherche pas à la cout-circuiter au contarire je veux quelque m'avertisse que je n'ai rien rentrer avec un messagebox.

La solution de Fvandermeulen et la mienne devrait le faire.

Pour avoir juste une msgbox, utilise la condition de Fvandermeulen :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If ComboBox1.value = "" Then
    msgbox "rien de selectionné"
    exit sub
endif

[Chicard]

Merci.

Je comprenais pas pourquoi mon msgbox marchait pas. J'avais mis un = entre msgbox et mon texte