J'ai une ébauche mais erreur au niveau de la boucle "j" je ne sais pas comment faire
Private WithEvents Bouton1 As MSForms.CommandButton
Private WithEvents Text1 As MSForms.TextBox
Private Sub Boutonj_Click()
MsgBox "Hello !!!"
End Sub
Private Sub CommandButton1_Click()
Dim x As Integer
Dim k As Integer
'je vais chercher une valeur de k sur ma feuille
k = Sheets("carnet_de_bord" ).Range("g11" ).Value
For j = k To 1 Step -1
'pour créer plusieurs bouton en fonction du nombre de feuille
Set Boutonj = UserForm1.Controls.Add("Forms.CommandButton.1", "Boutonj", True)
Boutonj.Left = 18
Boutonj.Top = 150
Boutonj.Width = 175
Boutonj.Height = 20
'je vais chercher une valeur de x sur ma feuille
x = Sheets("carnet_de_bord" ).Range("g11" ).Value
For i = x To 1 Step -1
'pour donnner le nom de la feuille au commandbuton
Boutonj.Caption = Sheets(Sheets.Count - (i + 2)).Name
Next i
Next j