question comment mettre en gras dans une msgbox

Bonjour,
je suis un débutant en VB
je voudrais mettre en gras ou en couleur dans un msg box

voici un ex de msg box : 
le schéma 18-4-94 s´apelle chat
le schéma 18-4-94 est a un numéro d´articles E 5011
et à un modèle 001
je voudrais mettre chat, E 5011 et 001 en gras ou en couleur

merci

Sub Obtenirlaréférence2()
Dim msg As String
Dim Reponse As VbMsgBoxResult
Dim articledereference As String
Dim croix As String
Dim modell As String
Dim croix1 As String

On Error GoTo Erreur

Reessayer:
   Application.ScreenUpdating = False
   Sheets("Tabelle1").Activate
   Numpiece = InputBox("le nom de schéma : ")
   If Numpiece = vbNullString Then GoTo Erreur
   Sheets("Tabelle1").Range("B3").Select
   msg = vbNullString
   Do
       ActiveCell.Offset(1, 0).Select
       nomdeschematest = WorksheetFunction.VLookup(Numpiece, Range("tableau"), 8, False)
       If nomdeschematest = vbNullString Then msg = "le schéma est inconnu"
       If ActiveCell.Value = Numpiece Then
            Nomdeschema = ActiveCell.Offset(0, 7).Value
            msg = msg & "le schéma " & Numpiece & " s'apelle  " & Nomdeschema
            croix = ActiveCell.Offset(0, 1).Value
           
            Select Case croix
                Case "N": msg = msg & vbCrLf & "le schéma n'a aucun numéro d'articles"
                Case vbNullString: msg = msg & vbCrLf & "mais le schéma n'existe plus"
                Case "J", "-": articledereference = ActiveCell.Offset(0, 4).Value
                               msg = msg & vbCrLf & "le schéma " & Numpiece & " a un numéro d'articles  " & articledereference
            End Select
  
            croix1 = ActiveCell.Offset(0, 5).Value
            Select Case croix1
                Case vbNullString: msg = msg & vbCrLf & "et à plusieurs modèles "
                Case "N": msg = msg & vbCrLf & vbNullString
                Case "U": msg = msg & vbCrLf & vbNullString
                Case "X": msg = msg & vbCrLf & "et à un modèle  " & modell
            End Select
            msg = msg & Chr(13) & vbCrLf
        End If
   Loop While ActiveCell.Value <> Empty
  
   Call MsgBox(msg, vbOKOnly)
Exit Sub
Erreur:
  If Nomdeschema = vbNullString Or Numpiece = vbNullString Then msg = " le schéma est inconnu.réessayer? "
  Reponse = MsgBox(msg, vbYesNo)
  If Reponse = vbYes Then GoTo Reessayer
End Sub

Bonjour,

Tu as déjà un post sur le sujet, On t'a répondu que ce n'était pas possible que tu devais créer ta propre form pou faire ce que tu souhaite c'est à dire, mettre en couleur et en gras.
Le fait de reposter le même message a plutot tendance à enerver qu'autre chose. Une premiere réponse t'est parvenue. Si tu n'a pas compris ou tu veux d'autres réponses soit patient...
Bonne journée
Bon courage

S.L.B.

---

*********************************************************************************
<>

Excusez moi mais quelqu´un m´a dit de changer de dossier

comment je fais pour insérer un userform dans la macro svp

je dirais crée une feuile et utilise

load Nomdetafeuille
Nomdetafeuille.show

Le chameau peut travailler 8 jours sans boire. Je peux boire 8 jours sans travailler

Pourrez tu etre plus précis merci mieux détailler ta réponse

bien sur

dans ton projet vb tu fait new form
tu change la proprieté name pour frmNomdemafeuille

ensuite dans le code de ta macro tu fai ce que j'ai ecri la dessus.

sur la feuille tu ajoute un label pour afficher le texte que tu veu et deux boutons (Ok et annuler je suppose) Dans le label la proprieté caption permet de changer le texte, et font permet de gerer la couleur, police, gras/Italique etc...

voila si t'a plus de questions hesite pas a preciser

Le chameau peut travailler 8 jours sans boire. Je peux boire 8 jours sans travailler

Excusez moi j´ai pas compris la première phrase " projet vb new form"

dans l'editeur visual basic, tu clique droit sur ton projet (a gauche dans une fenetre, ecris en gras (ca doit s'appeler du nom de ton document normalement..) et tu clique sur insertion UserForm. La une fenetre apparait et voila c de ca que je parlais

Le chameau peut travailler 8 jours sans boire. Je peux boire 8 jours sans travailler

en fait je crée un bouton userform mais cmt je vais l´insérer dans le code

un bouton???

je t'ai ecris le code a inserer.

la ou tu ecrivais msgbox "blabla", tu ecris maintenant

load frmmafeuille
frmmafeuille.show

avant tu utilisait une fenetre toute faite de VB, mais tu veu des fonctionnalitées qu'elle n'a pas, donc il faut que tu la cree toi meme..
Le chameau peut travailler 8 jours sans boire. Je peux boire 8 jours sans travailler