Label qui indique le nombre d'items d'une listboxRésolu

Question

Bonjour j'ai une listbox et un label.
mOn label devrais indiquer le nombre d'items de ma listbox j'ai essayé label.text = listbox.items.count mais celà ne fonctionne pas!!
je bloque quelqu'un pourrais m'aider? svp

MT Productions

cs_Le Pivert · Accepted Answer

Utilisation du code:

Private Sub ListBox1_Change()
Label1.Caption = ListBox1.ListCount
End Sub
Private Sub UserForm_Activate()
Label1.Caption = ListBox1.ListCount
End Sub

Explications:
Avec l'évenement Activate le nombre d'items est affiché à l'ouverture.
Avec ListBox1_Change, à chaque changement dans la listBox il est mis à jour.
Ce n'était pas compliqué, il fallait juste avoir les bons éléments.
Pense à mettre Répone Acceptée
@+ Le Pivert

Triboutmatthieu · Answer

J'ai essayé ça aussi:

Nombredefiches.Caption = Listefiches.ListCount

mais sans succés

MT Productions

kbalist · Answer

Label.text est une chaine de caractères (string)
et Listbox.items.count est un nombre (integer)
cela ne peut donc pas aller

essaye :
Label.text=cstr(Listbox.items.count)

Triboutmatthieu · Answer

se serait pas plutot label.caption?
ça fonctionne pas ça me surligne items

MT Productions

Triboutmatthieu · Answer

J'ai essayé Nombredefiches.Caption = CStr(Listefiches.ListCount)
mais ça reste toujorus à zéro même si la liste à un items ou +

MT Productions

scromania · Answer

dim label as integer = 0


label.text = listbox.item.count

@@++

Triboutmatthieu · Answer

listbox.item.count ça fonctionne pas c'est pour ça je bloque vraiment pour ce truc

MT Productions

scromania · Answer

en faite un label et du texte donc si tu lui donne un chiffre (soit integer) en texte il ne comprend pas par contre si tu lui dis que ton label et un chiffre alors sa fonctionne

scromania · Answer

copie ton code stp

scromania · Answer

double clique sur ta form et dans 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        label1.text = 0

    End Sub

scromania · Answer

si c'est bon valide la reponse merci

@@++

cs_Le Pivert · Answer

Bonjour, 
Je pense que la 1ère formule est la bonne
label.text = listbox.items.count 
il faut simplement nommé les contrôles:
label1.text = listbox1.Items.count 
J'ai fait un programme qui fonctionne comme ceci
@+

scromania · Answer

en faite tu as une listbox1 et label1


donc tu as juste besoin de faire:
  Label1.Text = ListBox1.Items.Count

je viens de le faire et c'est good

Triboutmatthieu · Answer

Mes controles sont bien nommés et je suis en visual basic 6 sous excel et pas en vb net car ce code c'est bien pour le vb net

MT Productions

cs_Le Pivert · Answer

Ce qu'il faudrait savoir: si c'est du VB6 ou du VBA EXcel?

Triboutmatthieu · Answer

vba excel


MT Productions

cs_Le Pivert · Answer

En VBA

Label1.Caption = ListBox1.ListCount

Triboutmatthieu · Answer

ça marche pas c'est ce que j'vais mis au départ pour ça je bloque grave

et ça 

Nombredefiches.Caption = CStr(Listefiches.ListCount)

ça marche mais ça reste toujours à 0

MT Productions

kbalist · Answer

il doit y avoir un bug ailleurs...
essaie d'afficher la valeur Listefiches.ListCount pour vérifier le compte et vérifie que Nombredefiches.Caption correspond bien à ce que tu vois à l'écran

Triboutmatthieu · Answer

hein??

MT Productions

cs_Le Pivert · Answer

Il faut savoir où se situe la lisBox, si elle est sur un autre UserForm il faut le déclarer par ex: 
UserForm1.Label1.Caption = UserForm1.ListBox1.ListCount
Car le code est bon, je ne vois pas autre chose
Sinon mettre le nom exact du label et de la lisBox
@+

Triboutmatthieu · Answer

non les deux sont dans la m^me userform


MT Productions

CGSI3 · Answer

dim label as integer = 0 
label.text = listbox.item.count 

Je me mele de ce qui ne me regarde pas , mais
label est un control, tu ne peux pas le déclarer en integer et lui donner la valeur 0
mais si tu fais :

label.text = cstr(listbox.item.count)
cela devrai marcher

Je pense que cela serait beaucoup plus juste
Enfin, ... je pense !

Triboutmatthieu · Answer

c'est la solution la plus proche, mais le soucis c'est qu'avec ça mon label reste toujours à 0 même quand ma liste est remplie! je crois que je suis en train de posé une colle à tout le monde... . ^^'

MT Productions

CGSI3 · Answer

Seule solution le débogage, tu stoppe l'application et tu regarde les valeurs de tes controls dans fenetre/variable locale.
Ensuite? pour être sur c'est label ou label1 le nom de ton control 
CGSI3

cs_Le Pivert · Answer

Je pense que c'est la façon dont tu actives ton code:
Essaie avec un bouton comme ceci:


Private Sub CommandButton1_Click()
Label1.Caption = ListBox1.ListCount
End Sub

CGSI3 · Answer

Label1.Caption = ListBox1.ListCount

D'accord avec toi mon petit Pivert

Triboutmatthieu · Answer

je l'ai mis lors du chargement de la form, j'essaiyerais demain car aujourd'hui ça ma pris la tête je vous tiens au courant merci à vous tous!


MT Productions

Triboutmatthieu · Answer

Merci le pivert mais ce que tu m'a donné n'est pas la solution néanmoins ça m'a aidé beaucoup car j'ai essayé ça:

Private Sub UserForm_Activate()
Nombredefiches.Caption = CStr(Listefiches.ListCount)
End Sub

et celà fonctionne merci à vosu tous quand même

MT Productions

Label qui indique le nombre d'items d'une listbox

29 réponses

Votre réponse

Discussions similaires