Vba éléments listbox vers une cellule
wiidle
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
je tente désespérement de comprendre les méandres de la listbox de VBA mais la je sèche complètement.
Je souhaite envoyer un mail à (plusieurs) destinataires par outlook.
Pour cela, je souhaite créer une liste box qui ira chercher la liste des destinataires dans la feuille 2 (mail) prévue à cet effet.
a priori il va me falloir deux macro : 1 pour choisir les destinataires, la 2ème pour lancer les mails via outlook.
l'idée serait que :
La listeBox apparait, et l'utilisateur sélectionne les destinataires.
Ensuite les destinataires doivent se rapatrier dans la cellule C4 de ma feuille 1 (avec un bouton valider pourquoi pas).
Je mets ci-dessous le code de ce que j'ai fait (cela ne marche pas).
Sub CommandButton_valider()
Dim i As Integer
'je mets ci-dessous i to 15 mais je préfèrerais i to la fin de ma liste de contact
Dim contact(1 To 15, 1 To 3) As String
Sheets("mail").Select
i = 1
While Range("a" & i) <> ""
contact(i, 1) = Range("a" & i)
contact(i, 2) = Range("b" & i)
contact(i, 3) = Range("c" & i)
i = i + 1
Wend
'je montre ma listbox
MaBoite.Show 0
'Sheets("feuil1").Select
i = 4
With ComboBox1
Worksheets("Feuil1").Range("c" & i).Resize(.ListCount) = ListBox1.List
End With
Next i
End Sub
Merci beaucoup pour votre aide.
je tente désespérement de comprendre les méandres de la listbox de VBA mais la je sèche complètement.
Je souhaite envoyer un mail à (plusieurs) destinataires par outlook.
Pour cela, je souhaite créer une liste box qui ira chercher la liste des destinataires dans la feuille 2 (mail) prévue à cet effet.
a priori il va me falloir deux macro : 1 pour choisir les destinataires, la 2ème pour lancer les mails via outlook.
l'idée serait que :
La listeBox apparait, et l'utilisateur sélectionne les destinataires.
Ensuite les destinataires doivent se rapatrier dans la cellule C4 de ma feuille 1 (avec un bouton valider pourquoi pas).
Je mets ci-dessous le code de ce que j'ai fait (cela ne marche pas).
Sub CommandButton_valider()
Dim i As Integer
'je mets ci-dessous i to 15 mais je préfèrerais i to la fin de ma liste de contact
Dim contact(1 To 15, 1 To 3) As String
Sheets("mail").Select
i = 1
While Range("a" & i) <> ""
contact(i, 1) = Range("a" & i)
contact(i, 2) = Range("b" & i)
contact(i, 3) = Range("c" & i)
i = i + 1
Wend
'je montre ma listbox
MaBoite.Show 0
'Sheets("feuil1").Select
i = 4
With ComboBox1
Worksheets("Feuil1").Range("c" & i).Resize(.ListCount) = ListBox1.List
End With
Next i
End Sub
Merci beaucoup pour votre aide.
3 réponses
-
bonsoir
je montre ma listbox
puis*
Worksheets("Feuil1").Range("c" & i).Resize(.ListCount) = ListBox1.List
Tu expliques ???? -
bonjour michel,
et bien cet à ce moment que j'essaie de coller la sélection de ma listbox dans la feuille 1 cellule c4 (oui le code est faux; je sais ^^).
bon c'est un code que j'ai trouvé (parmi beaucoup que j'ai essayé).
le truc c'est que ma liste box va chercher Nom, Prénom et adresse mail. Ce qui m'intéresse est l'adresse mail pour pouvoir envoyer via outlook (mail l'utilisateur lui vas chercher son contact via le nom ou prénom ^^)
Je récupère donc la donnée de la troisième colonne de la listbox avec columnbound =3 (c'est ce que j'ai fait du moins).
et ensuite je voudrais que l'utilisateur puisse sélectionner les destinataires, et que la macro rapatrie les mails en cellules c4 de la feuille 1 (ou c&i, parcequ'il peut y avoir plusieurs mails et donc plusieurs sélection de destinataires). Car la listbox va chercher les données contact en feuille 2.
Sa serait cool que les mails se mettent à la suite avec un ";" (qui faciliterai l'envoie du mail si plusieurs destinataires).
Voila, en espérant avoir été assez précis .
A très vite j'espère. -
abandon du suivi
