Discussion :

[roultabille]

Bonsoir,

Comment copier les sélections d'une zone de liste dans un champ mémo.

Merci d'avance pour votre coup de main.

[LE VIEUX]

bonsoir,

deux codes a tester :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
For i = 0 To Me.Liste11.ListCount - 1
If Me.Liste11.Selected(i) Then
 
Me.champMemo = Me.champMemo & " " & Me.ListeX.Column(1, i)
End If
 
Next i

ou :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim varItem As Variant
For Each varItem In Me.ListeX.ItemsSelected
 
Me.champMemo = Me.champMemo & " " & Me.ListeX.ItemData(varItem)
Next varItem
End Sub

[roultabille]

Extra! Merci mille fois

La procédure 1 ne fonctionne pas. ( for i = variable non définie)
J'aimerais savoir comment déclarer la variable?

La 2 est parfaite

A très bientôt