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