Discussion :

[Paulytope]

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



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

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

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

  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 :

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

  1
  2
  3
  4
  gj111 = TextBox10.Value
  gj211 = TextBox2.Value
  Cells(2, 4) = gj111
  Cells(2, 5) = gj211

  est équivalent à ceci :
  

  Code :

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

  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 :

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

  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 :

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

  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

[Paulytope]

Merci pour ta réponse, j'ai essayé tout ca mais malheuresement ca n'a pas arrangé le probleme

[riaolle]

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

[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!

[eriiic]

Bonjour,

Code :

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

gj111 = clng(TextBox10.Value)

Sinon tu compares des chaines.
eric

[Paulytope]

Merci! Malheureusement ça ne fonctionne toujours pas, je ne vois vraiment pas ou ça coince...

[eriiic]

Tu l'as fait également pour toutes tes comparaisons de textbox ?

[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 !