Discussion :

[fred197313]

Bonjour

je souhaite implanter, dans un fichier excel, une methode VBA permettant de remplir une list box contenue dans le fichier.

le fichier comporte un multipage et sur 2 des 4 pages crées il y a 1 list box.

j'appelle une methode avec en parametre le nom de la list box.
mon problème est que cela ne marche pas

mon code est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub FillListe(Lbox As String)
 
    Lbox.Clear
    Lbox.ColumnCount = 12
 
    Lbox.AddItem a
    Lbox.List(0, 1) = b
 
   ......
end sub

j'appelle par exemple Filllist (Main.LbCptCourant) ou lbCptcourant est une listbox présente sur le multipage Main'

mais le code bug. j'ai l'erreur : membre de méthode ou de données introuvables

pouvez vous m'aider s'il vous plait?

[jeanmidudu]

Alors en fait dans ton code, plusieurs choses ne vont pas.

Tout d'abord, tes combobox sont-ils dans un userform ou sur une feuille?
Ensuite, ce n'est pas le nom de la listbox qu'il faut récupérer, mais la listbox elle-même.

Si tu travailles avec un userform :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Sub FillListe(Lbox As UserForm)

Ensuite, qu'Est-ce que sont a et b ?

[fred197313]

Bonjour,

meric pour les reponses.

alors en fait j'ai une listbox qui s'appelle LbCptCourant qui se trouve sur un multipage qui s'appelle CptCourant qui est lui meme place sur un autre multipage applé Main. j'ai d'autres listbox qui se trouvent sur d'autre multipage

j'ai bien essayé dans un premier temps d'appeler la methode FillListe (Lbox as listbox), mais cela n'a pas marché.Lbos ne doit pas etre un userform mais la listbox que je veux remplir.

mon but est de faire une methode generique qui pourrait remplir la listbox de mon choix en la passant en parametre

a et b sont pour faire simple des données reucpérées sur une même ligne d'une feuille excel (par ex a serait une date, et b serait un type d'operation)

j'espère avoir été plus clair.

merci d'avance

[jeanmidudu]

Il ne faut pas passer la listbox en paramètre mais l'userform (petite erreur de ma part)

Ta fonction doit être appelée comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call FillListe(Me)

Ensuite ta fonction dois comment par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sub FillListe(usf As UserForm)

et pour remplir ta listbox il faut faire ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
usf.LbCptCourant.clear
usf.LbCptCourant.ColumnCount = 12

et ainsi de suite

Ensuite, jamais ton code ne fonctionnera si ton a et ton b ne correspondent à rien. Il faut que tu définisses clairement et précisément s'il de variables, de quel type et ce qu'elles contiennent.
Enfin, pour l'automatisation sur l'ensemble de tes onglets, il existe plusieurs moyen. Une boucle est toujours nécessaire, mais pour cela il faut tes listbox aient le même schéma (même nom avec un chiffre différent à la fin ou même caption avec chiffre différent à la fin par exemple)

[fred197313]

Ah Ok, moi j'étais persuadé qu'on pouvait passer la listbox en parametre.

j'essaierai ce soir ou demain matin.

concernant a et b, ca correspond a quelque chose, j'avais fait des remplissage de listbox, mais jamais avec une procedure generique comme celle la .

j'espere que ca va marcher.


en tout cas merci pour le coup de main. ca va m'avancer grandement

[joe.levrai]

Bonjour,

quelle étrange idée de passer le userform en paramètre d'une procédure qui remplira un ListBox ?

Sachant qu'il est en plus sur un multipage, il me semble que si on part du Userform plutôt que du ListBox, on doit gérer aussi la page où est située la listbox ?

voici un exemple tiré d'un de mes fichiers ... bien sûr ça ne répondra pas à la demande exacte, mais ça présente la possibilité

La procédure dans un module standard, elle permet de charger une liste issue d'une plage Excel.
Son contexte d'utilisation : des utilisateurs valident des "fiches" (ou les suppriment / les modifients) et à chaque validation, la listbox recharge l'ensemble des fiches saisies

Voici le remplissage :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub ChargeListBoxSaisiesTest(LaListe As MSForms.ListBox)
    With FEUILLE_ECRITURE.Cells(1, 1)
        If .Value <> "" Then
            LaListe.List = .CurrentRegion.Offset(0, 2).Resize(.CurrentRegion.Rows.Count, LaListe.ColumnCount).Value
        End If
    End With
End Sub

Son appel depuis un Userform

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call ChargeListBoxSaisiesTest(Me.ListBox_SAISIES)