Microsoft 365 Précocher des cases d'une VBA listbox multiselect

SGL

XLDnaute Nouveau
Bonjour,

Je rame et peut être quelqu'un a -t-il une solution.

Mon objectif est de pouvoir pré cocher certaines cases d'une listbox définie en sélection multiple à partir d'un tableau présent sur une feuille de calcul.

Mon code est le suivant mais j'obtiens une erreur "Erreur d'execution '380': Impossible de définir la propriété Selected. Valeur de propriété non valide".

'Init listbox
With ListBox_metiers
.MultiSelect = fmMultiSelectExtended
.Left = 5
.Top = 15
.Height = 600
.Width = 400

For i = 2 To Range("nombre_metiers") + 1
.AddItem Worksheets("Référentiels").Range("G" & i)
If Worksheets("Référentiels").Range("H" & i) = 1 Then
.Selected(i - 1) = True
Else: .Selected(i - 1) = False
End If
Next i
End With


Savez vous quelle est la valeur de propriété symétrique au .selected qu'on utilise pour récupérer les valeurs sélectionnées par l'utilisateur ?
Ou avez vous une autre solution efficace

Merci beaucoup
 

Discussions similaires