XL 2013 listbox pour choisir destinataires (RESOLU)

B

belkacem_64

XLDnaute Junior

• 30 Octobre 2016

• #2

Salue

essai

 

Pièces jointes

• Classeur pour mail en copie-V1.xlsm

  24.3 KB · Affichages: 40

Vote positif 0 Vote négatif

misteryann

XLDnaute Occasionnel

• 30 Octobre 2016

• #3

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.

 

Vote positif 0 Vote négatif

B

belkacem_64

XLDnaute Junior

• 30 Octobre 2016

• #4

'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

 

Vote positif 0 Vote négatif

misteryann

XLDnaute Occasionnel

• 30 Octobre 2016

• #5

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

 

Pièces jointes

• Copie de Classeur pour mail en copie-V1.xlsm

  28.8 KB · Affichages: 36

Vote positif 0 Vote négatif

B

belkacem_64

XLDnaute Junior

• 30 Octobre 2016

• #6

Où et comment vous voulez l'apparition des noms

 

Vote positif 0 Vote négatif

B

belkacem_64

XLDnaute Junior

• 30 Octobre 2016

• #7

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

 

Vote positif 0 Vote négatif

misteryann

XLDnaute Occasionnel

• 30 Octobre 2016

• #8

ç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?

 

Vote positif 0 Vote négatif

misteryann

XLDnaute Occasionnel

• 31 Octobre 2016

• #9

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. 🙂😉😉

 

Pièces jointes

• Copie de Classeur pour mail en copie-V2.xlsm

  30.7 KB · Affichages: 42
• clear[1].png

  137 bytes · Affichages: 48

Vote positif 0 Vote négatif