créer un userform et créer autant de combobox qu'il y a de feuille - VB/VBA/VBS - Programmation
Marsh Posté le 25-10-2005 à 17:55:14
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
Marsh Posté le 25-10-2005 à 14:18:25
Bonjour,
Je voudrais une macro qui créer un userform (qui se dimensionne en automatique suivant le nombre de combobox) dans lequel il y aurait autant de combobox que je posséde de feuille et que chacun possédent le nom de la feuille à laquel il raméne. Il faudrait aussi que chaque combobox ouvre la feuille à laquel il fait alusion.
Merci d'avance