XL 2010 NB de ligne dans Listbox

L

laetitia90

XLDnaute Barbatruc

• 11 Avril 2017

• #2

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

VB:

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 11 Avril 2017

• #3

Bonjour laetitia , Scorpio

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

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 11 Avril 2017

• #4

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 11 Avril 2017

• #5

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.

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 11 Avril 2017

• #6

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 11 Avril 2017

• #7

Re

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

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 11 Avril 2017

• #8

Bonsoir

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

 

Pièces jointes

• Listbox Colonnes NonContigues.xlsm

  26.2 KB · Affichages: 34

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 13 Avril 2017

• #9

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

 

Vote positif 0 Vote négatif