Discussion :

[strutec]

Bonjour,

dans ma zone de liste je souhaite reproduire une variante de la sélection multiple de type "étendu". Le but est qu'en cliquant sur un élément de ma liste, tout les éléments se trouvant avant celui ci soient automatiquement sélectionnés.

Exemple:
Ma liste se compose de 10 éléments numérotés de 1 à 10.

En cliquant sur 3, les éléments de 1 à 3 sont séléctionnés
En cliquant sur 4, les éléments de 1 à 4 sont sélectionnés
En cliquant sur 5, les éléments de 1 à 5 sont sélectionnés etc.

Quelqu'un a-t-il une idée?
Merci

[LedZeppII]

Bonjour,

Il te construire un critère sous la forme ...

(champ numérique entier long)

Code :

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

LeChamp In (1, 2, 3, 4)

(champ texte)

Code :

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

LeChamp In ('1', '2', '3', '4')

A+

[strutec]

j'ai finalement trouvé ce code

Code :

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

1
2
3
4
Dim i As Long, varSel As Variant
   For i = 0 To Me.Liste.ItemsSelected(varSel)
   Me.Liste.Selected(i) = True
   Next i