Discussion :

[sinifroth]

Bonjour à tous,

Je sèche sur un petit bout de code qui ne doit pas être très compliqué.
J'ai une zone de liste dont la sélection multiple a été activée.
Je souhaiterais pouvoir compter le nombre de lignes sélectionnées dans cette zone de liste afin de pouvoir effectuer certains tests (du genre, si le nombre de lignes sélectionnées > nombre de lignes total * 0.5 alors afficher un message...).

J'ai retourné dans pas mal de sens les propriétés listcount, itemsselected... je n'ai pas trouvé.

Merci d'avance.

[Jean-Philippe André]

salut,
une piste avec le code dans la
http://access.developpez.com/faq/?pa...selectElmtsLst

au lieu de passer à True, tu testes la valeur et incrémentes ton compteur

[sinifroth]

Impeccable ! Je n'avais pas eu cette idée d'associer boucle for et compteur !

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Commande76_Click()
 
Dim i, compteur As Long
compteur = 0
For i = 0 To Me.Liste1.ListCount - 1
    If Me.Liste1.Selected(i) = True Then
    compteur = compteur + 1
    End If
Next i
 
MsgBox compteur & " lignes sont sélectionnées dans la liste 1"
 
End Sub

Merci jpcheck