Création automatique ListBox

Création automatique ListBox - VB/VBA/VBS - Programmation

Marsh Posté le 24-11-2012 à 16:49:24    

Bsr à tous.
 
Je veux créer automatiquement, lors de l'ouverture de mon fichier, une ListBox dans un UserForm1 déjà existant.
 
Or, je parviens pas à coder cette création automatique.
 
Quelqu'un peut-il m'aide ?
 
Merci d'avance.
 
Édité par Elmoricq : les titres en majuscules ne sont pas permis.


Message édité par Elmoricq le 29-11-2012 à 08:52:58
Reply

Marsh Posté le 24-11-2012 à 16:49:24   

Reply

Marsh Posté le 26-11-2012 à 08:27:38    

Bonjour,
un code comme ça doit faire l'affaire :

Code :
  1. Sub Ajout_Listbox
  2. Dim MyControl As Control
  4. Set MyControl = UserForm1.Controls.Add("Forms.ComboBox.1" )
  6.   MyControl.Top = 20
  7.   MyControl.Left = 20
  9.   For i = 1 To 100
  10.     MyControl.AddItem i
  11.   Next i
  12.  
  13. UserForm1.Show
  15. End Sub


---------------
Bel ours Vave, je me dois de l’admettre. -Skyl"win"-  Mais toi tu es intelligent -Homerde- - Ce génie -SkylWINd- JDD S16M72 10:43:46 GMT-DTC +1
Reply

Marsh Posté le 28-11-2012 à 20:48:12    

Bonsoir et merci pour ta coopération.
Impeccable ! Cela fonctionne et correspond à mes attentes. Cela me permettra de ne pas surcharger inutilement des UserForms avec des contrôles à déclencher en fonction des évènements. Je dois à présent pouvoir faire de même avec d'autres contrôles.
 
Cordialement.

Reply

Sujets relatifs:

Leave a Replay

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