UserForm1.B_31.Caption = "J1"
Bonjour
Dans mon programme a un moment je dois changer le caption d'un bouton. Le probleme c'est que j'ai 9 boutons aligné comme un morpion
Quand je clique sur un bouton sa appelle une fonction début(i,j).
Cette fonction doit modifier le caption du bouton de coordonnée i j. Je fais donc
UserForm1.B_31.Caption = "J1"
si je veux modifier le bouton en coordonnée 3 1 (j'ai appellé mes bouton B_ij en remplacant i et j par les coordonnées
j'aimerais bien pouvoir faire un truc du genre
UserForm1.B_ & i &j.Caption = "J1"
sa m'eviterai de faire un enorme
Je vous montre la fonction pour plus de clarté
Bonjour
Dans mon programme a un moment je dois changer le caption d'un bouton. Le probleme c'est que j'ai 9 boutons aligné comme un morpion
Quand je clique sur un bouton sa appelle une fonction début(i,j).
Cette fonction doit modifier le caption du bouton de coordonnée i j. Je fais donc
UserForm1.B_31.Caption = "J1"
si je veux modifier le bouton en coordonnée 3 1 (j'ai appellé mes bouton B_ij en remplacant i et j par les coordonnées
j'aimerais bien pouvoir faire un truc du genre
UserForm1.B_ & i &j.Caption = "J1"
sa m'eviterai de faire un enorme
Je vous montre la fonction pour plus de clarté
Code:
Sub debut(i As Integer, j As Integer)
Dim test As Integer
'est ce que le joueur a le droit de faire ça ?
test = Aligner(i, j, Tour)
If Remplissage(i - 1, j - 1) = 0 And test = 0 Then 'la case est vide le joueur peut y placer son pion
If Tour = 1 Then 'c'est au joueur un de jouer
'la soit je fais un gros if soit je trouve une methode avec i et j
UserForm1.B_&i&j.Caption = "J1" 'c'est bon il a jouer maintenant c'est au joueur 2
Remplissage(2, 0) = 1 'la case est remplie par le joueur 1
Tour = 2
Else
UserForm.B_&i&j.Caption = "J2"
Remplissage(2, 0) = 2 'la case est remplie par le joueur 2
Tour = 1
End If
Compteur = Compteur + 1
ElseIf test = 1 Then
MsgBox ("Vous n'avez pas le droit car 3 pions sont alignés")
Else
MsgBox ("Un joueur est deja sur la case vous ne pouvez pas jouer")
End If
End Sub
Dernière édition: