msgbox pour combo

bonjour,
je voudrais creer une msgbox sur une commande bouton , pour sa pas de souci ,
mais le souci , je voudrais quand on clic sur le bouton pour executer le calcul et que la valeur dans la combo1 n'est pas renseigné,
une fenetre s'affiche pour indiquez l'oubli et demande de renseigné cette case sans bugger le programme vb6 ne peu executez une division par 0

JER35

Bonjour,

ta question se résumerait-elle, finalement, à savoir comment déterminer si un élément d'une combobox a été sélectionné ?

bonjour,
en resumé oui
mais en empechant de creer le calcul

jer35

1) aucun article n'a été sélectionné dans une combobox combo1 si :

Code:

---

Combo1.listindex < 0

---

(si aucun article n'est sélectionné, la propriété listindex retourne -1)
2) pour le reste : expression conditionnelle simple (exécution du calcul selon que listindex est oui ou non >= 0). Et (car cela parait être ta question) si pas d'article sélectionné ===>> ta msgbox et pas de calcul.

ok d'accord
mais comment le renvoyer a la combo


jer35

par un setfocus !

Exemple (volontairement pas le tien) et dans la mesure où existe une combobox nommée combo1

Ici, je fais (volontairement) un test sur une variable toto sans aucun rapport avec ta combo.
Si ce que je t'ai dit a été compris, tu auras compris que ta variable toto n'est autre que la propriété listindex de ta combo...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Command1_Click() Dim toto As Integer, titi As Integer titi = 2 toto = -1 ' change ce -1 en un nombre positif et voies la différence. If toto >= 0 Then titi = titi * 3 Else MsgBox "toto est plus petit que 0 !" Combo1.SetFocus End If MsgBox titi 'n'affichera 6 que si toto >=0, sinon pas de calcul et affichera donc 2 End Sub

---

bonjour

Code:

---

1 2 3 4 5 6

If Combo1.Index >= 0 Then 'ton calcul ici Else Combo1.SetFocus MsgBox "vous devez séléctionné quelquechose lol" End If

---

Bonjour,

Citation:

---

If Combo1.Index >= 0 Then...

---

Ne serait-ce pas plutôt

Code:

---

1 2	If Combo1.listindex >= 0 Then...

---

Je pourrais même ajouter ceci

Code:

---

1 2 3 4

If Combo1.Listindex >= 0 and val(Combo1.List(index)) <> 0 Then 'ton calcul ...

---

par sécurité

salut,
merci pour votre aide
sa marche comme je le voulais

jer35