Mettre les données d'un tableau dans une Combo Box

L-apprentie Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour à tous,

J'ai crée un programme VBA pour trouver une ligne dans une base à partir de deux infos. Quand l'utilisateur entre la première info dans une InputBox, on va chercher dans les lignes les références possibles.

Je voudrais donc dans ma combo box avoir ces valeurs, qui sont stockés dans un tableau qui s'appelle tab_res dans mon VBA.


Mon tab_res change en fonction de l'entrée de l'utilisateur, donc j'ai d'abord pensé à initialiser mon Userform en mettant en argument un tableau .. puis je me suis dis qu'il fallait faire un fonction (honnêtement, j'ai testé un peu à l'aveugle...)

J'ai essayé cela :

Public Function ESSAI(tableau( ) As String(), x As Integer)

Dim Ref(1 To 10) As String
'Remplissage de l'UserForm
For i = 1 To x
Ref(i) = tableau(i, 0)
ComboBox1.AddItem Ref(i)
Next i

End Function

Je voudrais en fait, mettre mes valeurs de tab_res dans la combo Box, et je voudrais entrer mes paramètres dans mon code VBA ...

Je pensais appeler la fonction en ajoutant:

ESSAI(tab_res, p1) 'p1 est mon nombre de références possibles, a afficher dans la combo box

UserForm1.Show

J'avoue être un peu perdue ... J'ai certainement fait plusieurs erreurs mais ce n'est pas évident pour moi !

Merci d'avance pour votre aide :)
A voir également:

1 réponse

michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
bonjour

je vois mal le pourquoi d'une fonction.... tu dis
en attendant en restant classique
http://www.cjoint.com/c/FCwldBB0gpF
0