Discussion :

[babylone_59]

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

[ucfoutu]

Bonsoir,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If val1 = val2 And val2 = val3 then
  msgbox "à bucher : opérateur AND"
end if

[Delbeke]

Ton expression

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If (val1 = val2 = val3) Then

Est comprise par vb comme si tu avais ecrit ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Val1 = (Val2 = Val3) ' Val1 vaudra true ou false
If val1 = true  Then

[decondelite]

C'est plutôt ça que comprend VB.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
if ((val1=val2)=val3) then
msgbox "Val1 et val2 sont différents et val3 est nul, ou val1 et val2 sont égaux et val3 vaut 1."
end if

Ce qui explique pourquoi ça ne marche que quand val3 vaut 0, puisque val1 et val2 sont quasiment à coup sûr différents.

[babylone_59]

Ok bien entendu. Merci pour vos réponses claires et rapides.
Par contre j'ai un deuxieme petit soucis, j'arrive a ouvrir mon projet mais pas a l'executer. VB d'excel m'ecrit que les macros pour ce projet sont désactivées et qu'il faut les activer.

[decondelite]

C'est très simple.

Tu vas dans Outils->Options, puis dans l'onglet "Sécurité", tu cliques sur le bouton "Sécurité des macros", tu règles le niveau de sécurité sur "Niveau de sécurité faible (non recommandé)", et là ça marchera.