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

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