VBA - MSgBox + List

Bonjour le forum.

Je me demandai, est il possible de ressortir grâce a une MsgBox une liste d'information.

Exemple: dans la colonne A j'ai un titre de film a chaque cellule.

Et je voudrai savoir si il est possible de récupérer tout les titres présent de A11 a A20 et de les intégrer dans un MsgBox.

Sa serai disposer comme sa :

Voici la liste de vos films :
Film1
Film2
...
etc

Si vous avez des questions hésitez pas si c'est pas claire ;)

Merci

Salut

Une piste peut être (je pense que ce code peut être améliore):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Test() Dim Msg, Title, Response, MyString Msg = Range("A1") & (Chr(13)) & Range("A2") & (Chr(13)) & Range("A3") & (Chr(13)) & Range("A4") & (Chr(13)) & Range("A5") ' Définit le message. '(Chr(13)) sert a faire un retour à la ligne Title = "Titre du message" ' Définit le titre. ' Affiche le message. Response = MsgBox(Msg, Style, Title, Help, Ctxt) If Response = vbYes Then ' L'utilisateur a choisi Oui. MyString = "Oui" ' Effectue une action. Else ' L'utilisateur a choisi Non. MyString = "Non" ' Effectue une action. End If End Sub

---

slt,
pourquoi pas un formulaire avec une listbox ou une listview!
tu crées un bouton sur ta feuille et tu lance le formulaire qui affiche les titres.

Comment pourrai ton faire ton avec une listbox car je n'est jamais utiliser cela.

Tu fait un UserForm avec une ListBox avec le code suivant :

Code:

---

1 2	ListBox1.ColumnCount = 1 ListBox1.RowSource = "a1:a20"

---

Re
voici un petit fichier que tu dois adapter en fonction de la taille de ta plage. tu peux faire cela dans la propriété rowsource de la listbox dans l'éditeur vbe
ou en reprenant le code de FCL31 dans userform initialize.

A+

Merci pour le fichier Mais je comprends pas quand je regarde ton code, je ne voi pas ou tu as délimité les plages.

Quand je double clic sur la userform, je vois juste

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub CommandButton1_Click() Unload UserForm1 End Sub   Private Sub ListBox1_Click()   End Sub   Private Sub UserForm_Click()   End Sub

---

re il faut afficher le formulaire dans l'éditeur tu cliques sur la listbox et dans les propriété de la listbox tu regarde à rowsource.
sinon tu remplace le code userform_click par userform_initialize et tu mets le code de FCL31 dedans:

Code:

---

1 2 3 4 5

private sub userform_initialize () ListBox1.ColumnCount = 1 ListBox1.RowSource = "a11:a20" end sub

---

A+

D'accord ok Merci beaucoup a vous deux :)

sa marche maintenant ^^

:ccool:

Avec plaisir :yaisse2:

De rien comme l'as dit fcl31 c un plaisir :P