Salut Sylsyl, Albert,
je viens de lire tes postes Sylsyl, je comprends à peu près, cependant je ne sais pas trop où placer les procédures.
pour etre plus clair, albert m'a passé un zip, sur ce zip il y a une listbox à choix multiples, un bouton effacer pour effacer les cellules ou se colle la selection, puis un bouton choix.
voici le code de la userform :
Private Sub CommandButton1_Click()
Dim J As Variant
Dim I As Variant
Call reduction
J = 5
With ListBox1
For I = 0 To .ListCount - 1
If .Selected(I) = True Then
Cells(J, 10) = .List(I)
.Selected(I) = False
J = J + 1
End If
Next
End With
End Sub
Private Sub ListBox1_GotFocus()
ListBox1.MultiSelect = fmMultiSelectExtended
Range("J5", Cells(ListBox1.ListCount, 10)).ClearContents
End Sub
Private Sub CommandButton2_Click()
Call ListBox1_GotFocus
End Sub
----------------------------------
cependant avec ce code, lorsque tu fais une sélection alors qu'il y a deja quelque chose dans la cellule J5, cela écrase les données.
donc je souhaite pouvoir y mettre un code permettant de coller les selections dans des cellules vides..
j'espere que tu comprends mieux, ce que je souhaite faire.
peux tu m'indiquer clairement ou placer ton code.
merci 'avance
encore merci à vous deux.
titou