Discussion :

[ouistit64]

Bonjour,

J'ai 12 commandbuttons dans lesquels il y a des images avec des pions. Chaque fois qu'on clique dessus ça le met à 0 et augmente les commandbuttons suivant. Mon problème est que quand on arrive au commandbutton12 et qu'il y a par exemple 6 pions il ne veut pas les rajouter au commandbutton1 puis 2 puis 3.... ça fonctionne pour tous les commandbuttons mais ça bbloque dès qu'il veut passer du 10,11, ou 12 vers le 1,2....

voici mon code si vous avez une idée :

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
Private Sub CommandButton11_Click()
   Dim i As Integer
    For i = 1 To 30
      traitons11 i
    Next
End Sub
 
Private Sub traitons11(num As Integer)
 
  If TextBox11.Value = num Then
  TextBox11.Value = 0
    For i = 12 To num + 11
      Me.Controls("TextBox" & i).Value = Me.Controls("TextBox" & i).Value + 1
   Next
    End If
End Sub
 
Private Sub CommandButton12_Click()
   Dim i As Integer
    For i = 1 To 30
      traitons12 i
    Next
End Sub
 
Private Sub traitons12(num As Integer)
 
  If TextBox12.Value = num Then
  TextBox12.Value = 0
    For i = 13 To num + 12
      Me.Controls("TextBox" & i).Value = Me.Controls("TextBox" & i).Value + 1
   Next
    End If
End Sub

Et il bloque sur ce code là :

Me.Controls("TextBox" & i).Value = Me.Controls("TextBox" & i).Value + 1


Merci pour votre aide

[ucfoutu]

Bonjour,

"ça bloque" avec quelle valeur de I ?
Avec quel message d'erreur ?
Et (bien évidemment) : as-tu réellement une textbox de ce nom ? ("textbox" & i)

[ouistit64]

ça bloque sur :

Me.Controls("TextBox" & i).Value = Me.Controls("TextBox" & i).Value + 1 par contre je ne sais pas comment identifier sur quel i ça bloque.
J'utilise bien des textbox, 12 au total.

[ucfoutu]

Ca te coûte tant de rentrer en mode debug quand ça coince et d'y regarder la valeur de I ????
(Car ton problème est probablement là !!)

[ouistit64]

dsl je suis débutant et tu vas trouver ça bête mais comment je peux regarder la valeur I ? en la remplaçant par des nombres ? merci d'avance

[patbou]

bonjour

Tu peux mettre un msgbox dans ta procédure

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub traitons11(num As Integer)
 
  If TextBox11.Value = num Then
  TextBox11.Value = 0
    For i = 12 To num + 11
    msgbox i    
   Me.Controls("TextBox" & i).Value = Me.Controls("TextBox" & i).Value + 1
   Next
    End If
End Sub