créer un userform et créer autant de combobox qu'il y a de feuille

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 à 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

Reply

Marsh Posté le 25-10-2005 à 14:18:25   

Reply

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed