Bonjour,

J'ai un projet a effectuer en VBA (Creer un petit programme qui trouve les équilibres de nash d'un jeu stratégique), mais j'ai un souci dans l'affichage de certaines valeurs dans la feuille excel, j'ai du mal a comprendre ou est mon erreur.

Voici ce que ca m'affiche sur la feuille excel ( il m'affiche le couple (2,1) en D2, E2 alors que La TB4 > TB10, et j'ai souvent ce problème qui apparait aléatoirement, pas forcément sur ces deux textbox) :

Nom : Capture d’e?cran 2017-04-04 a? 10.07.40.png Affichages : 195 Taille : 86,9 Ko

Voici le code:

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
84
85
86
87
88
89
90
91
92
93
94
95
Sub Structure()
 
Dim gj111 As Double
Dim gj211 As Double
Dim gj121 As Double
Dim gj221 As Double
Dim gj112 As Double
Dim gj212 As Double
Dim gj122 As Double
Dim gj222 As Double
Dim gj1aa As Double
Dim gj2aa As Double
Dim gj1ba As Double
Dim gj2ba As Double
Dim gj1ab As Double
Dim gj2ab As Double
Dim gj1bb As Double
Dim gj2bb As Double
 
 
 
'Le joueur 1 raisonne comme suit
 
'Si joueur 2 choisit action 1
 
If TextBox10.Value > TextBox4.Value Then
gj111 = TextBox10.Value
gj211 = TextBox2.Value
Cells(2, 4) = gj111
Cells(2, 5) = gj211
End If
 
If TextBox4.Value > TextBox10.Value Then
gj121 = TextBox4.Value
gj221 = TextBox8.Value
Cells(2, 4) = gj121
Cells(2, 5) = gj221
End If
 
 
'Si joueur 2 choisit action 2
 
If TextBox19.Value > TextBox6.Value Then
gj112 = TextBox19.Value
gj212 = TextBox5.Value
Cells(3, 4) = gj112
Cells(3, 5) = gj212
End If
 
If TextBox19.Value < TextBox6.Value Then
gj122 = TextBox6.Value
gj222 = TextBox7.Value
Cells(3, 4) = gj122
Cells(3, 5) = gj222
End If
 
 
'Le joueur 2 raisonne comme suit
 
'Le joueur 1 choisit l'action 1
 
If TextBox2.Value > TextBox5.Value Then
gj1aa = TextBox10.Value
gj2aa = TextBox2.Value
Cells(4, 4) = gj1aa
Cells(4, 5) = gj2aa
End If
 
If TextBox5.Value > TextBox2.Value Then
gj1ab = TextBox19.Value
gj2ab = TextBox5.Value
Cells(4, 4) = gj1ab
Cells(4, 5) = gj2ab
 
End If
 
'Le joueur 1 choisit l'action 2
 
If TextBox8.Value > TextBox7.Value Then
gj1ba = TextBox4.Value
gj2ba = TextBox8.Value
Cells(5, 4) = gj1ba
Cells(5, 5) = gj2ba
 
End If
 
If TextBox7.Value > TextBox8.Value Then
gj1bb = TextBox6.Value
gj2bb = TextBox7.Value
Cells(5, 4) = gj1bb
Cells(5, 5) = gj2bb
 
End If
 
End Sub
J'espere que quelqu'un pourra m'aider