fonction récupérant une variable de combo avec nom du userform en variable

[Phil9229]

Bonjour,
Mon problème est le suivant : je fais appel à une fonction ayant pour argument le nom du userform. Cette fonction me permet apres traitement d'ajouter des valeurs à un combobox présent sur le userform en variable.

Function Init_Lieu (uf_valeur as string)
uf_valeur.combobox4. Additem contenu-cell
End function

Dans mon programme j'appelle plusieurs fois cette procédure comme cela :
Init_Lieu("userform5")
Init_Lieu("Userform6")
Etc

Merci d'avance pour votre aide

 

[Pierrot93]

Re : fonction récupérant une variable de combo avec nom du userform en variable

Bonjour,

perso, pas compris le problème.... qu'est ce qui te bloques ??

bon après midi
@+

 

[Phil9229]

Re : fonction récupérant une variable de combo avec nom du userform en variable

Le problème est la déclaration de mon userform en chaîne de caractère. Lors de la compilation de ma fonction J'ai un message "qualificateur incorrect"
Il bloque sur le uf_valeur, qui n'est pas reconnu comme un formulaire !


J'espère être suffisamment clair.

Bonne après midi

 

[Pierrot93]

Re : fonction récupérant une variable de combo avec nom du userform en variable

Re,

essaye ceci :

Function Init_Lieu(uf_valeur As String)
UserForms("uf_valeur").combobox4.AddItem contenu - cell
End Function

ou cela

Function Init_Lieu(uf_valeur As UserForm)
uf_valeur.combobox4.AddItem contenu - cell
End Function

 

[Phil9229]

Re : fonction récupérant une variable de combo avec nom du userform en variable

Merci pour ta réponse.

La premiere solution donne une incompatibilité de type mais la seconde fonctionne parfaitement.

Encore merci pour ta réponse et ta réactivité