Mettre CommandButton"i"

[Valoute]

Comment je peux r'envoyer une constante correcte en mettant commandbuttoni comment le mettre en forme?

Private Sub CommandButton1_Click()
Dim Nb As Integer
Nb = Worksheets(3).Cells(2, 3).Value
Sheets(3).Range("$C:$C").AutoFilter Field:=3, Criteria1:="Gardien"
For i = 1 To Nb
Poste_Joueur.CommandButtoni.Caption = Sheets(3).Cells(1 + i, 2).Value
Poste_Joueur.CommandButooni.Visible = True
Next
Sheets(3).Range("$C:$C").AutoFilter Field:=3
End Sub

 

[Dranreb]

Bonjour.
Si Poste_Joueur est un UserForm: Poste_Joueur("CommandButton" & i)
Si c'est un objet Worksheet: Poste_Joueur.OLEObjects("CommandButton" & i).Object