remplacer un bouton

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

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 ;-)

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