VBA retour à la ligne dans un MsgBox

[Ifer]

Je concatene plusieurs strings en une seul pour le placer dans un MsgBox, seulment je voudrais pour voir mettre les différents strings à la ligne les uns des autres dans le message box, comment dois je fais?

Par exemple mon string est "toto tata titi" avec toto, tata et titi des string qui peuvent contenir des espaces, des signes etc..

Je voudrais que dans mon MsgBox apparaisse:

toto
tata
titi

Donc je dois surement intégrer quelque chose au 3 string avant de les concatener pour que le MsgBox passe à la ligne


Merci d'avance Ifer

 

[PascalXLD]

Re : VBA retour à la ligne dans un MsgBox

Bonjour

il faudrait faire

msgbox "toto" & vbcrlf & "tata" & vbcrlf & "titi"

 

[Ifer]

Re : VBA retour à la ligne dans un MsgBox

Le probleme c'est qu'il peut en avoir 50 des lignes, c'est une boucle, comment puis je faire ?

Merci d'avance,
Ifer

 

[PascalXLD]

Re : VBA retour à la ligne dans un MsgBox

Re

precises un peu plus

cela vient de plusieurs cellules ??

tu prends toute une colonne toute une ligne ??

 

[Ifer]

Re : VBA retour à la ligne dans un MsgBox

J'ai viré les déclarations de variables, autres fcts etc

While i <= TailleTabChemin
        If TabChemin(i) <> ActiveWorkbook.Path & "\" & ThisWorkbook.Name Then
            Resultat = TestFichier(TabChemin(i))
            TabResultat = TrRepTestFichier(Resultat)
            If TabResultat(0) = "False" Then
                [COLOR="Red"]Conclusion = Conclusion & TabResultat(1)[/COLOR]
            ElseIf TabResultat(0) = "True" Then
                TraitementFichier (TabChemin(i))
                [COLOR="red"]Conclusion = Conclusion & TabResultat(1)[/COLOR]
            Else
                MsgBox "pwet!!"
            End If
            'TraitementFichier (TabChemin(i))
        End If
        i = i + 1
    Wend

TabResultat(1) correspond aux différents String que j'ajoute
Conclusion est le string final que je vais afficher dans le MsgBox

MsgBox Conclusion

La forcement ca m'affiche les string concaténé à la suite, je voudrais les afficher à la ligne.

Ifer

 

[PascalXLD]

Re : VBA retour à la ligne dans un MsgBox

Re

tu modifies ta ligne

Conclusion = Conclusion & TabResultat(1)

par

Conclusion = Conclusion & TabResultat(1) & vbcrlf

 

[Ifer]

Re : VBA retour à la ligne dans un MsgBox

Dak j'avais fait ca mais ca marché, suremenjt une faute de frappe, j'ai c/c ce que tu m'as écrit et ça marche donc merci !

Ifer

 

[dixit]

Re : VBA retour à la ligne dans un MsgBox

bonjour à tous,
une suggestion avec un chr(13)

Sub test()

Dim conclusion As String
conclusion = "toto" & Chr(13)
conclusion = conclusion & "tata" & Chr(13)
conclusion = conclusion & "titi" & Chr(13)
conclusion = conclusion & "tutu" & Chr(13)
MsgBox conclusion

End Sub