Discussion :

[Maiden002]

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

[FCL31]

Salut

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[rvtoulon]

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.

[Maiden002]

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

[FCL31]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[rvtoulon]

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+

[Maiden002]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[rvtoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A+

[Maiden002]

D'accord ok Merci beaucoup a vous deux

sa marche maintenant ^^

[FCL31]

Avec plaisir

[rvtoulon]

De rien comme l'as dit fcl31 c un plaisir