Discussion :

[modus57]

Bonjour

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 :

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

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.

[mercatog]

Code :

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

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)

[babaothe]

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 :

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

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

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

Par exemple mon string est "toto tata titi"

[modus57]

Merci mercatog & babaothe pour votre réponse ultra rapide

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 :

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

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

[curt]

Bonjour à tous,

modus57, dans le code de Mercalog, tu remplaces :

Code :

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

For i = 1 To 50

par

Code :

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

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

Curt

[modus57]

Bonjour. curt

Ca marche nickel chrome.

Encore merci à tous.

Cordialement modus57