Mise en forme MsgBox

[G'Claire]

Re le forum,

J'utilise ce code pour une MsgBox afin de d'avoir une confirmation de mes données entrées :

Dim Msg

Msg7 = MsgBox(" Vous allez créer une fiche avec les données suivantes :" & vbCrLf & vbCrLf & " Voulez-vous continuer ?" _
& vbCrLf & vbCrLf & "Société donneuse d'ordre : " & TextBoxSociete.Value _
& vbCrLf & " Interlocuteur : " & ComboBoxClients.Value _
& vbCrLf & vbCrLf & "Désignation produit : " & TextBoxDesignationProduit.Value _
& vbCrLf & "Référence : " & TextBoxReferenceProduit.Value _
& vbCrLf & "Version : " & TextBoxIndice.Value _
& vbCrLf & "Indice : " & TextBoxVersion.Value _
& vbCrLf & vbCrLf & "Cableurs suceptible de faire le produit : " _
& vbCrLf & vbTab & TextBoxCableurs.Value, vbYesNo + vbQuestion, "Confirmation")

If Msg7 = vbNo Then Exit Sub
If Msg7 = vbYes Then

Blablabla

end if

Tout se déroule trés bien, mais, car il y a forcément un mais, sinon je ne vous poserai pas la question, hihihihi, donc mais,

sur ce code :

& vbCrLf & vbTab & TextBoxCableurs.Value

dans ce TextBoxCableurs (Multiligne) s'il y a plusieurs lignes la tabulation se fait bien sur la première, et pas sur les autres.

Exemple :


tata
toto
titi
tutu

Y'a t'il un moyen de forcer cette tabulation sur toutes les lignes?

Merci, G'Claire

 

[michel]

bonsoir G'Claire

tu peux tester l'adaptation ci dessous


Dim Cible As String
Cible = Application.WorksheetFunction.Substitute(TextBoxCableurs, vbCrLf, Chr(10) & vbTab)

Msg7 = MsgBox(" Vous allez créer une fiche avec les données suivantes :" & vbCrLf & vbCrLf & " Voulez-vous continuer ?" _
& vbCrLf & vbCrLf & "Société donneuse d'ordre : " & TextBoxSociete.Value _
& vbCrLf & " Interlocuteur : " & ComboBoxClients.Value _
& vbCrLf & vbCrLf & "Désignation produit : " & TextBoxDesignationProduit.Value _
& vbCrLf & "Référence : " & TextBoxReferenceProduit.Value _
& vbCrLf & "Version : " & TextBoxIndice.Value _
& vbCrLf & "Indice : " & TextBoxVersion.Value _
& vbCrLf & vbCrLf & "Cableurs suceptible de faire le produit : " _
& vbCrLf & vbTab & Cible, vbYesNo + vbQuestion, "Confirmation")


bon week end
michel

 

[G'Claire]

Michel, le Forum,

Michel, merci, je test et te tiens au jus.................................de pomme,lol

Salut, G'Claire

 

[G'Claire]

Michel, le forum, Re

Michel, c'est super cela fonction impeccable, encore merci.

G'Claire