Compter le nombre d'items sélectionnés dans un listbox

PascalXLD

XLDnaute Barbatruc

Modérateur

• 17 Octobre 2006

• #2

Re : Compter le nombre d'items sélectionnés dans un listbox

Bonjour

un truc du genre

monnbre as integer

For x = 0 To Listbox1.ListCount - 1
If Listbox1.Selected(x) = True Then monnbre=monnbre+1
Next

textbox1=monnbre

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 17 Octobre 2006

• #3

Re : Compter le nombre d'items sélectionnés dans un listbox

bonjour

en passant par une boucle :

Code:

Dim i As Integer
Dim cpt As Integer

For i = 0 To ListBox1.ListCount - 1
    cpt = cpt - (ListBox1.Selected(i))
Next i

MsgBox cpt

salut

edition : salut pascal

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 17 Octobre 2006

• #4

Re : Compter le nombre d'items sélectionnés dans un listbox

bonjour blord

vois dans ce fichier

et salut a Pascal et Hervé

(y m'enervent a tout savoir pendant qu'il faut que je cherche !!!)

 

Pièces jointes

• blord.xls

  28 KB · Affichages: 98
• blord.xls

  28 KB · Affichages: 95
• blord.xls

  28 KB · Affichages: 115

Dernière édition: 17 Octobre 2006

Vote positif 0 Vote négatif

blord

XLDnaute Impliqué

• 17 Octobre 2006

• #5

Re : Compter le nombre d'items sélectionnés dans un listbox

Bonjour Pascal, Bonjour Hervé,

Vos solutions sont très similaires... Le tout fonctionne parfaitement...

Merci d'avoir pris quelques minutes de votre temps pour m'aider.
Bonne fin de journée !

Blord

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 17 Octobre 2006

• #6

Re : Compter le nombre d'items sélectionnés dans un listbox

re, salut pierrejean

hors sujet, un code pour inverser les sélections dans une listbox :

Code:

Dim i As Integer

For i = 0 To ListBox1.ListCount - 1
ListBox1.Selected(i) = Not ListBox1.Selected(i)
Next i

salut

 

Vote positif 0 Vote négatif