Problème avec Listcount d'une listbox

Bonjour à tous,
Je me permets de vous soumettre 1 problème que je rencontre.
A l'ouverture d'un Userform, j'affiche le contenu d'une feuille excel dans une Listbox avec ce bout de code :

Code:

---

1 2 3

Private Sub UserForm_Initialize() Call MAJ End Sub

---

Et un module :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Sub MAJ() 'mise à zéro du compteur ligne k = 0 'recherche de la dernière ligne du tableau excel derligne1 = Split(Worksheets("BDD").UsedRange.Address, "$")(4)   With FormGen 'nom du formulaire .ListEssai.Clear 'réinitialisation du contenu de la liste 'ouverture de la boucle de la ligne 2 à la dernière ligne du tableau excel For j = 2 To derligne1 .ListEssai.AddItem 'ajout des items .ListEssai.List(k, 0) = Worksheets("BDD").Range("A" & j).Value 'remplissage ligne 0 colonne 0 .ListEssai.List(k, 1) = Worksheets("BDD").Range("B" & j).Value 'remplissage ligne 0 colonne 1 .ListEssai.List(k, 2) = Worksheets("BDD").Range("C" & j).Value 'remplissage ligne 0 colonne 2 .ListEssai.List(k, 3) = Worksheets("BDD").Range("D" & j).Value 'remplissage ligne 0 colonne 3 .ListEssai.List(k, 4) = Worksheets("BDD").Range("E" & j).Value 'remplissage ligne 0 colonne 4 .ListEssai.List(k, 5) = Worksheets("BDD").Range("F" & j).Value 'remplissage ligne 0 colonne 5 .ListEssai.List(k, 6) = Worksheets("BDD").Range("H" & j).Value 'remplissage ligne 0 colonne 6 .ListEssai.List(k, 7) = Worksheets("BDD").Range("I" & j).Value 'remplissage ligne 0 colonne 7 .ListEssai.List(k, 8) = Worksheets("BDD").Range("J" & j).Value 'remplissage ligne 0 colonne 8 .ListEssai.List(k, 9) = Worksheets("BDD").Range("K" & j).Value 'remplissage ligne 0 colonne 9 k = k + 1 'passage à la ligne suivante Next j End With End Sub

---

Jusque là ça fonctionne.
L'utilisateur peut ensuite filtrer la liste.
En fait, je recharge toute la liste en fonction du critère sélectionné par l'utilisateur :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

If OptionButton2.Value = True Then 'filtre par phase k = 0 'recherche de la dernière ligne du tableau excel derligne1 = Split(Worksheets("BDD").UsedRange.Address, "$")(4) With FormGen 'nom du formulaire .ListEssai.Clear 'réinitialisation du contenu de la liste 'ouverture de la boucle de la ligne 2 à la dernière ligne du tableau excel For j = 2 To derligne1 .ListEssai.AddItem 'ajout des items If Worksheets("BDD").Range("E" & j).Value = ComboBox2.Value Then .ListEssai.List(k, 0) = Worksheets("BDD").Range("A" & j).Value 'remplissage ligne 0 colonne 0 .ListEssai.List(k, 1) = Worksheets("BDD").Range("B" & j).Value 'remplissage ligne 0 colonne 1 .ListEssai.List(k, 2) = Worksheets("BDD").Range("C" & j).Value 'remplissage ligne 0 colonne 2 .ListEssai.List(k, 3) = Worksheets("BDD").Range("D" & j).Value 'remplissage ligne 0 colonne 3 .ListEssai.List(k, 4) = Worksheets("BDD").Range("E" & j).Value 'remplissage ligne 0 colonne 4 .ListEssai.List(k, 5) = Worksheets("BDD").Range("F" & j).Value 'remplissage ligne 0 colonne 5 .ListEssai.List(k, 6) = Worksheets("BDD").Range("H" & j).Value 'remplissage ligne 0 colonne 6 .ListEssai.List(k, 7) = Worksheets("BDD").Range("I" & j).Value 'remplissage ligne 0 colonne 7 .ListEssai.List(k, 8) = Worksheets("BDD").Range("J" & j).Value 'remplissage ligne 0 colonne 8 .ListEssai.List(k, 9) = Worksheets("BDD").Range("K" & j).Value 'remplissage ligne 0 colonne 9 k = k + 1 'passage à la ligne suivante Else End If Next j End With ElseIf ...

---

Ca aussi ça fonctionne.
Par contre, lorsque j'essaie de récupérer le nombre de lignes de ma listbox j'ai des résultats incohérents.

Code:

---

MsgBox FormGen.ListEssai.ListCount

---

Me renvoie 8 à l'initialisation du formulaire.
Mais renvoie 8 aussi après filtrage, ce qui n'est pas exact.
On dirait qu'il me renvoie toujours le nombre de lignes intégrées la première fois...
Merci pour vos idées.
Bonne journée

ta dernière ligne ce n'est pas la valeur k ?

oui en effet.
mais j'ai besoin de connaitre le nombre d'items pour pouvoir faire des tris de la liste lorsque je clique sur les entêtes de colonnes
je n'arrive pas à récupérer la valeur de k pour l'utiliser dans une autre sub

et puis j'aimerais bien savoir pourquoi listcount ne se met pas à jour lorsque je mets à jour ma liste...

Bonjour,

Est tu sur du nombre d'élément dans ta liste ?

dans ton code je ne vois rien qui conditionne tes ajouts d'Item en fonction du choix dans ta combobox..

Tchebichef :

Code:

---

1 2	.ListEssai.AddItem 'ajout des items If Worksheets("BDD").Range("E" & j).Value = ComboBox2.Value Then

---

et si tu remplace :

Code:

---

1 2 3

If Worksheets("BDD").Range("E" & j).Value = ComboBox2.Value .ListEssai.AddItem 'ajout des items

---

et en restant zen !

avec

Me.ListEssai.ListCount

Bonjour Tchebichef;


Tu voulais probablement écrire

Code:

---

1 2	If Worksheets("BDD").Range("E" & j).Value = ComboBox2.Value Then .ListEssai.AddItem 'ajout des items

---

au lieu de

Code:

---

1 2	.ListEssai.AddItem 'ajout des items If Worksheets("BDD").Range("E" & j).Value = ComboBox2.Value Then

---

En effet, mon additem était mal placé !
Merci d'avoir pris le temps d'étudier mon code, et d'avoir identifié mon erreur !!
Bon dimanche à tous :ccool:

Bonjour

pour remplir au depart tu pourrais faire comme ceci:dans le module du userform

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub UserForm_Activate() Dim tablo nbcolonne = Range("A2:D" & ActiveSheet.UsedRange.Rows.Count).Columns.Count tablo = Range("A1:D" & ActiveSheet.UsedRange.Rows.Count) Me.ListBox1.ColumnCount = nbcolonne Me.ListBox1.ColumnWidths = "50;50;50;50" Me.ListBox1.List() = tablo   End Sub

---

c'est juste une idée
a toi d'adapter la plage et le nombre de colonnes