COMBOBOX WORD pour le nuls, comme moiRésolu

Question

Bonjour

Comme mon sujet l'indique je suis nul en VB mais voudrais avoir une info.
Sous WORD 2003, je cr&#233;e un nouveau doc.
Je fais ensuite : Outils/macro/Visual Basic Editor
Je cr&#233;e un User forme et ins&#232;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&#233; cela):

Private Sub UserForm_Click()


End Sub
Private Sub ComboBox1_Change()
ComboBox1.AddItem "Premi&#232;re ligne"
ComboBox1.AddItem "Seconde ligne"
ComboBox1.AddItem "Troisi&#232;me ligne"
End Sub

Cela fonctionne &#224; moiti&#233; car :

1. Je ne vois rien d'affich&#233; dans ma combobox avant de cliquer dessus et je voudrais qu'une valeur soit affich&#233;e par d&#233;faut.
2. Lorsque je choisi une valeur, comme si j'&#233;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

jpleroisse · Accepted Answer

Bonjour,

Private Sub UserForm_Initialize()
Combobox1.AddItem "Premi&#232;re ligne"
Combobox1.AddItem " Seconde ligne"
Combobox1.AddItem " Troisi&#232;me ligne"
Combobox1.ListIndex = 0
End Sub

jpleroisse

Gobillot · Answer

si tu mets les ajouts dans l'&#233;v&#234;nement Change() ils vont s'ajouter &#224; chaque fois que tu saisis un nouveau caract&#232;re.
en Vb6 ce serait comme &#231;a:

Private Sub Form_Load()
    Combobox1.AddItem "Premi&#232;re ligne"
    Combobox1.AddItem "Seconde ligne"
    Combobox1.AddItem "Troisi&#232;me ligne"
   's&#233;lectionner premi&#232;re ligne
    Combobox1.ListIndex = 0
End Sub

Daniel

Gobillot · Answer

c'est exactement ce que j'avais dis.

Daniel

COMBOBOX WORD pour le nuls, comme moi

3 réponses

Discussions similaires