Calcul du Nombre de valeur dans list box

[Manu62]

Bonjour à tous,

Peux t'on calculer le nombre de valeur obtenu dans une liste box ?

Merci

Manu

 

[cbea]

Re : Calcul du Nombre de valeur dans list box

Bonjour Manu62,

Avec : si ta liste se nomme ListBox1 :

ListBox1.ListCount​

 

[Manu62]

Re : Calcul du Nombre de valeur dans list box

merci,

je peux mettre cela dans une text box ?
Comment on ecrit cela
Merci
manu

 

[Spitnolan08]

Re : Calcul du Nombre de valeur dans list box

Bonjour Manu62, cbea,

Textbox1.value=ListBox1.ListCount

Cordialement

PS : Peux tu poser des questions clairement ?

 

[Manu62]

Re : Calcul du Nombre de valeur dans list box

Merci
Effectivement je me depeche souvent dans mes questions.

Bien à vous

Manu

 

[Manu62]

Re : Calcul du Nombre de valeur dans list box

Re,

J'ai fait le test. Cela marche a merveille.
Par contre si je filtre et que dans ma list box il n'ya rien alors je voudrais 0 au lieu de 65000.

J'espère que ce coup là je suis clair

Merci
Manu

 

[Spitnolan08]

Re : Calcul du Nombre de valeur dans list box

Re,

Tes questions étant déconnectées de tout contexte, une réponse qui n'est peut être pas la plus adaptée, mais qui fonctionne... :

Textbox1.value=IIf(ListBox1.ListCount=0,0,ListBox1.ListCount)

Cordialement

 

[tototiti2008]

Re : Calcul du Nombre de valeur dans list box

Resalut Manu,

Tu as une réponse à 65000 parce que tu as utilisé ma macro... c'est son point faible quand il n'y a pas de réponse.
C'est dû à la méthode que j'ai utilisé pour attribuer au résultat du filtre élaboré le nom Filtre.
Si tu veux bien remettre les lignes de code, je pourrais te dire comment les corriger.

 

[Manu62]

Re : Calcul du Nombre de valeur dans list box

Salut,

J'ai fait un post à part pour plus de facilité de recherche
ci dessous le code en cours de construction (pas terminé)
merci de ton aide


'Affiche dans la listbox, les données relatif à la catégorie du véhicule
Private Sub ComboBox1_Change()
ThisWorkbook.Worksheets("crit").Range("a2").Value = ComboBox1.Text
Range("filtre").ClearContents
Range("liste").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"CRIT"), CopyToRange:=Range("dest"), Unique:=False
'Lecture des Immatriculations
ActiveWorkbook.Names.Add Name:="filtre", RefersTo:=Range(Range("d2"), Range("e1").End(xlDown))
ListBox2.RowSource = "filtre"
'Lecture de la MEC
ActiveWorkbook.Names.Add Name:="filtre", RefersTo:=Range(Range("e2"), Range("f1").End(xlDown))
ListBox3.RowSource = "filtre"
'LEcture du propriétaire
ActiveWorkbook.Names.Add Name:="filtre", RefersTo:=Range(Range("f2"), Range("g1").End(xlDown))
ListBox4.RowSource = "filtre"
'LEcture du propriétaire
ActiveWorkbook.Names.Add Name:="filtre", RefersTo:=Range(Range("f2"), Range("g1").End(xlDown))
ListBox5.RowSource = "filtre"


'Calcul du nombre de Carte de Grise concerné
TextBox1.Value = IIf(ListBox2.ListCount = 0, 0, ListBox2.ListCount)
End Sub
Manu

 

[tototiti2008]

Re : Calcul du Nombre de valeur dans list box

Oui, le problème vient de :

ActiveWorkbook.Names.Add Name:="filtre", RefersTo:=Range(Range("f2"), Range("g1").End(xlDown))

 

[Manu62]

Re : Calcul du Nombre de valeur dans list box

par rapport à End(xlDown))

Slts

 

[tototiti2008]

Re : Calcul du Nombre de valeur dans list box

Oui,

Range("g1").End(xlDown)

Revient à dire, s'il n'y a a pas de réponse au filtre :
met toi en G1
Fait Ctrl + Flèche bas

essaye, tu verras, s'il y a des réponses ça va à la dernière réponse, mais s'il n'y en a pas, ça va à la fin de la feuille de calcul...

 

[Spitnolan08]

Re : Calcul du Nombre de valeur dans list box

Re,

Pour information, l'utilisation de la propriété rowsource est à proscrire dans un code VBA...
Voir dans la FAQ les différentes méthodes pour remplir un contrôle (Listbox ou combobox)

Cordialement