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 -
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 :)
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:
- Mettre les données d'un tableau dans une Combo Box
- Fuite données maif - Guide
- Tableau word - Guide
- Trier un tableau excel - Guide
- Set-top box - Accueil - Box & Connexion Internet
- Tableau ascii - Guide