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