Comment copier une selection provenant d'une ListBox vers une shee

Salut Christophe,
Regarde si cela convient et adapte :
Après la sélection effectuée, appui sur la touche "Entrée"

Private Sub ListBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim I As Integer, J As Integer
'si appui sur la touche "Entrée"
'inscrit en feuille "Feuil3" les éléments
'sélectionnés à partir de "A1"
If KeyAscii = 13 Then
With Me.ListBox1
For I = 0 To .ListCount - 1
If .Selected(I) = True Then
J = J + 1
Worksheets("Feuil3") _
.Range("A" & J).Value = .List(I)
End If
Next I
End With
End If
End Sub

Hervé.

"Christophe B." <ChristopheB@discussions.microsoft.com> a écrit dans le
message news: 0F5D25A3-FF8B-4CFE-881C-7876E1A1CAFF@microsoft.com...

Rebonjour!!!!!!!

Voila, j'ai une listbox multiselection. J'aimerai copier les éléments
sélectionnés vers une autre feuille de calcul du même fichier XL...
Comment

faire?

Merci à tous!
Christophe B.

Bonjour Christophe,

Avec un listbox dans ta feuille de calcul issu de la boîte d'outils Contrôle :

'-----------------------------------
Sub AFficherLesItemsSelectionnés()

Dim Nb As Integer, A As Integer, x As Integer
Nb = Me.ListBox1.ListCount

For A = 0 To Nb
If Me.ListBox1.Selected(A) Then
x = x + 1
Range("h" & x) = Me.ListBox1.List(A)
Me.ListBox1.Selected(A) = False
End If
Next

End Sub
'-----------------------------------


Salutations!



"Christophe B." <ChristopheB@discussions.microsoft.com> a écrit dans le message de news:
0F5D25A3-FF8B-4CFE-881C-7876E1A1CAFF@microsoft.com...
Rebonjour!!!!!!!

Voila, j'ai une listbox multiselection. J'aimerai copier les éléments
sélectionnés vers une autre feuille de calcul du même fichier XL... Comment
faire?

Merci à tous!
Christophe B.