XL 2010 NB de ligne dans Listbox

[Scorpio]

Bonjour à tous,
J'ai un petit souci pour compter le NB de ligne qui apparaissent dans la Lisbox1
Alors j'ai récupéré cette ligne ci-dessous qui se trouve dans "Private Sub UserForm_Initialize()"
Mais je n'ai pas de résultat dans le Label5
Pourriez-vous s'il vous plaît de donner un petit coup de pouce, merci
A++++


'Info: Compte le NB de ligne sélectionnée dans la Listbox1 dans Label5
Label5.Caption = "Il y a... " & ListBox1.ListCount - 0 & " lignes répertoriées dans la listBox1 !!!"

 

[laetitia90]

bonjour scorpio🙂

sans toucher ton code😉
deja dans initialise c'est
Label5.Caption = "Il y a... " & ListBox1.ListCount - 1 & " lignes répertoriées dans la listBox1 !!!"

apres tu pourrais tout mettre dans combobox change..... la somme egalement

Private Sub ComboBox1_Change()
Dim i As Single, x As Long, z As Long, Calc As Long
Dim MyArray(20, 5)
ListBox1.ColumnCount = 5
x = 0
ligne = 0
DerLigne = Range("A65535").End(xlUp).Row
For i = 2 To DerLigne
If Cells(i, 1) = ComboBox1 Then
MyArray(ligne, 0) = Cells(i, 1)
MyArray(ligne, 1) = Cells(i, 3)
MyArray(ligne, 2) = Cells(i, 6)
MyArray(ligne, 3) = Cells(i, 8)
MyArray(ligne, 4) = Cells(i, 9)
ligne = ligne + 1
x = x + 1
Calc = Calc + Cells(i, 9)
End If
Next i
ListBox1.List() = MyArray
Label5.Caption = "Il y a... " & x & "  lignes répertoriées dans la listBox1 !!!"
TextBox1 = Format(Calc, "### ### ##0.00")
End Sub

ton code me parait bien complique pour faire seulement cela 🙄🙄

 

[Lone-wolf]

Bonjour laetitia 🙂, Scorpio 🙂

Scorpio, il me semble que l'on t'avais déjà donné la solution sur un autre post non? 🙄 😵

 

[Scorpio]

Salut Lone-Wolf,
oui, c'est juste mais le résultat sur un messageBox, qui s'ouvre à chaque clic sur le combobox.
Et j'aimerais bien si possible un résultat soit dans un textbox, soit dans un Label, je trouve plus pratique, voilà.
Merci à Leatitia90, et Lone-Wolf pour votre aide

 

[Lone-wolf]

Re Scorpio

Euuuh! 🙄 On avait pas mis le résultat dans la textbox?? Moi il me semble, après si ça été changé je ne sais pas.

 

[Scorpio]

Re bonjour Lone-Wolf et Laetitia90,
J'aurais juste encore besoin d'un coup de main, si vous me permettez, lorsque le total de la colonne 9 s'affiche dans le Label, le total ne considère pas les 2 chiffres après le point ou la virgule
Comment je pourrais faire cette correction ?
A+++ merci

 

[Lone-wolf]

Re

Scorpio, et ça c'est quoi? Format "### ### ##0.00"

 

[Si...]

Bonsoir

Après le contrôle ListView, le contrôle ListBox …

 

[Scorpio]

Bonjour Si....
Un grand merci, Si..., avec un peux de retard, pour cause hospitalisation
A++++ Super boulot, merci