Bonjour,

Je suis en train de réaliser un projet sous vb 6. Il consiste à interroger les verbes irréguliers en anglais suivant le contenu d'une feuille de données de type excel.Il sélectionne une forme aléatoirement et l'affiche. Tout fonctionne à ceci près :
Lorsque je vérifie afin de savoir si ma réponse est juste, le résultat est toujours faux même si c'est la bonne réponse. Je cherche désespérément la solution sans réponses. J'ai déjà mis des msgbox un peu partout afin de savoir si ce que j'entrai était bien pris en compte et ce que je devrai écrire afin que la réponse soit vrai cela dit cela ne change rien!!!!!
Votre aide est la bienvenue
Voici le
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
'on test pour savoir si le contenu de la cellule est bon'
'si c la forme afficher alors'
If l_bv1.Visible = True Then
'on affiche rien '
l_bv2.Caption = ""
'sinon si le contenu d'inscrit est le même que celui de la base de donné'
ElseIf ActiveCell.Value = t_bv.Text Then
MsgBox ActiveCell.Value
'on affiche juste'
l_bv2.Caption = "Juste"
Else
MsgBox ActiveCell.Value
'sinon on affiche faux'
l_bv2.Caption = "Faux"
End If
 
'deplace le curseur d'une case'
ActiveCell.Offset(0, 1).Select
 
'on test pour savoir si le contenu de la cellule est bon'
'si c la forme afficher alors'
If l_preterit1.Visible = True Then
'on affiche rien '
l_preterit2.Caption = ""
'sinon si le contenu d'inscrit est le même que celui de la base de donné'
ElseIf t_preterit.Text = ActiveCell.Value Then
l_preterit2.Caption = "Juste"
Else
'sinon on affiche faux'
l_preterit2.Caption = "Faux"
End If
 
'deplace le curseur d'une case '
ActiveCell.Offset(0, 1).Select
 
'on test pour savoir si le contenu de la cellule est bon'
'si c la forme afficher alors'
If l_pp1.Visible = True Then
'on affiche rien '
l_pp2.Caption = ""
'sinon si le contenu d'inscrit est le même que celui de la base de donné'
ElseIf t_pp.Text = ActiveCell.Value Then
'on affiche juste '
l_pp2.Caption = "Juste"
Else
'sinon on affiche faux'
l_pp2.Caption = "Faux"
End If
 
'deplace le curseur d'une case '
ActiveCell.Offset(0, 1).Select
 
'on test pour savoir si le contenu de la cellule est bon'
'si c la forme afficher alors'
If l_traduc.Visible = True Then
'on affiche rien '
l_traduc2.Caption = ""
'sinon si le contenu d'inscrit est le même que celui de la base de donné'
ElseIf t_traduction.Text = ActiveCell.Value Then
'sinon on affiche juste'
l_traduc2.Caption = "Juste"
Else
'sinon on affiche faux'
l_traduc2.Caption = "Faux"
End If
 
'retourne le curseur au debut de la colonne'
ActiveCell.Offset(0, -3).Select
 
'si les 3 formes inscrites sont justes alors'
If (l_bv2.Caption = "Juste" Or l_preterit2.Caption = "Juste" Or l_pp2.Caption = "Juste" Or l_traduc2.Caption = "Juste") Then
'on a 1 point'
Resultat = Resultat + 1
l_resultat.Caption = Resultat
Else
'sinon on a 0 point'
Resultat = Resultat + 0
l_resultat.Caption = Resultat
End If
 
End If
 
End Sub