Discussion :

[jer35]

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

[ucfoutu]

Bonjour,

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

[jer35]

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

jer35

[ucfoutu]

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

Code :

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

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.

[jer35]

ok d'accord
mais comment le renvoyer a la combo


jer35

[ucfoutu]

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 :

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

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

[real_achilles]

bonjour

Code :

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

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

[iclic]

Bonjour,

If Combo1.Index >= 0 Then...

Ne serait-ce pas plutôt

Code :

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

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

Je pourrais même ajouter ceci

Code :

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

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

par sécurité

[jer35]

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

jer35