Discussion :

[jmnic]

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

[Kimy_Ire]

Bonjour jmnic,

Remplace ceci : Range("B" & l) = LstParticipants(i) par ceci Range("B" & l) = .List(i).
Ca fonctionne mieux ?

Cordialement,
Kimy

[jmnic]

Merci pour ta réponse.
Cela fonctionne parfaitement !!
Mais je n'ai pas compris pourquoi ma ligne de code n'était pas bonne..

[Philippe Tulliez]

Bonjour,

Mais je n'ai pas compris pourquoi ma ligne de code n'était pas bonne..

Parce-que c'est la propriété List() de l'objet ListBox nommé LstParticipants qui contient la valeur et pas l'objet lui-même

[jmnic]

Ok, merci Philippe.
Cela m'aidera pour la suite de mon programme.