Calcul du Nombre de valeur dans list box

cbea

XLDnaute Impliqué

• 16 Mai 2008

• #2

Re : Calcul du Nombre de valeur dans list box

Bonjour Manu62,

Avec : si ta liste se nomme ListBox1 :

ListBox1.ListCount​

 

Vote positif 0 Vote négatif

Manu62

XLDnaute Impliqué

• 16 Mai 2008

• #3

Re : Calcul du Nombre de valeur dans list box

merci,

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

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 16 Mai 2008

• #4

Re : Calcul du Nombre de valeur dans list box

Bonjour Manu62, cbea,

Code:

Textbox1.value=ListBox1.ListCount

Cordialement

PS : Peux tu poser des questions clairement ?

 

Vote positif 0 Vote négatif

Manu62

XLDnaute Impliqué

• 16 Mai 2008

• #5

Re : Calcul du Nombre de valeur dans list box

Merci
Effectivement je me depeche souvent dans mes questions.

Bien à vous

Manu

 

Vote positif 0 Vote négatif

Manu62

XLDnaute Impliqué

• 16 Mai 2008

• #6

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

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 16 Mai 2008

• #7

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

Code:

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

Cordialement

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 16 Mai 2008

• #8

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.

 

Vote positif 0 Vote négatif

Manu62

XLDnaute Impliqué

• 16 Mai 2008

• #9

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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 16 Mai 2008

• #10

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

 

Vote positif 0 Vote négatif

Manu62

XLDnaute Impliqué

• 16 Mai 2008

• #11

Re : Calcul du Nombre de valeur dans list box

par rapport à End(xlDown))

Slts

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 16 Mai 2008

• #12

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

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 16 Mai 2008

• #13

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

 

Vote positif 0 Vote négatif