Discussion :

[NEC14]

Bonjour,

Dans une application Excel, j'ai ce message qui s'affiche à l'ouverture du fichier. Est-il possible qu'il s'affiche en rouge et en gras ?
Merci par avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Dim mess
mess = MsgBox("ATTENTION ! Vous ne pourrez fermer ce fichier qu'avec le bouton FERMER à la page ACCUEIL", vbOKOnly)
If mess = vbOK Then
    Application.EnableEvents = True

[Invité]

Avec un peu de recherche:
http://www.developpez.net/forums/d10...leur-du-texte/
Le 'MsgBbox' de base ne permet pas la gestion des couleurs.

[NEC14]

Bonjour et merci pour votre réponse.

J'avais effectivement trouvé ce lien, mais je pensais qu'il y aurait eu un moyen plus simple. Apparemment ce n'est pas le cas.

Encore merci
Cordialement
René

[Invité]

bonjour,
Quel intérêt de faire : If mess = vbOK Then Application.EnableEvents = True
si tu n'autorise que vbOKOnly

[NEC14]

Bonjour,

Oui c'est certain, cela ne sert à rien. Merci de la remarque.

René