Probleme avec Debug.Assert

Version imprimable

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:

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

27/03/2012, 19h20
vodiem

salut Bonero,

parce que

Code:

Debug.Assert c = 97

correspond à:

Code:

If Not c = 97 Then Stop

(avec un arrêt total en plus)

;)
27/03/2012, 20h04
Papy Turbo

Bonsoir, et merci Diem

N'ayant jamais utilisé Debug.Assert, j'ai fait le test.

Qu'est-ce que tu entends par :

Citation:

(avec un arrêt total en plus)

Dans mon test, il s'arrête comme un Stop standard, et repart sur F8 ou F5.
27/03/2012, 20h52
vodiem

salut Papy :D

ben t'as raison. c'est équivalent.
mais dans le doute j'avais fait un test rapide comme j'utilise jamais non plus ^^ et je me suis emmêlé dans la tête F5 et F8...
bon ben en tant que bon informaticien, il me doit de déclaré ma mauvaise foi:
ben y en a qu'un qui suit ???
merci Papy...

:mrgreen:
28/03/2012, 13h35
Bonero

merci a tous pour vos reposnes.
j ai maintenant compris le jeu ; -)