Procédure remplissant une comboboxRésolu

Question

Bonjour, j'ai dans un formulaire plusieurs combobox et je voudrais les remplir à partir d'un fichier texte mais je ne voudrais pas faire un gros copier coller et finir avec plusieurs lignes de code. J'ai donc essayé de créer une procédure prenant en paramètre le nom de la combobox.

Elle ressemble à ceci : 

Dim tableau() As String

Sub remplirCombo(name As String)
        Open (App.Path & "\param.txt") For Input As #1 'Param.txt est le fichier d'où je veux prendre le contenu
        Line Input #1, ligne
        tableau = Split(ligne, ";")

        For i = 0 To 100
            F_PARAMETRE.name.AddItem tableau(i)  'F_PARAMETRE est le nom de mon formulaire
        Next i
    Close #1
End Sub

Et je l'appelle de la manière suivante au chargement de mon formulaire:

remplirCombo Combo1.name

Il me met erreur de compilation : qualificateur incorrect.

J'espère que quelqu'un à compris mes explications hasardeuses et sera capable d'y répondre,

Je vous remercie par avance ;)

lolokun · Accepted Answer

Salut,

Mets plutôt 
Sub remplir(combo as combobox) au lieu de donner que le nom

cs_Kyza · Answer

C'est en effet car c'était pas le bon type, j'ai modifier un peu ma procédure et ça marche ;)

Merci beaucoup

oliv_def · Answer

Dans le meme genre : est il possible de faire une initialisation a zero des combobox tout en un : du genre combobox1.clear , combobox2.clear  etc....

j ai pas mal de combobox sous excel et je souhaite faire ca...

merci si vous avez une combine, fonction a copier coller dans VBA :-)

Procédure remplissant une combobox

3 réponses

Votre réponse

Discussions similaires