des variables dans un nom de variable

[Haydens]

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é

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

 

[Guiv]

Re : des variables dans un nom de variable

Bonjour Haydens et bienvenue,
Essaie:

Userform1.Controls("B_" & i & j).Caption=....

Bonne journée
Guiv