Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2716 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Coleur dans MSGBOX

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Coleur dans MSGBOX

n°1786807
fufu33
Posté le 15-09-2008 à 10:21:42  profilanswer
 

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

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

mood
Publicité
Posté le 15-09-2008 à 10:21:42  profilanswer
 

n°1786852
Moonschild
Posté le 15-09-2008 à 11:40:47  profilanswer
 

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...


---------------
Si Le Travail C'est La Santé, Donnez Le Mien A Quelqu'un De Malade
n°1789859
Stephen135
Posté le 20-09-2008 à 19:04:12  profilanswer
 

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..

n°1790260
Moonschild
Posté le 22-09-2008 à 09:30:48  profilanswer
 

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
n°1790920
fufu33
Posté le 23-09-2008 à 14:55:57  profilanswer
 

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

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Coleur dans MSGBOX

 

Sujets relatifs
msgbox et userform en plein ecranMsgBox de Confirmation
Envoyer MsgBox à tous les users du domaineMsgbox erreur de saisie
servlet & msgboxenvoyer un msgbox sur un autre poste en reseau
msgbox[VBS] Msgbox non bloquante
msgbox [VBA][Access] Pb avec fonction Date et MsgBox Error$
Plus de sujets relatifs à : Coleur dans MSGBOX


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR