Comment ajouter un Chr (254) Windings dans une msgbox?
Le
Emile63

Bonjour à tous,
Je cherche à ajouter une tick de validation directement sur une msgbox=
, malheureusement j'ai une peu de peine à y arriver.
Est-ce que quelqu'un pourrait me venir en aide ?
(Ou me dire quelle est mon erreur?)
Je vous remercie d'avance
'--
Sub Test()
MsgBox ("Ceci est un test:" & (Chr(254).Font.Name = "Wingdings")), , "Tes=
t de case à cocher" '
End Sub
'--
Cordialement,
Emile
Je cherche à ajouter une tick de validation directement sur une msgbox=
, malheureusement j'ai une peu de peine à y arriver.
Est-ce que quelqu'un pourrait me venir en aide ?
(Ou me dire quelle est mon erreur?)
Je vous remercie d'avance
'--
Sub Test()
MsgBox ("Ceci est un test:" & (Chr(254).Font.Name = "Wingdings")), , "Tes=
t de case à cocher" '
End Sub
'--
Cordialement,
Emile
Bonjour,
Ce que tu demandes est impossible.
La police et la taille de la police de MsgBox/InputBox sont déterminées
par votre système et les paramètres d'affichage, elles ne peuvent pas
être modifiées par VBA.
Tu peux toujours utiliser une juxtaposition de textbox dans un
formulaire pour afficher ton message. (un petit textbox pour ton code
particulier
et tu lui attribues la police "Wingdings". Chaque textbox ne peut
contenir qu'une seule police de caractère.)
MichD