Coleur dans MSGBOX

Coleur dans MSGBOX - VB/VBA/VBS - Programmation

Marsh Posté le 15-09-2008 à 10:21:42    

bonjour a tous,
 
je souhaiterai faire apparaitre un message box. Dans ce message box il y aurait plusieurs informations et je voudrais que certaines d'entre-elles soient d'une autre couleur(Bleu). Est-il possible de changer la couleur dans un message box?
 
Pour etre plus precis, je copie dans ce message box des donnees dont certaines sont en couleur bleu. Je souhaiterai que ces donnees apparaissent de la meme couleur.
 
mon code est le suivant:
 

Code :
  1. [cpp]Sub SearchEngine()
  3. Application.ScreenUpdating = False
  4. Dim y As String
  5. Sheets("DataBase" ).Select
  6. enginenumber = InputBox("Enter engine number to find" + vbCrLf + "Example: 0654874", "Find engine number", "0000000" )
  7. If enginenumber = Cancel Then Exit Sub
  9. nbl1 = Sheets("DataBase" ).Range("A65536" ).End(xlUp).Row
  10. For i = 4 To nbl1 Step 1
  11.     If Sheets("DataBase" ).Cells(i, 2) = enginenumber Then
  12.     Line = i
  13.     GoTo suite1
  14.     End If
  15. Next i
  16. MsgBox ("Engine number isn't on the Database" )
  17. GoTo fin
  18. suite1:
  20. For i = 1 To 4 Step 1
  21. Message = Message + vbCrLf + Sheets("DataBase" ).Cells(3, i) & "      " & Sheets("DataBase" ).Cells(Line, i)
  22. Next i
  23. Message = Message + vbCrLf
  24. For i = 8 To 33 Step 1
  25. If i <= 16 Then
  26.     If Sheets("DataBase" ).Cells(Line, i) = "" Then
  27.         Message = Message & vbCrLf & "Item " & i - 7 & ":        NO CONCERNS"
  28.     Else
  29.         If Sheets("DataBase" ).Cells(Line, i) <> "" And Sheets("DataBase" ).Cells(Line, i).Font.ColorIndex = 5 Then
  30.             Message = Message & vbCrLf & "Item " & i - 7 & ":        " & Sheets("DataBase" ).Cells(Line, i)
  31.         Else
  32.             Message = Message & vbCrLf & "Item " & i - 7 & ":        " & Sheets("DataBase" ).Cells(Line, i)
  33.         End If
  34.     End If
  35. Else
  36.     If Sheets("DataBase" ).Cells(Line, i) = "" Then
  37.         Message = Message & vbCrLf & "Item " & i - 7 & ":      NO CONCERNS"
  38.     Else
  39.         If Sheets("DataBase" ).Cells(Line, i) <> "" And Sheets("DataBase" ).Cells(Line, i).Font.ColorIndex = 5 Then
  40.             Message = Message & vbCrLf & "Item " & i - 7 & ":      " & Sheets("DataBase" ).Cells(Line, i)


       

Code :
  1. Else
  2.             Message = Message & vbCrLf & "Item " & i - 7 & ":      " & Sheets("DataBase" ).Cells(Line, i)
  3.         End If
  4.     End If
  5. End If
  6. Next i
  7. MsgBox (Message)
  8. fin:
  9. Application.ScreenUpdating = True
  11. End Sub

[/cpp]
 
Les phrases de couleur rouge sont celles ou je souhaiterai que le message apparaisse en bleu
Merci d'avance.

Reply

Marsh Posté le 15-09-2008 à 10:21:42   

Reply

Marsh Posté le 15-09-2008 à 11:40:47    

De ce que j'en ai lu sur le net, il n'est pas possible de modifier la couleur ou la police dans une msgbox....
Une solution serait de faire une userform avec une zone de texte et des boutons qui peuvent avoir des textes de differentes couleurs...

Message cité 1 fois

---------------
Si Le Travail C'est La Santé, Donnez Le Mien A Quelqu'un De Malade
Reply

Marsh Posté le 20-09-2008 à 19:04:12    

Moonschild a écrit :

De ce que j'en ai lu sur le net, il n'est pas possible de modifier la couleur ou la police dans une msgbox....
.


 
Bien sûr que si c'est possible (Win32 api)
Tout est toujours possible.
Mais il y a un tas d'aneries su le net..

Message cité 1 fois
Reply

Marsh Posté le 22-09-2008 à 09:30:48    

Stephen135 a écrit :


 
Bien sûr que si c'est possible (Win32 api)
Tout est toujours possible.
Mais il y a un tas d'aneries su le net..


I Apologize  :jap:  
(Ma solution de l'userform ne serait-elle pas tout de meme plus simple?)


---------------
Si Le Travail C'est La Santé, Donnez Le Mien A Quelqu'un De Malade
Reply

Marsh Posté le 23-09-2008 à 14:55:57    

Merci pour vos reponses mes j'ai opte sur l'affichage d'une feuille classique avec les donnees que je voulais avoir.
le fait est que je n'avais plus le temps pour chercher une solution telle que je voulais au depart alors j'ai choisi au plus simple.


Message édité par fufu33 le 23-09-2008 à 14:57:17
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed