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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.

Nom : cap1.PNG
Affichages : 275
Taille : 6,9 Ko

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é.

Nom : Capture3.PNG
Affichages : 226
Taille : 7,1 Ko

Merci de m'éclairer

Bonne journée