Nombre d'Item dans la listbox

Pierrot93

XLDnaute Barbatruc

• 25 Novembre 2014

• #2

Re : Nombre d'Item dans la listbox

Bonjour,

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

Code:

ListBox1.ListCount

bonne journée
@+

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 25 Novembre 2014

• #3

Re : Nombre d'Item dans la listbox

Bonjour

oui si je click dans la listboxt

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Novembre 2014

• #4

Re : Nombre d'Item dans la listbox

Re,

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

Code:

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 25 Novembre 2014

• #5

Re : Nombre d'Item dans la listbox

Re,

Non toujours pareil il faut que je click dans la listbox

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Novembre 2014

• #6

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...

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 25 Novembre 2014

• #7

Re : Nombre d'Item dans la listbox

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Novembre 2014

• #8

Re : Nombre d'Item dans la listbox

Re,
bonjour Laetitia🙂🙂

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 25 Novembre 2014

• #9

Re : Nombre d'Item dans la listbox

Bonjour Laetitia, Pierrot

Non sa ne fonctionne toujours pas?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Novembre 2014

• #10

Re : Nombre d'Item dans la listbox

Re,

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

 

Vote positif 0 Vote négatif

B

boulou14

Guest

• 25 Novembre 2014

• #11

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...

Code:

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 25 Novembre 2014

• #12

Re : Nombre d'Item dans la listbox

Bonjour Boulou

Je te remercie et te souhaite une bonne jornée

 

Vote positif 0 Vote négatif

B

boulou14

Guest

• 25 Novembre 2014

• #13

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 ;-)

 

Vote positif 0 Vote négatif