Discussion :

[scully2501]

Bonjour,

j'utilise la fonction MsgBoxEx créé par arkham46.
http://arkham46.developpez.com/artic...sgboxplus/doc/

J'aimerais avoir un complément d'information concernant une solution que je recherche.

POur info j'ai opté pour le RTF ecrit directement dans le code.

Dans mon code ci joint le RTF:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
boutonmessage = "Please place the Form back in the Ongoing directory"
 
Message = "{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fswiss\fcharset0 arial;}}" & vbCrLf & _
             "{\*\generator Msftedit 5.41.15.1515;}\viewkind4\uc1\pard\f0\fs25 " & vbCrLf & _
             "\par" & vbCrLf & _
             "\qc Form not found in proper directory:\par" & vbCrLf & _
             "\par" & vbCrLf & _
             "\b " & boutonmessage & " \b0 " & vbCrLf & "\par" & vbCrLf & _
             "\par" & vbCrLf & _
             "}\qc0"
 
'appel de la procedure qui tranforme le format rtf en message
Call MsgBoxEx(Message, vbCritical, "ERROR DELETED", , , _
                  RGB(240, 250, 240), , , , False)

Ce message s'affiche très bien en Arial, j'aimerais écrire un autre message dans la même msgbox mais en time roman et non plus en Arial.

Comment puis je faire pour afficher deux messages dans deux caractères différents dans la même msgbox (je n'ai pas reussi à trouver de solution)?

Cela m'éviterai d'afficher deux msgbox à la suite de caractères différents.

[scully2501]

Apres pas mal d'heure de recherche j'ai trouvé la solution.
Pour ceux que ça intéresse.

Voici un exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
boutonmessage2 = "sUmdak;rMrg;edImeTAkñúgesovePArayeQaµHnigTIkEnøgEdlkMBugdM eNIrkar"
 
'format rtf = format word
Message = "{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fswiss\fcharset0 arial;}{\f1\fswiss\fcharset0 Limon S1;}}" & vbCrLf & _
             "{\*\generator Msftedit 5.41.15.1515;}\viewkind4\uc1\pard\f0\fs25 " & vbCrLf & _
             "\par" & vbCrLf & _
             "\qc Form not found in proper directory:\par" & vbCrLf & _
             "\par" & vbCrLf & _
             "\b " & boutonmessage & " \b0 " & vbCrLf & "\par" & vbCrLf & _
             "\par" & vbCrLf & _
             "\par" & vbCrLf & _
             "{\fs50 \f1 \b " & boutonmessage2 & " \b0} " & vbCrLf & "\par" & vbCrLf & _
             "\par" & vbCrLf & _
             "}\qc0"

Ça vient de ce bout de code situé au début du message RTF:

Code :

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

{\f0\fswiss\fcharset0 arial;}{\f1\fswiss\fcharset0 Limon S1;}

Ensuite il faut utiliser soir

Code :

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

 {\f0 texte}

pour Arial soit

Code :

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

{\f1 texte}

pour Limon S1.