Bonjour,
Pour donner un aspect plus joli =E0 la message box j'utilise
Function FormattedMsgBox( _ Prompt As String, _
Optional Buttons As VbMsgBoxStyle =3D vbOKOnly, _
Optional Title As String =3D vbNullString, _
Optional HelpFile As Variant, _
Optional Context As Variant) _
As VbMsgBoxResult
If IsMissing(HelpFile) Or IsMissing(Context) Then
FormattedMsgBox =3D Eval("MsgBox(""" & Prompt & _
""", " & Buttons & ", """ & Title & """)")
Else
FormattedMsgBox =3D Eval("MsgBox(""" & Prompt & _
""", " & Buttons & ", """ & Title & """, """ & _
HelpFile & """, " & Context & ")")
End If
End Function
Comment =E9viter que la message box ne commence par "erreur"=20
comment faire?=20
Puisqu'il s'agit d'une question ou d'un avertissement.
Olivier
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
Gilbert
Bonjour,
Le titre de la boite de message est 'erreur' si tu ne met rien dans le paramètre Title.
-- Gilbert
"Olivier" a écrit dans le message de news: 1ebe01c4fc6a$0e710f80$ Bonjour, Pour donner un aspect plus joli à la message box j'utilise Function FormattedMsgBox( _ Prompt As String, _ Optional Buttons As VbMsgBoxStyle = vbOKOnly, _ Optional Title As String = vbNullString, _ Optional HelpFile As Variant, _ Optional Context As Variant) _ As VbMsgBoxResult
If IsMissing(HelpFile) Or IsMissing(Context) Then FormattedMsgBox = Eval("MsgBox(""" & Prompt & _ """, " & Buttons & ", """ & Title & """)") Else FormattedMsgBox = Eval("MsgBox(""" & Prompt & _ """, " & Buttons & ", """ & Title & """, """ & _ HelpFile & """, " & Context & ")") End If End Function Comment éviter que la message box ne commence par "erreur" comment faire? Puisqu'il s'agit d'une question ou d'un avertissement. Olivier
Bonjour,
Le titre de la boite de message est 'erreur' si tu ne met rien dans le
paramètre Title.
--
Gilbert
"Olivier" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 1ebe01c4fc6a$0e710f80$a601280a@phx.gbl...
Bonjour,
Pour donner un aspect plus joli à la message box j'utilise
Function FormattedMsgBox( _ Prompt As String, _
Optional Buttons As VbMsgBoxStyle = vbOKOnly, _
Optional Title As String = vbNullString, _
Optional HelpFile As Variant, _
Optional Context As Variant) _
As VbMsgBoxResult
If IsMissing(HelpFile) Or IsMissing(Context) Then
FormattedMsgBox = Eval("MsgBox(""" & Prompt & _
""", " & Buttons & ", """ & Title & """)")
Else
FormattedMsgBox = Eval("MsgBox(""" & Prompt & _
""", " & Buttons & ", """ & Title & """, """ & _
HelpFile & """, " & Context & ")")
End If
End Function
Comment éviter que la message box ne commence par "erreur"
comment faire?
Puisqu'il s'agit d'une question ou d'un avertissement.
Olivier
Le titre de la boite de message est 'erreur' si tu ne met rien dans le paramètre Title.
-- Gilbert
"Olivier" a écrit dans le message de news: 1ebe01c4fc6a$0e710f80$ Bonjour, Pour donner un aspect plus joli à la message box j'utilise Function FormattedMsgBox( _ Prompt As String, _ Optional Buttons As VbMsgBoxStyle = vbOKOnly, _ Optional Title As String = vbNullString, _ Optional HelpFile As Variant, _ Optional Context As Variant) _ As VbMsgBoxResult
If IsMissing(HelpFile) Or IsMissing(Context) Then FormattedMsgBox = Eval("MsgBox(""" & Prompt & _ """, " & Buttons & ", """ & Title & """)") Else FormattedMsgBox = Eval("MsgBox(""" & Prompt & _ """, " & Buttons & ", """ & Title & """, """ & _ HelpFile & """, " & Context & ")") End If End Function Comment éviter que la message box ne commence par "erreur" comment faire? Puisqu'il s'agit d'une question ou d'un avertissement. Olivier
Olivier
Bonjour, Il faut donc que je remplace:
Optional Title As String = vbNullString, _ Par exemple par:
Optional Title As String = "Attention", _
Je vais essayer, merci beaucoup. Olivier
-----Message d'origine----- Bonjour,
Le titre de la boite de message est 'erreur' si tu ne met rien dans le
paramètre Title.
-- Gilbert
"Olivier" a écrit dans le message de
news: 1ebe01c4fc6a$0e710f80$ Bonjour, Pour donner un aspect plus joli à la message box j'utilise Function FormattedMsgBox( _ Prompt As String, _ Optional Buttons As VbMsgBoxStyle = vbOKOnly, _ Optional Title As String = vbNullString, _ Optional HelpFile As Variant, _ Optional Context As Variant) _ As VbMsgBoxResult
If IsMissing(HelpFile) Or IsMissing(Context) Then FormattedMsgBox = Eval("MsgBox(""" & Prompt & _ """, " & Buttons & ", """ & Title & """)") Else FormattedMsgBox = Eval("MsgBox(""" & Prompt & _ """, " & Buttons & ", """ & Title & """, """ & _ HelpFile & """, " & Context & ")") End If End Function Comment éviter que la message box ne commence par "erreur" comment faire? Puisqu'il s'agit d'une question ou d'un avertissement. Olivier
.
Bonjour,
Il faut donc que je remplace:
Optional Title As String = vbNullString, _
Par exemple par:
Optional Title As String = "Attention", _
Je vais essayer, merci beaucoup.
Olivier
-----Message d'origine-----
Bonjour,
Le titre de la boite de message est 'erreur' si tu ne met
rien dans le
paramètre Title.
--
Gilbert
"Olivier" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news: 1ebe01c4fc6a$0e710f80$a601280a@phx.gbl...
Bonjour,
Pour donner un aspect plus joli à la message box j'utilise
Function FormattedMsgBox( _ Prompt As String, _
Optional Buttons As VbMsgBoxStyle = vbOKOnly, _
Optional Title As String = vbNullString, _
Optional HelpFile As Variant, _
Optional Context As Variant) _
As VbMsgBoxResult
If IsMissing(HelpFile) Or IsMissing(Context) Then
FormattedMsgBox = Eval("MsgBox(""" & Prompt & _
""", " & Buttons & ", """ & Title & """)")
Else
FormattedMsgBox = Eval("MsgBox(""" & Prompt & _
""", " & Buttons & ", """ & Title & """, """ & _
HelpFile & """, " & Context & ")")
End If
End Function
Comment éviter que la message box ne commence par "erreur"
comment faire?
Puisqu'il s'agit d'une question ou d'un avertissement.
Olivier
Optional Title As String = vbNullString, _ Par exemple par:
Optional Title As String = "Attention", _
Je vais essayer, merci beaucoup. Olivier
-----Message d'origine----- Bonjour,
Le titre de la boite de message est 'erreur' si tu ne met rien dans le
paramètre Title.
-- Gilbert
"Olivier" a écrit dans le message de
news: 1ebe01c4fc6a$0e710f80$ Bonjour, Pour donner un aspect plus joli à la message box j'utilise Function FormattedMsgBox( _ Prompt As String, _ Optional Buttons As VbMsgBoxStyle = vbOKOnly, _ Optional Title As String = vbNullString, _ Optional HelpFile As Variant, _ Optional Context As Variant) _ As VbMsgBoxResult
If IsMissing(HelpFile) Or IsMissing(Context) Then FormattedMsgBox = Eval("MsgBox(""" & Prompt & _ """, " & Buttons & ", """ & Title & """)") Else FormattedMsgBox = Eval("MsgBox(""" & Prompt & _ """, " & Buttons & ", """ & Title & """, """ & _ HelpFile & """, " & Context & ")") End If End Function Comment éviter que la message box ne commence par "erreur" comment faire? Puisqu'il s'agit d'une question ou d'un avertissement. Olivier
.
Gilbert
Non il afut que tu mette le titre que tu veux avoir dans l'appel de la procédure.
FormattedMsgBox("Texte de ton message",Boutons, "Titre de ton message")
si tu utilises FormattedMsgBox("Texte de ton message",Boutons), sans préciser le titre, tu as "Erreur" par défaut
-- Gilbert
"Olivier" a écrit dans le message de news: 157a01c4fc81$c74b2d30$ Bonjour, Il faut donc que je remplace:
Optional Title As String = vbNullString, _ Par exemple par:
Optional Title As String = "Attention", _
Je vais essayer, merci beaucoup. Olivier
-----Message d'origine----- Bonjour,
Le titre de la boite de message est 'erreur' si tu ne met rien dans le
paramètre Title.
-- Gilbert
"Olivier" a écrit dans le message de
news: 1ebe01c4fc6a$0e710f80$ Bonjour, Pour donner un aspect plus joli à la message box j'utilise Function FormattedMsgBox( _ Prompt As String, _ Optional Buttons As VbMsgBoxStyle = vbOKOnly, _ Optional Title As String = vbNullString, _ Optional HelpFile As Variant, _ Optional Context As Variant) _ As VbMsgBoxResult
If IsMissing(HelpFile) Or IsMissing(Context) Then FormattedMsgBox = Eval("MsgBox(""" & Prompt & _ """, " & Buttons & ", """ & Title & """)") Else FormattedMsgBox = Eval("MsgBox(""" & Prompt & _ """, " & Buttons & ", """ & Title & """, """ & _ HelpFile & """, " & Context & ")") End If End Function Comment éviter que la message box ne commence par "erreur" comment faire? Puisqu'il s'agit d'une question ou d'un avertissement. Olivier
.
Non il afut que tu mette le titre que tu veux avoir dans l'appel de la
procédure.
FormattedMsgBox("Texte de ton message",Boutons, "Titre de ton message")
si tu utilises FormattedMsgBox("Texte de ton message",Boutons), sans
préciser le titre, tu as "Erreur" par défaut
--
Gilbert
"Olivier" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 157a01c4fc81$c74b2d30$a301280a@phx.gbl...
Bonjour,
Il faut donc que je remplace:
Optional Title As String = vbNullString, _
Par exemple par:
Optional Title As String = "Attention", _
Je vais essayer, merci beaucoup.
Olivier
-----Message d'origine-----
Bonjour,
Le titre de la boite de message est 'erreur' si tu ne met
rien dans le
paramètre Title.
--
Gilbert
"Olivier" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news: 1ebe01c4fc6a$0e710f80$a601280a@phx.gbl...
Bonjour,
Pour donner un aspect plus joli à la message box j'utilise
Function FormattedMsgBox( _ Prompt As String, _
Optional Buttons As VbMsgBoxStyle = vbOKOnly, _
Optional Title As String = vbNullString, _
Optional HelpFile As Variant, _
Optional Context As Variant) _
As VbMsgBoxResult
If IsMissing(HelpFile) Or IsMissing(Context) Then
FormattedMsgBox = Eval("MsgBox(""" & Prompt & _
""", " & Buttons & ", """ & Title & """)")
Else
FormattedMsgBox = Eval("MsgBox(""" & Prompt & _
""", " & Buttons & ", """ & Title & """, """ & _
HelpFile & """, " & Context & ")")
End If
End Function
Comment éviter que la message box ne commence par "erreur"
comment faire?
Puisqu'il s'agit d'une question ou d'un avertissement.
Olivier
Non il afut que tu mette le titre que tu veux avoir dans l'appel de la procédure.
FormattedMsgBox("Texte de ton message",Boutons, "Titre de ton message")
si tu utilises FormattedMsgBox("Texte de ton message",Boutons), sans préciser le titre, tu as "Erreur" par défaut
-- Gilbert
"Olivier" a écrit dans le message de news: 157a01c4fc81$c74b2d30$ Bonjour, Il faut donc que je remplace:
Optional Title As String = vbNullString, _ Par exemple par:
Optional Title As String = "Attention", _
Je vais essayer, merci beaucoup. Olivier
-----Message d'origine----- Bonjour,
Le titre de la boite de message est 'erreur' si tu ne met rien dans le
paramètre Title.
-- Gilbert
"Olivier" a écrit dans le message de
news: 1ebe01c4fc6a$0e710f80$ Bonjour, Pour donner un aspect plus joli à la message box j'utilise Function FormattedMsgBox( _ Prompt As String, _ Optional Buttons As VbMsgBoxStyle = vbOKOnly, _ Optional Title As String = vbNullString, _ Optional HelpFile As Variant, _ Optional Context As Variant) _ As VbMsgBoxResult
If IsMissing(HelpFile) Or IsMissing(Context) Then FormattedMsgBox = Eval("MsgBox(""" & Prompt & _ """, " & Buttons & ", """ & Title & """)") Else FormattedMsgBox = Eval("MsgBox(""" & Prompt & _ """, " & Buttons & ", """ & Title & """, """ & _ HelpFile & """, " & Context & ")") End If End Function Comment éviter que la message box ne commence par "erreur" comment faire? Puisqu'il s'agit d'une question ou d'un avertissement. Olivier
.
Olivier
Bonjour, Ca c'est super en plus à chaque boîte de message on peut lui mettre un titre différent, alors que moi j'avais compris qu'il fallait faire comme ça: Function MsgBox( _ Prompt As String, _ Optional Buttons As VbMsgBoxStyle = vbOKOnly, _ Optional Title As String = "Message", _ Optional HelpFile As Variant, _ Optional Context As Variant) _ As VbMsgBoxResult Et là j'avais 'Message' pour tous les titres de boîte de dialogue. Merci, c'est génial. Olivier
-----Message d'origine----- Non il afut que tu mette le titre que tu veux avoir dans l'appel de la
procédure.
FormattedMsgBox("Texte de ton message",Boutons, "Titre de ton message")
si tu utilises FormattedMsgBox("Texte de ton message",Boutons), sans
préciser le titre, tu as "Erreur" par défaut
-- Gilbert
"Olivier" a écrit dans le message de
news: 157a01c4fc81$c74b2d30$ Bonjour, Il faut donc que je remplace:
Optional Title As String = vbNullString, _ Par exemple par:
Optional Title As String = "Attention", _
Je vais essayer, merci beaucoup. Olivier
-----Message d'origine----- Bonjour,
Le titre de la boite de message est 'erreur' si tu ne met rien dans le
paramètre Title.
-- Gilbert
"Olivier" a écrit dans le message de
news: 1ebe01c4fc6a$0e710f80$ Bonjour, Pour donner un aspect plus joli à la message box j'utilise
Function FormattedMsgBox( _ Prompt As String, _ Optional Buttons As VbMsgBoxStyle = vbOKOnly, _ Optional Title As String = vbNullString, _ Optional HelpFile As Variant, _ Optional Context As Variant) _ As VbMsgBoxResult
If IsMissing(HelpFile) Or IsMissing(Context) Then FormattedMsgBox = Eval("MsgBox(""" & Prompt & _ """, " & Buttons & ", """ & Title & """)") Else FormattedMsgBox = Eval("MsgBox(""" & Prompt & _ """, " & Buttons & ", """ & Title & """, """ & _
HelpFile & """, " & Context & ")") End If End Function Comment éviter que la message box ne commence par "erreur"
comment faire? Puisqu'il s'agit d'une question ou d'un avertissement. Olivier
.
.
Bonjour,
Ca c'est super en plus à chaque boîte de message on peut
lui mettre un titre différent, alors que moi j'avais
compris qu'il fallait faire comme ça:
Function MsgBox( _
Prompt As String, _
Optional Buttons As VbMsgBoxStyle = vbOKOnly, _
Optional Title As String = "Message", _
Optional HelpFile As Variant, _
Optional Context As Variant) _
As VbMsgBoxResult
Et là j'avais 'Message' pour tous les titres de boîte de
dialogue.
Merci, c'est génial.
Olivier
-----Message d'origine-----
Non il afut que tu mette le titre que tu veux avoir dans
l'appel de la
procédure.
FormattedMsgBox("Texte de ton message",Boutons, "Titre de
ton message")
si tu utilises FormattedMsgBox("Texte de ton
message",Boutons), sans
préciser le titre, tu as "Erreur" par défaut
--
Gilbert
"Olivier" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news: 157a01c4fc81$c74b2d30$a301280a@phx.gbl...
Bonjour,
Il faut donc que je remplace:
Optional Title As String = vbNullString, _
Par exemple par:
Optional Title As String = "Attention", _
Je vais essayer, merci beaucoup.
Olivier
-----Message d'origine-----
Bonjour,
Le titre de la boite de message est 'erreur' si tu ne met
rien dans le
paramètre Title.
--
Gilbert
"Olivier" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news: 1ebe01c4fc6a$0e710f80$a601280a@phx.gbl...
Bonjour,
Pour donner un aspect plus joli à la message box
j'utilise
Function FormattedMsgBox( _ Prompt As String, _
Optional Buttons As VbMsgBoxStyle = vbOKOnly, _
Optional Title As String = vbNullString, _
Optional HelpFile As Variant, _
Optional Context As Variant) _
As VbMsgBoxResult
If IsMissing(HelpFile) Or IsMissing(Context) Then
FormattedMsgBox = Eval("MsgBox(""" & Prompt & _
""", " & Buttons & ", """ & Title & """)")
Else
FormattedMsgBox = Eval("MsgBox(""" & Prompt & _
""", " & Buttons & ", """ & Title & """, """ &
_
HelpFile & """, " & Context & ")")
End If
End Function
Comment éviter que la message box ne commence
par "erreur"
comment faire?
Puisqu'il s'agit d'une question ou d'un avertissement.
Olivier
Bonjour, Ca c'est super en plus à chaque boîte de message on peut lui mettre un titre différent, alors que moi j'avais compris qu'il fallait faire comme ça: Function MsgBox( _ Prompt As String, _ Optional Buttons As VbMsgBoxStyle = vbOKOnly, _ Optional Title As String = "Message", _ Optional HelpFile As Variant, _ Optional Context As Variant) _ As VbMsgBoxResult Et là j'avais 'Message' pour tous les titres de boîte de dialogue. Merci, c'est génial. Olivier
-----Message d'origine----- Non il afut que tu mette le titre que tu veux avoir dans l'appel de la
procédure.
FormattedMsgBox("Texte de ton message",Boutons, "Titre de ton message")
si tu utilises FormattedMsgBox("Texte de ton message",Boutons), sans
préciser le titre, tu as "Erreur" par défaut
-- Gilbert
"Olivier" a écrit dans le message de
news: 157a01c4fc81$c74b2d30$ Bonjour, Il faut donc que je remplace:
Optional Title As String = vbNullString, _ Par exemple par:
Optional Title As String = "Attention", _
Je vais essayer, merci beaucoup. Olivier
-----Message d'origine----- Bonjour,
Le titre de la boite de message est 'erreur' si tu ne met rien dans le
paramètre Title.
-- Gilbert
"Olivier" a écrit dans le message de
news: 1ebe01c4fc6a$0e710f80$ Bonjour, Pour donner un aspect plus joli à la message box j'utilise
Function FormattedMsgBox( _ Prompt As String, _ Optional Buttons As VbMsgBoxStyle = vbOKOnly, _ Optional Title As String = vbNullString, _ Optional HelpFile As Variant, _ Optional Context As Variant) _ As VbMsgBoxResult
If IsMissing(HelpFile) Or IsMissing(Context) Then FormattedMsgBox = Eval("MsgBox(""" & Prompt & _ """, " & Buttons & ", """ & Title & """)") Else FormattedMsgBox = Eval("MsgBox(""" & Prompt & _ """, " & Buttons & ", """ & Title & """, """ & _
HelpFile & """, " & Context & ")") End If End Function Comment éviter que la message box ne commence par "erreur"
comment faire? Puisqu'il s'agit d'une question ou d'un avertissement. Olivier
