Problème de commandbutton
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:
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
