Bonjour a tous,
Quelqu’un aurait-il l’amabilite de m’expliquer pourquoi mon code ne s’arrete pas lorsque la variable C n’est plus egale a 97 ?
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
22
23
24
25
26
27
28
29
30
31 Sub DebugAssert_Help2() Dim a As Boolean, b As Boolean, c As Integer a = True b = True c = 97 Debug.Assert c = 97 If a And b Then a = False c = c + 1 Else a = True c = c - 1 End If If Not (a And b) Then b = True c = c + 1 Else c = c - 1 End If Debug.Print c End Sub
Partager