[VBA]Déclaration de variables

Bonjour,

Dans ce code :

Code:

---

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

tu les déclares tes variables en dessous de

Code:

---

Option Compare Database

---

le type 'byte' serait suffisant
et ton test dans l'évènement AfterUpdate si c'est après une modif mais comme je vois que tu associe ca avec un mouseDown c'est peut être dans le MouveMove a toi de voir à quel moment tu veux déclencher ton test

Merci vodiem mais peux tu etre un peu plus complet ds ta réponse avec un exemple stp.
Mon message devrait apparaitre dès qu'un MouseDown est detecté sur l'un des 3 champs et que la condition est respectée.

ex:

Code:

---

1 2 3 4 5 6 7 8

Option Compare Database Dim Variable1, Variable2, Variable3 As Byte   Sub test() If (Variable1 > 0) And (Variable2 > 0) And (Variable3 > 0) Then MsgBox "message" End If End Sub

---

sur le module de ton form
puis:

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub champ2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Variable1=1 Call test End Sub   Private Sub champ3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Variable2=1 Call test End Sub

---

sur les événements

en initialisant par précaution les VariableN sur l'ouverture du form par exemple.

mais je ne vois pas l'utilité dans le MouseDown...
la succession de MouveDown déclanche ton message mais en visu t'as rien qui te dis que le MouseDown a été enfoncé?
parceque si c'est une un bouton bascule tu n'est pas obligé de faire ca comme ca...

merci !vodiem c'est exactement ce que je voulais :ave:
comment initialise tu les variables à l'ouverture du formulaire?

:lol:

sur l'événement 'sur ouverture' du formulaire:

Code:

---

1 2 3 4 5

Private Sub Form_Open(Cancel As Integer) Variable1 = 0 Variable2 = 0 Variable3 = 0 End Sub

---

impec et merci pour tout vodiem ;)