MsgBox et boucles

Bonjour :D

Je voudrais pouvoir mettre les différents strings à la ligne les uns des autres dans le message box.
Par exemple mon string est "toto tata titi" ces strings proviennent de plusieurs cellules dans la colonne A de la Feuill1.
Je voudrais que dans mon MsgBox apparaisse:
toto
tata
titi
C’est possible en faisant:

Code:

---

Msgbox "toto" & vbcrlf & "tata" & vbcrlf & "titi"

---

Le problème c'est qu'il peut y avoir 50 lignes, c'est une boucle qu'il faudrait , comment puis- je faire ?

Merci d'avance.

Code:

---

1 2 3 4 5 6 7 8

Dim i As Integer Dim msg As String   For i = 1 To 50 msg = msg & vbCrLf & Sheets("Feuil1").Range("A" & i).Value Next i   MsgBox Mid(msg, 2)

---

salut

si j'ai bien compris (nous n'avons qu'un exemple sous les yeux) tu cherches à afficher, séparés par un vbcrlf, tous les mots (séparés par un espace) d'une chaîne

J'aurais alors (sur ces seules bases connues de ton problème) tendance à te répondre par ce code :

Code:

---

1 2	lachaine = "titi toto tata" MsgBox Replace(lachaine, " ", vbCrLf)

---

edit : à moins que tu ne sois mal ou incomplètement exprimé ici :

Citation:

---

Par exemple mon string est "toto tata titi"

---

Merci mercatog & babaothe pour votre réponse ultra rapide :ccool:

La solution mercatog convient parfaitement.

Petite demande complémentaire :

Comment limiter la boucle au nombre de lignes contenues dans la colonne A nommée « liste » qui fait référence à :

Code:

---

=DECALER(Feuil2!$A:$A;0;0;NBVAL(Feuil2!$A:$A))

---

Bonjour à tous,

modus57, dans le code de Mercalog, tu remplaces :

Code:

---

For i = 1 To 50

---

par

Code:

---

For i = 1 To ActiveSheet.UsedRange.Rows.Count

---

Curt

Bonjour. curt :D

Ca marche nickel chrome. :ccool:

Encore merci à tous.

Cordialement modus57