Message d'alerte si valeur supèrieure

[nrdz83]

Bonjour à tous et bon dimanche,

voila je cherche à avoir une message box d'alerte lorsque le résultat d'une cellule (E2) est supèrieur à une cellule d'origine (C2) de ma feuille 'Feuil1"

Par avance merci à tous

 

[camarchepas]

Re : Message d'alerte si valeur supèrieure à celle d'origine

Bonjour ,,
Grace à la validation de données par exemple :

 

[BigDaddy154]

Re : Message d'alerte si valeur supèrieure à celle d'origine

Bonjour,

un essai voir si cela te conviens.

Cordialement.

 

[nrdz83]

Re : Message d'alerte si valeur supèrieure à celle d'origine

bonjour bigdaddy154 et camarchepas , super vous m'avez montré deux solutions.

Je n'avais pas pensé à la validation des données et c'ets tellement simple et logique grrrrrrrr.

merci pour tout bonne fin de week end.

amitiés

 

[nrdz83]

Re : Message d'alerte si valeur supèrieure

Re bonjour à tous,
grâce à votre aide j'ai pu adapter votre code à mon projet et ça donne ceci :

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("U42") > Range("D42") Then 'U42 mesures prises et D42 mesure d'origine
   
   MsgBox "Les données renseignées ne sont pas cohérentes, elles sont supérieures à celles d'origines. ", vbOKOnly + vbExclamation, "Alerte sur la mesure contrôlée"
End If
' Message d'alerte lorsque l'usure du pendeur est supérieure à 30 %

If Range("M42") >= (30) Then 'M42 cellule du calcul du % d'usure in doit être inférieur ou égal à 30 %
   
   MsgBox "La limite de 30 % d'usure sur le pendeur est atteinte ou dépassée! ", vbOKOnly + vbCritical, "ALERTE ! . . . ."
End If


End Sub

Le petit problème c'es que souvent la msgbox d'alerte 30 % s'affiche lorsque je saisi des données dans la feuille.
Comment modifier ce code pour signaler que lorsqu'il n'y a pas de données dans la cellule M42 alors on ne fait rien.

Par avance merci pour vos lumières.

 

[Staple1600]

Re : Message d'alerte si valeur supèrieure

Bonjour à tous

nrdz83
Cela pourrait peut-être utile de retenir certaines infos présentes dans les fils auquel tu participes 😉
Exemple
https://www.excel-downloads.com/threads/liste-deroulante-choix-multiples-sans-formulaires.101042/
Voir le message #4 qui contient de quoi t'aider répondre à ceci par toi-même 😉

Comment modifier ce code pour signaler que lorsqu'il n'y a pas de données dans la cellule M42 alors on ne fait rien.

Un indice supplémentaire: Target.Address et aussi peut-être IsEmpty

 

[nrdz83]

Re : Message d'alerte si valeur supèrieure

Bonsoir Staple 1600

merci pour tes aiguillages j'ai fait ce code et ça à l'air de fonctionner

Private Sub Worksheet_Change(ByVal Target As Range)
'Message d'information si les données ne sont pas cohérentes
If Range("U42") > Range("D42") Then 'U42 mesures prises et D42 mesure d'origine
   
   MsgBox "Les données renseignées ne sont pas cohérentes, elles sont supérieures à celles d'origines. ", vbOKOnly + vbExclamation, "Alerte sur la mesure contrôlée"
End If

' Message d'alerte lorsque l'usure du pendeur est supérieure à 30 %
 If IsEmpty(Range("M42")) = True Then 'si la cellule M42 (% d'usure du pendeur) est vide alors on fait rien
   
   Else ' sinon
If Range("M42") >= (30) Then  'M42 cellule du calcul du % d'usure in doit être inférieur ou égal à 30 %
   MsgBox "La limite de 30 % d'usure sur le pendeur est atteinte ou dépassée! ", vbOKOnly + vbCritical, "ALERTE ! . . . ."
End If
End If

End Sub

merci amitiés