COMBOBOX WORD pour le nuls, comme moi [Résolu]

lafafmentvotre 12 Messages postés dimanche 20 mars 2005Date d'inscription 12 octobre 2008 Dernière intervention - 21 mars 2005 à 21:45 - Dernière réponse : Gobillot 3140 Messages postés vendredi 14 mai 2004Date d'inscription 31 mars 2015 Dernière intervention
- 22 mars 2005 à 10:33
Bonjour

Comme mon sujet l'indique je suis nul en VB mais voudrais avoir une info.
Sous WORD 2003, je crée un nouveau doc.
Je fais ensuite : Outils/macro/Visual Basic Editor
Je crée un User forme et insère une combobox dedans.
Je double-clic sur ma combo (toujours sous microsoft Visual Basic) pour rentrer dans le code que voici (en cherchant sur Internet j'ai trouvé cela):

Private Sub UserForm_Click()


End Sub
Private Sub ComboBox1_Change()
ComboBox1.AddItem "Première ligne"
ComboBox1.AddItem "Seconde ligne"
ComboBox1.AddItem "Troisième ligne"
End Sub

Cela fonctionne à moitié car :

1. Je ne vois rien d'affiché dans ma combobox avant de cliquer dessus et je voudrais qu'une valeur soit affichée par défaut.
2. Lorsque je choisi une valeur, comme si j'étais utilisateur, dans ma combobox, et que je reviens dessus ensuite, il me double, triple, quadruple, etc mes valeurs

Quelqu'un pourrai-t-il m'aider ??

Merci mille fois
Afficher la suite 

3 réponses

Meilleure réponse
jpleroisse 1788 Messages postés mardi 7 novembre 2000Date d'inscription 11 mars 2006 Dernière intervention - 21 mars 2005 à 22:10
3
Merci
Bonjour,

Private Sub UserForm_Initialize()
Combobox1.AddItem "Première ligne"
Combobox1.AddItem " Seconde ligne"
Combobox1.AddItem " Troisième ligne"
Combobox1.ListIndex = 0
End Sub

jpleroisse

Merci jpleroisse 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 74 internautes ce mois-ci

Gobillot 3140 Messages postés vendredi 14 mai 2004Date d'inscription 31 mars 2015 Dernière intervention - 21 mars 2005 à 22:04
0
Merci
si tu mets les ajouts dans l'évênement Change() ils vont s'ajouter à chaque fois que tu saisis un nouveau caractère.
en Vb6 ce serait comme ça:

Private Sub Form_Load()
Combobox1.AddItem "Première ligne"
Combobox1.AddItem "Seconde ligne"
Combobox1.AddItem "Troisième ligne"
'sélectionner première ligne
Combobox1.ListIndex = 0
End Sub

Daniel
Gobillot 3140 Messages postés vendredi 14 mai 2004Date d'inscription 31 mars 2015 Dernière intervention - 22 mars 2005 à 10:33
0
Merci
c'est exactement ce que j'avais dis.

Daniel

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.