Discussion :

[toutoune95800]

Bonjour,

Voici un extrait de mon code, dans un module, extrait tiré d'une structure conditionnelle SELECT:

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
 
 Case "SECOUE PORTE"
 
                If valid(7) = False And valid(2) = True Then
                    compteur_porte_go = compteur_porte_go + 1
                    ecran1.box_reponses.Text = reponses(43)
                    ecran1.question.Text = ""
 
                ElseIf valid(7) = True And valid(2) = False Then
                    compteur_porte_go = compteur_porte_go
                    ecran1.box_reponses.Text = reponses(44)
                    ecran1.question.Text = ""
 
                ElseIf valid(7) = False And valid(2) = False Then
                    compteur_porte_go = compteur_porte_go + 1
                    ecran1.box_reponses.Text = reponses(45)
                    ecran1.question.Text = ""
 
                Else
                    ecran1.box_reponses.Text = reponses(34)
                    ecran1.question.Text = ""
                End If

Le code fonctionnement parfaitement à une seule exception : La valeur compteur_porte_go ne s'incrémente pas !

J'ai essayé de deplacé la ligne, mais rien y fait !

Tout au début du module, avant le premier SUB, j'ai déclaré cette variable de type interger,.

Si je change les valeurs, il les prends compte mais il ne s'incrémente jamais !

Pourquoi ?

Merci d'avance de vos explications !

[toutoune95800]

Fait encore plus bizarre : Il incrémente de 1 à chaque fois que j'appuie sur entrée (entrée déclenche le sub de la partie) avant même d'entrer dans SELECT !

[Totanne]

Code :

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

compteur_porte_go = compteur_porte_go

C'est normal ça ???

[toutoune95800]

Oui parce qu'en faite il garde la valeur de la ligne 5... Dans ce cas, peut-être vaut-il ne rien mettre ? C'est ce que j'avais fait au début et je pensais que l'erreur venait d'ici, qui remettait la variable à 0, donc, j'ai rajouter cette ligne !

[hugoclo]

extrait de mon code, dans un module

.
Le probleme ne viendrait il pas du faite que le compteur soit dans un module?

[Totanne]

1 = 1 ne sert pas a grand chose effectivement ... mieux vaut l'enlever

Utilise le débogueur pas a pas.
Tu verras ligne après ligne qu'a l'exécution, aucune ligne incrémentant ta variable n'est lue ...
Si Valid(7) est toujours true, ton compteur ne risque pas de s'incémenter ...