Problème de sélection dans une zone de liste à choix multiple

Bonjour,

J'ai un souci avec une sélection des éléments d'une zone de liste.

J'ai en effet une liste déroulante liée à une zone de liste.
La zone de liste est filtrée suivant le choix d'un élément dans la liste déroulante.
Cette partie marche très bien.
J'ai mis un bouton qui me permet de sélectionner tous les éléments de la zone de liste à chaque fois qu'il sont filtrés.
Le code utilisé est ci-dessous . Il marche dans certains cas et pas dans d'autres.

Code:

---

1 2 3 4 5 6

Private Sub Test_Click() Dim i As Long For i = 0 To Me.Etat.ListCount - 1 Me.Etat.Selected(i) = True Next i End Sub

---

1) le cas où le code marche:
Lorsque le choix d'un élément de la liste déroulante donne dans la zone de liste des éléments avec toujours plus de lignes la sélection marche très bien :
Je peux l'illustrer par ces deux captures d'écran:
Pour ce cas , la sélection marche très bien pour tous les choix.

Pièce jointe 279468

par contre , la sélection ne marche pas lorsqu'on n'a moins de lignes: dans la capture suivante , elle ne marche que pour le choix 3 mais pas pour les choix 1 et 2 car moins de lignes que la toute première (choix3 ) Sélectionné.

Pièce jointe 279472

Merci de m'éclairer

Bonne journée