Liste déroulante de plus de 25 éléments

[Smurf94]

Bonjour à tous ,
Je dois créer un formulaire avec une liste déroulante de plus de 25 items. Ceci n'est pas possible dans l'option basique. Par contre il est possible de le faire sous Word grâce à une ptite macro décrite dans le support word:
http://support.microsoft.com/kb/306258/fr
Le problème: je n'arrive pas à la faire marcher.
Est ce que qqun a déjà réussi à faire une telle liste ?
Vous me seriez d'une très grande aide !
Merci merci !!!
Nico

[Heureux-oli]

Juste un exemple similaire peut-être plus simple

Code :

1
2
3
4
5
6
Private Sub UserForm_Initialize()
Dim i As Byte
For i = 1 To 40
    Me.ComboBox1.AddItem "a" & i
Next i
End Sub

[Smurf94]

Merci pour ta réponse !
Cependant j'ai finalement réussi à créer ma liste avec le support Word ( création d'une ListBox).Voici mon code:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Cmdclose_Click()
  Unload Me
End Sub
 
Private Sub ListBox1_Change()
   ActiveDocument.FormFields("Text1").Result = ListBox1.Value (Jaune)
End Sub
 
Private Sub UserForm_Initialize()
  ListBox1.ColumnCount = 1
  'Load data into ComboBox
  ListBox1.List() = Array("Zero", "One", "Two", "Three")
End Sub

Quand je veux éditer le formulaire, j'ai bien l'interface de la macro avec la liste mais quand je veux choisir un item j'obtiens:
'Erreur d'execution 5941: Le membre de la collection n'existe pas.' Le débobage surligne la ligne ActivateDocument.... Comment puis-je "créer" ces membres de collection. En vous remerciant énormément !
Nico

[Smurf94]

J'avoue que je cale toujours, impossible de cliquer sur ces items sans buger. Dans ta solution Oli, comment définis-tu chacun des items de la liste ??
Merci pour ton aide.

[Heureux-oli]

La solution que je donne est pour un UserForm et pas un formulaire.

Les items que j'ajoute sont issu de la boucle, pour en faire 40, je fais une boucle de 1 à 40, et je concatène le résultat avec une lettre.

A1; A2; ...

Si je refait ton cheminement, voilà ce que j'obtiens

Code :

1
2
3
4
5
Private Sub ComboBox1_Change()
ActiveDocument.FormFields(1).Result = Me.ComboBox1.Value
UserForm1.Hide
 
End Sub

Code :

1
2
3
4
Private Sub UserForm_Initialize()
Me.ComboBox1.List() = Array("Un", "Deux", "Trois")
 
End Sub

Le document doit être protégé, je ne'ai pas mis de contrôle mais on pourrais le faire.

[Smurf94]

Merci oli, ta solution marche. Mais malheuresement mon problème reste le même: quand je veux selectionner "un" , "deux" ou "trois" dans la liste, le message d'erreur m'affirme que les membres de la collection n'existe pas. Est ce que le fait d'écrire
ListBox.Liste = Array (".......)
ne fait que créer une liste sans matérialiser ses éléments ? dois-je les déclarer qqpart d'autres? je suis un peu perdu
En te remerciant. Nicolas

[Heureux-oli]

Tout fonctionnait.

[Heureux-oli]

Voilà un exemple.

[Smurf94]

Merci énormément pour l'exemple, je faisais ma userform dans un template projet. Cependant 2 remarques:
- Est-il possible de trouver une solution pour que l'utilisateur puisse resaisir sa réponse ? (ce qui n'est pas le cas actuellement)
- Est-il possible de passer cette macro dans un formulaire comme je souhaitais le faire (mon but étant de faire remplir ce formulaire à un nombre conséquent de personne, les .dot permettent de garder un formulaire sans réponse après utilisation)

Encore merci pour ton aide qui m'est précieuse.
Nicolas

[Heureux-oli]

Jette un oeil ici si ce n'est déjà fait

[Smurf94]

Merci une fois de plus, ton lien explique clairement la différence entre formulaire et userform. J'ai abandonné l'idée de créer mon sondage avec un formulaire et le fais dans un .doc avec une userform.
Je touche au but et la liste déroulante ouverte (combobox c'est à dire qu'on peut choisir dans une liste ou écrire autre chose) marche. Par contre quand je veux créer une liste fermée (ListBox) le choix de l'item me renvoit 'La commande a échouée ; Erreur 4198' . Voici mon code qui n'est que le copier coller du tien appliqué à la ListBox:

Code :

1
2
3
4
5
6
Option Explicit
Private Sub ListBox1_Change()
ActiveDocument.FormFields("Texte2").Result = Me.ListBox1.Value
Fournisseurs.Hide
 
End Sub

Code :

1
2
3
4
Private Sub UserForm_Initialize()
Me.ListBox1.List() = Array("Un", "Deux", "Trois")
 
End Sub

As tu une quelconque idée du problème? Encore merci!