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