Problème logique dans un code VBA

Version imprimable

1 pièce(s) jointe(s)

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) :

Pièce jointe 260793

Voici le code:

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
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 :D

04/04/2017, 11h07
riaolle
Bonjour,
Je ne suis pas trop sûre d'où peut venir le problème logique, mais quelques commentaires par rapport à ton code :
- Pour "écrire" dans une cellule, utilise la propriété .Value :
  
  Code:
  
  Cells(2, 4).Value = gj111
- A priori, tu n'as pas besoin de passer par les variables gj... En effet, ceci (avec les .Value):
  Code:
  
  1 2 3 4 gj111 = TextBox10.Value gj211 = TextBox2.Value Cells(2, 4) = gj111 Cells(2, 5) = gj211
  est équivalent à ceci :
  Code:
  
  1 2 Cells(2, 4).Value = TextBox10.Value Cells(2, 5).Value = TextBox2.Value
- Est-ce normal que tu ne prenne pas en compte les fois où les textbox sont égales? Tu as seulement les conditions si T4>T10 et si T10>T4. Tu peux néanmoins exploiter au maximum la syntaxe de la condition If en utilisant les Else If
  Code:
  
  1 2 3 4 5 6 7 If TextBox10.Value > TextBox4.Value Then '... End If If TextBox4.Value > TextBox10.Value Then '... End If
  Equivaut à
  Code:
  
  1 2 3 4 5 If TextBox10.Value > TextBox4.Value Then ' ... Else If TextBox4.Value > TextBox10.Value Then '... End If
Pas sûre que ça résoude le problème, mais c'est déjà un premier pas :)
04/04/2017, 12h03
Paulytope

Merci pour ta réponse, j'ai essayé tout ca mais malheuresement ca n'a pas arrangé le probleme :?
04/04/2017, 12h18
riaolle

Essaie d'écrire la même chose sans les .Value : cf. le tuto suivant : http://silkyroad.developpez.com/VBA/...serForm/#LII-E
04/04/2017, 12h53
Paulytope

Ca n'a pas l'air de changer grand chose, mais merci beaucoup pour ton aide! Je te tiens au courant si j'arrive a résoudre ce souci!
05/04/2017, 07h40
eriiic

Bonjour,

Code:

gj111 = clng(TextBox10.Value)

Sinon tu compares des chaines.
eric
05/04/2017, 22h07
Paulytope

Merci! Malheureusement ça ne fonctionne toujours pas, je ne vois vraiment pas ou ça coince...
05/04/2017, 22h44
eriiic

Tu l'as fait également pour toutes tes comparaisons de textbox ?
08/04/2017, 23h09
Paulytope

Bonsoir,

Désolé pour le délai de réponse, effectivement je ne l'avais pas fait pour les comparasions entre TextBox, merci beaucoup :D!