Quel fonction dans une macro affichant un Msgbox permet=20
de l'=E9crire sur deux lignes.
Ex :
Private Sub EnregistreretQuitter_Click()
On Error GoTo err
ActiveWorkbook.SaveAs Filename:=3D _
"d:\Mes documents\" & Sheets("feuil1").
[B13&C13&O1&F6&" du "&G13] & ".xls"
ThisWorkbook.Close
err:
MsgBox "Ici je voudrais ecrire du texte et le positionner=20
sur deux lignes"
Range("F6").Select
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Damien Mermoz
Bonjour,
msgbox "ma première ligne" & vbcrlf & "ma deuxième ligne"
A + Damien. "Boa73" a écrit dans le message de news:085e01c3cf80$45e820b0$
Bonjour,
Quel fonction dans une macro affichant un Msgbox permet de l'écrire sur deux lignes.
Ex :
Private Sub EnregistreretQuitter_Click()
On Error GoTo err ActiveWorkbook.SaveAs Filename:= _ "d:Mes documents" & Sheets("feuil1"). [B13&C13&O1&F6&" du "&G13] & ".xls" ThisWorkbook.Close err: MsgBox "Ici je voudrais ecrire du texte et le positionner sur deux lignes" Range("F6").Select End Sub
Merci de votre aide Cordialement,
Boa73
Bonjour,
msgbox "ma première ligne" & vbcrlf & "ma deuxième ligne"
A +
Damien.
"Boa73" <Boa73@discussions.microsoft.com> a écrit dans le message de
news:085e01c3cf80$45e820b0$a101280a@phx.gbl...
Bonjour,
Quel fonction dans une macro affichant un Msgbox permet
de l'écrire sur deux lignes.
Ex :
Private Sub EnregistreretQuitter_Click()
On Error GoTo err
ActiveWorkbook.SaveAs Filename:= _
"d:Mes documents" & Sheets("feuil1").
[B13&C13&O1&F6&" du "&G13] & ".xls"
ThisWorkbook.Close
err:
MsgBox "Ici je voudrais ecrire du texte et le positionner
sur deux lignes"
Range("F6").Select
End Sub
msgbox "ma première ligne" & vbcrlf & "ma deuxième ligne"
A + Damien. "Boa73" a écrit dans le message de news:085e01c3cf80$45e820b0$
Bonjour,
Quel fonction dans une macro affichant un Msgbox permet de l'écrire sur deux lignes.
Ex :
Private Sub EnregistreretQuitter_Click()
On Error GoTo err ActiveWorkbook.SaveAs Filename:= _ "d:Mes documents" & Sheets("feuil1"). [B13&C13&O1&F6&" du "&G13] & ".xls" ThisWorkbook.Close err: MsgBox "Ici je voudrais ecrire du texte et le positionner sur deux lignes" Range("F6").Select End Sub
Merci de votre aide Cordialement,
Boa73
ktmpb
MsgBox("En haut !!" & Chr(10) & "Au milieu !!" & Chr(10) & "En bas")
voili voilou
-----Message d'origine-----
Bonjour,
Quel fonction dans une macro affichant un Msgbox permet de l'écrire sur deux lignes.
Ex :
Private Sub EnregistreretQuitter_Click()
On Error GoTo err ActiveWorkbook.SaveAs Filename:= _ "d:Mes documents" & Sheets("feuil1"). [B13&C13&O1&F6&" du "&G13] & ".xls" ThisWorkbook.Close err: MsgBox "Ici je voudrais ecrire du texte et le positionner sur deux lignes" Range("F6").Select End Sub
Merci de votre aide Cordialement,
Boa73 .
MsgBox("En haut !!" & Chr(10) & "Au milieu !!" & Chr(10)
& "En bas")
voili voilou
-----Message d'origine-----
Bonjour,
Quel fonction dans une macro affichant un Msgbox permet
de l'écrire sur deux lignes.
Ex :
Private Sub EnregistreretQuitter_Click()
On Error GoTo err
ActiveWorkbook.SaveAs Filename:= _
"d:Mes documents" & Sheets("feuil1").
[B13&C13&O1&F6&" du "&G13] & ".xls"
ThisWorkbook.Close
err:
MsgBox "Ici je voudrais ecrire du texte et le positionner
sur deux lignes"
Range("F6").Select
End Sub
MsgBox("En haut !!" & Chr(10) & "Au milieu !!" & Chr(10) & "En bas")
voili voilou
-----Message d'origine-----
Bonjour,
Quel fonction dans une macro affichant un Msgbox permet de l'écrire sur deux lignes.
Ex :
Private Sub EnregistreretQuitter_Click()
On Error GoTo err ActiveWorkbook.SaveAs Filename:= _ "d:Mes documents" & Sheets("feuil1"). [B13&C13&O1&F6&" du "&G13] & ".xls" ThisWorkbook.Close err: MsgBox "Ici je voudrais ecrire du texte et le positionner sur deux lignes" Range("F6").Select End Sub
Merci de votre aide Cordialement,
Boa73 .
John Fuss
Slt,
tu peux écrire ton msgbox comme ça:
MsgBox "Je veux écrire sur " _ & "deux lignes."
Sinon je t'invite à aller sur le site de mztools qui propose un utilitaire pour VB/VBA qui fonctionne super bien et qui te permet de scinder tes lignes directement ou de les regrouper sur une seule. Bien sur mztools permet bien d'autres choses très très utiles.
John
"Boa73" a écrit dans le message de news:085e01c3cf80$45e820b0$
Bonjour,
Quel fonction dans une macro affichant un Msgbox permet de l'écrire sur deux lignes.
Ex :
Private Sub EnregistreretQuitter_Click()
On Error GoTo err ActiveWorkbook.SaveAs Filename:= _ "d:Mes documents" & Sheets("feuil1"). [B13&C13&O1&F6&" du "&G13] & ".xls" ThisWorkbook.Close err: MsgBox "Ici je voudrais ecrire du texte et le positionner sur deux lignes" Range("F6").Select End Sub
Merci de votre aide Cordialement,
Boa73
Slt,
tu peux écrire ton msgbox comme ça:
MsgBox "Je veux écrire sur " _
& "deux lignes."
Sinon je t'invite à aller sur le site de mztools qui propose un utilitaire
pour VB/VBA qui fonctionne super bien et qui te permet de scinder tes lignes
directement ou de les regrouper sur une seule. Bien sur mztools permet bien
d'autres choses très très utiles.
John
"Boa73" <Boa73@discussions.microsoft.com> a écrit dans le message de
news:085e01c3cf80$45e820b0$a101280a@phx.gbl...
Bonjour,
Quel fonction dans une macro affichant un Msgbox permet
de l'écrire sur deux lignes.
Ex :
Private Sub EnregistreretQuitter_Click()
On Error GoTo err
ActiveWorkbook.SaveAs Filename:= _
"d:Mes documents" & Sheets("feuil1").
[B13&C13&O1&F6&" du "&G13] & ".xls"
ThisWorkbook.Close
err:
MsgBox "Ici je voudrais ecrire du texte et le positionner
sur deux lignes"
Range("F6").Select
End Sub
Sinon je t'invite à aller sur le site de mztools qui propose un utilitaire pour VB/VBA qui fonctionne super bien et qui te permet de scinder tes lignes directement ou de les regrouper sur une seule. Bien sur mztools permet bien d'autres choses très très utiles.
John
"Boa73" a écrit dans le message de news:085e01c3cf80$45e820b0$
Bonjour,
Quel fonction dans une macro affichant un Msgbox permet de l'écrire sur deux lignes.
Ex :
Private Sub EnregistreretQuitter_Click()
On Error GoTo err ActiveWorkbook.SaveAs Filename:= _ "d:Mes documents" & Sheets("feuil1"). [B13&C13&O1&F6&" du "&G13] & ".xls" ThisWorkbook.Close err: MsgBox "Ici je voudrais ecrire du texte et le positionner sur deux lignes" Range("F6").Select End Sub
salut boa73 regarde ci-dessous comment il te faudra faire HTH jps
Boa73 wrote:
Bonjour,
Quel fonction dans une macro affichant un Msgbox permet de l'écrire sur deux lignes.
Ex :
Private Sub EnregistreretQuitter_Click()
On Error GoTo err ActiveWorkbook.SaveAs Filename:= _ "d:Mes documents" & Sheets("feuil1"). [B13&C13&O1&F6&" du "&G13] & ".xls" ThisWorkbook.Close err: MsgBox "Ici je voudrais ecrire du texte et le positionner" & vbcrlf & _ "sur deux lignes" Range("F6").Select End Sub
Merci de votre aide Cordialement,
Boa73
salut boa73
regarde ci-dessous comment il te faudra faire
HTH
jps
Boa73 wrote:
Bonjour,
Quel fonction dans une macro affichant un Msgbox permet
de l'écrire sur deux lignes.
Ex :
Private Sub EnregistreretQuitter_Click()
On Error GoTo err
ActiveWorkbook.SaveAs Filename:= _
"d:Mes documents" & Sheets("feuil1").
[B13&C13&O1&F6&" du "&G13] & ".xls"
ThisWorkbook.Close
err:
MsgBox "Ici je voudrais ecrire du texte et le positionner" & vbcrlf &
_
"sur deux lignes"
Range("F6").Select
End Sub
salut boa73 regarde ci-dessous comment il te faudra faire HTH jps
Boa73 wrote:
Bonjour,
Quel fonction dans une macro affichant un Msgbox permet de l'écrire sur deux lignes.
Ex :
Private Sub EnregistreretQuitter_Click()
On Error GoTo err ActiveWorkbook.SaveAs Filename:= _ "d:Mes documents" & Sheets("feuil1"). [B13&C13&O1&F6&" du "&G13] & ".xls" ThisWorkbook.Close err: MsgBox "Ici je voudrais ecrire du texte et le positionner" & vbcrlf & _ "sur deux lignes" Range("F6").Select End Sub
