Nombre d'Item dans la listbox

[maval]

Bonjour

J'ai une listbox et j'aimerais connaitre le nombre d'item.

je change de département à l'aide d'une combobox.

J'ai mis comme code ceci

Private Sub ListBox1_Change()
Label8.Caption = "Il y a.. " & ListBox1.ListCount - 0 & "  Communesrépertorier dans la listBox.....,"
End Sub

Sa ne fonctionne que si je click dans ma listbox

Je vous remercie d'avance

 

[Pierrot93]

Re : Nombre d'Item dans la listbox

Bonjour,

bah ceci te renvoie le nombre d'iems non...

ListBox1.ListCount

bonne journée
@+

 

[maval]

Re : Nombre d'Item dans la listbox

Bonjour

oui si je click dans la listboxt

 

[Pierrot93]

Re : Nombre d'Item dans la listbox

Re,

remets peut être l'instruction dans le code du combo :

Private Sub ComboBox1_Click()
    Dim x&, colonne&, aa
    x = ComboBox1.ListIndex + 1
    colonne = x * 2
    With Feuil5
        aa = .Range(.Cells(3, colonne), .Cells(.Cells(Rows.Count, colonne).End(xlUp).Row, colonne))
    End With
    With ListBox1
        .Visible = True
        .Clear
        .List = aa
        Label1.Caption = "Il y a.. " & .ListCount  & "  Client répertorier dans la listBox.....,"
    End With
End Sub

 

[maval]

Re : Nombre d'Item dans la listbox

Re,

Non toujours pareil il faut que je click dans la listbox

 

[Pierrot93]

Re : Nombre d'Item dans la listbox

Re,

bah chez moi j'ai supprimé le code listbox_change et cela fonctione dès que je choisis une valeur dans la combobox.... fonctionne normalement donc...

 

[laetitia90]

Re : Nombre d'Item dans la listbox

bonjour maval pierrot
faut mettre la ligne a la fin code combo

 

[Pierrot93]

Re : Nombre d'Item dans la listbox

Re,
bonjour Laetitia

 

[maval]

Re : Nombre d'Item dans la listbox

Bonjour Laetitia, Pierrot

Non sa ne fonctionne toujours pas?

 

[Pierrot93]

Re : Nombre d'Item dans la listbox

Re,

fonctionne chez moi dans le fichier que tu as posté....

 

[boulou14]

Re : Nombre d'Item dans la listbox

Bonjour Maval,
c'est comme ça que tu veux? Quand tu choisi un département, ça te sors le nombre d'items...

Option Explicit

Private Sub ComboBox1_Click()
    Dim x&, colonne&, aa
    x = ComboBox1.ListIndex + 1
    colonne = x * 2
    With Feuil5
        aa = .Range(.Cells(3, colonne), .Cells(.Cells(Rows.Count, colonne).End(xlUp).Row, colonne))
    End With
    With ListBox1
        .Visible = True
        .Clear
        .List = aa
    End With
    Label1.Caption = "Il y a.. " & ListBox1.ListCount - 0 & "  Client répertorier dans la listBox.....,"

End Sub

Private Sub UserForm_Initialize()
    Dim i As Byte
    For i = 2 To Feuil5.Cells(3, Columns.Count).End(xlToLeft).Column Step 2
        ComboBox1.AddItem Feuil5.Cells(1, i)
    Next i
End Sub

 

[maval]

Re : Nombre d'Item dans la listbox

Bonjour Boulou

Je te remercie et te souhaite une bonne jornée

 

[boulou14]

Re : Nombre d'Item dans la listbox

Y a pas de quoi Maval, on m'a souvent aidé sur ce forum, c'est un juste retour des choses ;-)