[VBA-W][debutant]Remplir une combo dans un userForm ? [Résolu]

[Kyti]

Bonjour,

voilà j'utilise vba sous word et j'ai créé un userform qui contient une liste déroulante.
mais je n'arrive pas à la remplir.

j'ai essayé plusieurs choses, mais chaque fois que j'exécute, la liste reste désespérement vide quand je clique sur la flèche, il ne se passe rien...

j'ai essayé ça entre autre. Pourquoi ça ne marche pas ?

Code :

1
2
3
4
Private Sub UserForm_Initialize()
  listTravaux= Array("", "Réabilitation", "Construction", "Réabilitation et construction")
  typeTravaux.List() = listTravaux
End Sub

Svp je comprends pas, je suis dessus depuis hier et j'ai fait plein de sites. je connais pas du tout VB !

Merci

[SilkyRoad]

bonjour

je te propose 3 posibilités

Code :

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Initialize()
Dim listTravaux()
Dim i As Integer
 
    listTravaux = Array("", "Réabilitation", "Construction", _
    "Réabilitation et construction")
    For i = 1 To 3
    typeTravaux.AddItem listTravaux(i)
    Next i
 
End Sub

Code :

1
2
3
4
5
Private Sub UserForm_Initialize()
  typeTravaux.AddItem "Réabilitation"
  typeTravaux.AddItem "Construction"
  typeTravaux.AddItem "Réabilitation et construction"
End Sub

Code :

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
Dim listTravaux()
 
    listTravaux = Array("", "Réabilitation", "Construction", _
    "Réabilitation et construction")
 
    typeTravaux.List = listTravaux
End Sub

EDITION :
j'ai testé ta macro et elle fonctionne chez moi


bonne journée
michel

[Kyti]

Merci, mais j'ai toujours le meme problème, je ne comprends pas ce que je ne fais pas bien. Pourquoi la liste reste vide à l'exécution alors qu'il passe bien dans la fonction ?

j'exécute par la flèche bleue de VB editor.

comment je dois faire alors ?

Merci pour le code

[SilkyRoad]

rebonjour

tu as bien placé la procédure dans l'UserForm?

et la liste déroulante est bien nommée "typeTravaux" ?



bonne journée
michel

[Kyti]

j'ai double-cliqué sur le form, et j'ai choisi initialize et j'ai mis mon code là
mais quand je mets un msgBox, ça s'affiche alors pourquoi la liste reste vide ?

pour la liste déroulante, oui le nom est correct puisque j'avais fait un copié-collé pour le récupérer.

est-ce qu'il faut modifier une propriété de la combo ? genre un true à false ou le contraire ?

[ouskel'n'or]

quand je mets un msgBox, ça s'affiche

Tu m'intrigues. Tu affiches quoi dans ton msgbox ? Mets ton code.

A tout'

Tu as essayé "msgbox listTravaux(0)" ?

[Kyti]

Code :

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
  MsgBox ("ici")
  typeTravaux.AddItem ""
  typeTravaux.AddItem "Réabilitation"
  typeTravaux.AddItem "Construction"
  typeTravaux.AddItem "Réabilitation et construction"
  MsgBox ("la")
End Sub

un truc à la con, et ça s'affiche juste avant que le form ne s'affiche.
quand j'avais mis le code avec le tableau qui contenait les valeurs, il affichait aussi les valeurs du tableau...

je croyais donc que le problème venait de mon additem ou addlist, enfin tout ce que j'ai essayé avant de poster...

je viens aussi d'essayer de mettre la fonction dans le module1 et d'appeler le form ensuite, mais ça ne change rien...

j'ai plein de combo et aucune ne se remplit...
par contre, c'est normal que les combo reçoivent le focus quand je démarre mon form ou pas ? je veux dire par là que le focus clignote comme dans une zone de texte mais on ne peut rien entrer

[ouskel'n'or]

Dans les propriétés de tes combo, tu as bien

Code :

typeTravaux.enabled = true

et

Code :

typeTravaux.locked = false

(Je n'ai pas de pb avec le code que tu as mis dans ton 1er message... et Sylky non plus)

[Kyti]

Envoyé par ouskel'n'or

Dans les propriétés de tes combo, tu as bien

Code :

typeTravaux.enabled = true

et

Code :

typeTravaux.locked = false

(Je n'ai pas de pb avec le code que tu as mis dans ton 1er message... et Sylky non plus)

MERCI c'est ça ! toutes mes combo ont le locked à true par défaut !! c'est con quand meme !!!!! j'ai mis à false et ça marche !!!!! c'est normal que ça se mette à true par défaut ? enfin c'est pas grave, le principal était de le savoir

MERCI MERCI MERCI !!!!