Message box

[J.-P.]

Bonjour,
Je cherche un code pour qu'un message s'affiche si dans une cellule le résultat de la formule est plus grand que 610, alors un message s'affiche pour me dire que le résultat est plus grand que 610.

Merci

J.-P.

 

[J.-P.]

Re : Message box

Salut,

Merci Jean-Marcel

Mais il me faut que le message vient sans que je tape dans la cellule mais que le message s'affiche lors d'un résultat de deux autres cellules.

Merci encore.

J.-P.

 

[J.-P.]

Re : Message box

Salut,

Merci Jean-Marcel

Mais il me faut que le message vient sans que je tape dans la cellule mais que le message s'affiche lors d'un résultat de deux autres cellules.

Merci encore.

J.-P.

 

[Compte Supprimé 979]

Re : Message box

Salut JP,

Tu peux utiliser ce que t'a donné JM mais en supprimant l'inersect

Private Sub Worksheet_Change(ByVal Target As Range)
' Si le resultat est contenu en A1
 If Range("A1").Value > 610 Then
    MsgBox " supérieur à 610"
 End If
End Sub

Ou si le resultat à tester se trouve sur chaque ligne

Private Sub Worksheet_Change(ByVal Target As Range)
' Si le resultat est contenu dans la colonne A
 If Range("A" & Target.Row).Value > 610 Then
    MsgBox " supérieur à 610"
 End If
End Sub

A+

 

[Staple1600]

Re : Message box

Bonsoir


Jean-Marcel
Si
If Range("A1") > 610
alors IsNumeric est forcément true non ?

Donc on peut se contenter (sauf erreur de ma part)
If Range("A1") > 610 Then

 

[J.-P.]

Re : Message box

Merci à tous,
Je vous joint un fichier pour mieux comprendre.

Salut

J.-P.

 

[J.-P.]

Re : Message box

Merci Jean-Marcel c'est super.

Salut