Valoute
XLDnaute Nouveau
Comment je peux r'envoyer une constante correcte en mettant commandbuttoni comment le mettre en forme?
Code:
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