Bonjour,
Je voudrais pouvoir ouvrir la feuille qui correspond au bouton sélectionné
J'ai un classeur excel avec 3 feuilles "Feuil1","Feuil2""Feuil3".
je crée un Userform "UserForm1" avec un commonbutton "test"
sur la feuille "Feuil1" je créer un commandbutton "CommandButton1" pour appeler la macro
Voir le code ci-dessous
Private WithEvents bouton1 As MSForms.CommandButton
Private WithEvents Check1 As MSForms.CheckBox
Private WithEvents Text1 As MSForms.TextBox
Private Sub CommandButton1_Click()
Dim x As Integer
Dim nombre As Integer
'compte le nombre de feuille
nombre = Worksheets.Count
'Variable (qui va varier...)pour mettre en ordre les boutons les uns au dessus des autres
Dim BoutonTop
BoutonTop = 20
'Variable (qui va varier...)pour mettre en ordre les checkbox les uns au dessus des autres
Dim CheckTop
CheckTop = 20
For j = nombre 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)
'pour créer les checkbox en fonction du nombre de feuille
Set Checkj = userform1.Controls.Add("Forms.CheckBox.1", "Checkj", True)
'Dimension du bouton
boutonj.Left = 40
'largeur
boutonj.Width = 200
boutonj.Height = 20
'position par rapport au haut du userform
boutonj.Top = BoutonTop
BoutonTop = BoutonTop + 25
'Dimension de la checkbox
Checkj.Left = 20
Checkj.Width = 10
Checkj.Height = 20
Checkj.Top = CheckTop
CheckTop = CheckTop + 25
'pour donnner le nom de la feuille à l'intitulé du commandbuton
boutonj.Caption = Sheets((j + nombre) - Sheets.Count).Name
'pour donnner le nom de la feuille à la l'intitulé de la checkbox
Checkj.Caption = Sheets((j + nombre) - Sheets.Count).Name
Next j
End Sub
Private Sub boutonj_click()
'je voudrais pouvoir ouvrir la feuille qui correspond au bouton sélectionné
MsgBox ("test" )
End Sub
Message édité par beberf1 le 22-11-2005 à 10:20:15