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

[blord]

Bonjour à tous,

Existe-t-il une façon de retourner dans un textbox le nombre d'items qui ont été sélectionnés dans un listbox permettant la sélection multiple ?

Merci pour votre aide !

 

[PascalXLD]

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

 

[Hervé]

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

bonjour

en passant par une boucle :

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

 

[pierrejean]

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

 

[blord]

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

 

[Hervé]

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 :

Dim i As Integer

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

salut