fufu33 | 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 :
- [cpp]Sub SearchEngine()
- Application.ScreenUpdating = False
- Dim y As String
- Sheets("DataBase" ).Select
- enginenumber = InputBox("Enter engine number to find" + vbCrLf + "Example: 0654874", "Find engine number", "0000000" )
- If enginenumber = Cancel Then Exit Sub
- nbl1 = Sheets("DataBase" ).Range("A65536" ).End(xlUp).Row
- For i = 4 To nbl1 Step 1
- If Sheets("DataBase" ).Cells(i, 2) = enginenumber Then
- Line = i
- GoTo suite1
- End If
- Next i
- MsgBox ("Engine number isn't on the Database" )
- GoTo fin
- suite1:
- For i = 1 To 4 Step 1
- Message = Message + vbCrLf + Sheets("DataBase" ).Cells(3, i) & " " & Sheets("DataBase" ).Cells(Line, i)
- Next i
- Message = Message + vbCrLf
- For i = 8 To 33 Step 1
- If i <= 16 Then
- If Sheets("DataBase" ).Cells(Line, i) = "" Then
- Message = Message & vbCrLf & "Item " & i - 7 & ": NO CONCERNS"
- Else
- If Sheets("DataBase" ).Cells(Line, i) <> "" And Sheets("DataBase" ).Cells(Line, i).Font.ColorIndex = 5 Then
- Message = Message & vbCrLf & "Item " & i - 7 & ": " & Sheets("DataBase" ).Cells(Line, i)
- Else
- Message = Message & vbCrLf & "Item " & i - 7 & ": " & Sheets("DataBase" ).Cells(Line, i)
- End If
- End If
- Else
- If Sheets("DataBase" ).Cells(Line, i) = "" Then
- Message = Message & vbCrLf & "Item " & i - 7 & ": NO CONCERNS"
- Else
- If Sheets("DataBase" ).Cells(Line, i) <> "" And Sheets("DataBase" ).Cells(Line, i).Font.ColorIndex = 5 Then
- Message = Message & vbCrLf & "Item " & i - 7 & ": " & Sheets("DataBase" ).Cells(Line, i)
|
Code :
- Else
- Message = Message & vbCrLf & "Item " & i - 7 & ": " & Sheets("DataBase" ).Cells(Line, i)
- End If
- End If
- End If
- Next i
- MsgBox (Message)
- fin:
- Application.ScreenUpdating = True
- End Sub
|
[/cpp]
Les phrases de couleur rouge sont celles ou je souhaiterai que le message apparaisse en bleu
Merci d'avance. |