Bonjour,
Je voudrais savoir comment faire pour que mes bouton ne se supperpose pas les uns sur les autres
J'ai un classeur excel avec 3 feuilles . je note le nombre de feuille "3" dans la cellule A1 de la feuille "Feuil1"
et je crée un Userform "UserForm1".
sur la feuille "Feuil1" je créer un commandbutton "CommandButton1" pour appeler la macro
Private WithEvents Bouton1 As MSForms.CommandButton
Private WithEvents Text1 As MSForms.TextBox
Private Sub CommandButton1_Click()
Dim x As Integer
Dim k As Integer
'je vais chercher une valeur de k sur ma feuille dans la cellule A1
k = Sheets("Feuil1" ).Range("A1" ).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)
'Dimension du bouton
Boutonj.Left = 18
Boutonj.Width = 175
Boutonj.Height = 20
Boutonj.Top = 150
'pour donnner le nom de la feuille au commandbuton
Boutonj.Caption = Sheets((j + 3) - Sheets.Count).Name
Next j
UserForm1.Show
End Sub
@+ et merci d'avance