Procédure remplissant une combobox [Résolu]

Signaler
Messages postés
4
Date d'inscription
jeudi 13 septembre 2007
Statut
Membre
Dernière intervention
25 octobre 2007
-
Messages postés
14
Date d'inscription
mardi 15 mai 2007
Statut
Membre
Dernière intervention
20 décembre 2007
-
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 ;)

3 réponses

Messages postés
1241
Date d'inscription
mardi 10 octobre 2006
Statut
Membre
Dernière intervention
27 août 2013
4
Salut,

Mets plutôt
Sub remplir(combo as combobox) au lieu de donner que le nom
Messages postés
4
Date d'inscription
jeudi 13 septembre 2007
Statut
Membre
Dernière intervention
25 octobre 2007

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

Merci beaucoup
Messages postés
14
Date d'inscription
mardi 15 mai 2007
Statut
Membre
Dernière intervention
20 décembre 2007

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 :-)