MsgBox

[jo50160]

Salut à tous, J'ai un problème concernant mon MsgBox, je n'arrive pas a mettre icon VbCritical. Si quelqu'un peut m'aider. Merci.
Voici le code:
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With TextBox2
If Val(.Value) >= 29500 And Val(.Value) <= 30000 Then MsgBox ("Bougies d'allumage a changer avant 30 000 Kms")
If Val(.Value) >= 59500 And Val(.Value) <= 60100 Then MsgBox ("Filtre à air a changer avant 60 000 Kms")
If Val(.Value) >= 89500 And Val(.Value) <= 90000 Then MsgBox ("Courroie de distribution" & Chr(10) & "Courroie d'accessoires" & Chr(10) & "Liquide de frein" & Chr(10) & "Liquide de refroidissemnt" & Chr(10) & "A changer avant 90 000 kms")
Rep = MsgBox(Prompt, vBcritical)
End With
End Sub

 

[PascalXLD]

Re : MsgBox

Bonjour

a part le fait que tu n'as pas de variable prompt j'ai fait un test avec

rep = MsgBox(prompt, vbCritical)

et pas de pbe

 

[Pierrot93]

Re : MsgBox

Bonjour Jo, Pascal

peut être en enlevant les parenthèses :

If Val(.Value) >= 29500 And Val(.Value) <= 30000 Then MsgBox "Bougies d'allumage a changer avant 30 000 Kms", vbCritical

bon après midi
@+

 

[jo50160]

Re : MsgBox

Un grand merci a vous deux, Je m'aperçois qu'il y avait juste les deux parenthèses qui me fesait défaut. Merci. A+