XL 2013 listbox pour choisir destinataires (RESOLU)

[misteryann]

Bonsoir à Toutes et Tous.
Voilà mon souhait:
une première Usf permet de définir un "client".
Le bouton "CC à" permet de choisir les destinataires en copie via une listbox avec multi select dans une deuxième Usf (car dans la réalité, la 1ère Usf est déjà pleine d'autre chose).
Le but est que lorsque je valide la deuxième Usf les noms choisis s'affiche dans la feuil "Temp".

Merci d'avance.
Cordialement.

 

[belkacem_64]

Salue

essai

 

[misteryann]

Bonsoir.
Merci pour la réponse, mais dans les faits, la totalité des noms (y compris ceux qui ne sont pas sélectionnés) sont affichés sur la feuille "Temp".
Mais c'est un bon début, je suppose.
Cordialement.

 

[belkacem_64]

'Donc dans ce cas le code du bouton ( Valider \ UserForm2 ) devient devient comme ca :

Private Sub CommandButton1_Click()

If ListBox1.ListCount = 0 Then Exit Sub
With Sheets("Temp")
Last = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Range("A" & Last).Resize(ListBox1.ListCount, 1) = Me.ListBox1.List
End With

End Sub

 

[misteryann]

Ah ben non, toujours la même chose, l'ensemble des noms s'affiche toujours dans la colonne "A"...

 

[belkacem_64]

Où et comment vous voulez l'apparition des noms

 

[belkacem_64]

Si vous voulez enregistrer uniquement les noms sélectionné dans la liste, voila le code

Private Sub CommandButton1_Click()

If ListBox1.ListCount = 0 Then Exit Sub
With Sheets("Temp")
For i = 0 To ListBox1.ListCount - 1
Last = .Cells(Rows.Count, 1).End(xlUp).Row + 1
If ListBox1.Selected(i) = True Then _
.Range("A" & Last) = Me.ListBox1.List(i)
Next
End With

End Sub

 

[misteryann]

ça marche bien là c'est cool.
Mais si je peux abuser un peu, si je remplace la combo par une textbox dans la Usf 1 en tapant directement dedans, le code deviens quoi?

 

[misteryann]

Merci pour votre aide BELKACEM car vous imaginez bien que mon projet ne se limite pas à cela 🙂🙂🙂
Après quelques tâtonnements voilà le résultat souhaité.
Concernant l'affichage dans la listbox, il s'agissait juste de renommer les champs correctement.
Pour la textbox il suffisait de remplacer "combobox1" par "textbox1" et de virer la déclaration concernant la combo dans l'Usf1.
Juste une ligne supplémentaire:
"Sheets("Temp").Cells(2, "a").Resize(20, 2).ClearContents"
pour éviter que les noms ne se cumule lors de la validation.
Je ne sais pas si "Resize(20, 2)" sert à quelque chose, c'est une partie d'un code "trouvée" sur le site de J. Boisgontier.

En tout cas merci aux Forumeurs et Forumeuses grâce à qui j'arrive à faire des choses cools aujourd'hui. 🙂😉😉