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 !