Bonjour
Je débute en VB et je rencontre un petit probleme.
Voila pour m'entrainer je crée des petites applications mais cette derniere me cause un petit soucis.

Je déclare 3 variables va1,val2,val3 auquel j'attribu une valeur quelconque grace a Rnd.Ensuite je veux que lorsque ces 3 valeurs sont identiques un message s'affiche, le probleme c'est que le message ne s'affiche pas lorsque ma condition est suffisante mais lorsque val3=0!
A quoi cela est du ??
Merci d'avance et bonne soirée

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Private Sub CommandButton1_Click()
 
Dim val1 As Integer
Dim val2 As Integer
Dim val3 As Integer
 
val1 = Rnd * 10
Label1.Caption = val1
 
val2 = Rnd * 10
Label2.Caption = val2
 
val3 = Rnd * 10
Label3.Caption = val3
 
If (val1 = val2 = val3) Then
MsgBox ("bonjour")
End If
 
End Sub