Remplacer un bouton

Messages postés
63
Date d'inscription
samedi 11 octobre 2003
Statut
Membre
Dernière intervention
30 janvier 2012
- - Dernière réponse : fredlynx
Messages postés
662
Date d'inscription
mercredi 16 janvier 2002
Statut
Modérateur
Dernière intervention
16 octobre 2010
- 16 avril 2004 à 23:59
voila, je vien de faire un programme où le calcul se déclenche sur l'appui d'un bouton, mais je voudrais maintenant que le calcul se fasse aprés que l'utilisateur ai chosi les valeurs des trois combobox.

je pensais mettre le code suivant :

if combobox1.selectedindex > -1 and combobox2.selectedindex > -1 and combobox3.selectedindex > -1 Then
..............


mais je ne sais pas ou le mettre et comment déclenché le calcul.

D'avance merci
Afficher la suite 

2 réponses

Messages postés
6063
Date d'inscription
dimanche 13 avril 2003
Statut
Modérateur
Dernière intervention
15 juillet 2011
23
0
Merci
Private Sub Combo1_Click()
If Combo2.Text = "" Then
Exit Sub
Else
calcul
End If
End Sub

Public Sub calcul()
Text1.Text = "Calcul"
End Sub

Private Sub Combo2_Click()
If Combo1.Text = "" Then
Exit Sub
Else
calcul
End If
End Sub

Private Sub Form_Load()
Combo1.Clear
Combo2.Clear
For i = 0 To 10
Combo1.AddItem i
Combo2.AddItem i
Next
End Sub

c'est un truc comme ca que tu veux?

il y a deux combo la troisieme est a rajouter ;-)
Messages postés
662
Date d'inscription
mercredi 16 janvier 2002
Statut
Modérateur
Dernière intervention
16 octobre 2010
0
Merci
Solution A

Private Sub Combo1_Click()
VerifCalcul
End Sub

Private Sub Combo2_Click()
VerifCalcul
End Sub

Private Sub Combo3_Click()
VerifCalcul
End Sub

private sub VerifCalcul()
if combobox1.selectedindex > -1 and combobox2.selectedindex > -1 and combobox3.selectedindex > -1 Then
'
' Ici tu fais ce que tu as a faire
'
end if
end sub

-----------------------------------------------------------
Solution B (Goupe de combo), la méthode utilisée ne tient pas compte du nombre de combo .... de 1 à n

Private Sub ComboX_Click(Index as integer)
Dim boucle as integer
for boucle=0 to ComboX.count-1
if comboX(boucle) < 0 then exit sub
next
'
' Ici tu fais ce que tu as a faire
'
End Sub