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