Bonjour,
J'ai déjà trouvé beaucoup de réponses à mes questions dans ce forum, mais là je bloque.
J'ai défini une listbox "multiselectextended" , mais lorsque je sélectionne les valeurs dans celle-ci les sélections ne sont pas prises en "value" qui reste vide (valeur Null). Impossible donc de les recopier dans les cellules de Excel.
On dirait que les valeurs ne sont pas prises en compte.
Dans une autre listbox "multiselectsingle", cela fonctionne parfaitement.
En pièce jointe, un prise d'écran de la création de ma Listbox.
L'erreur obtenue est "incompatibilité de type"
Merci.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Private Sub CmdOk_Click() Dim i As Integer Dim l As Integer l = 2 With Me.LstParticipants For i = 0 To .ListCount - 1 If .Selected(i) Then Range("B" & l) = LstParticipants(i) l = l + 1 End If Next i End With End Sub
Partager