Bonjour,

Dans ce code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Private Sub champ2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Variable1=1
End Sub
Private Sub champ2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Variable2=1
End Sub
Private Sub champ3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Variable2=1
End Sub
comment faire apparaitre un message avec comme condition :
....???
If Variable1 > 0 and Variable2 > 0 and Variable3 > 0 Then
MsgBox "message"
End If
End Sub

Ou et comment dois je déclarer les 3 variables?
et quel serait le type de ce dernier sous programme?
Merci pour votre aide