Message d'erreur avec annulation de saisie

[Barbapapa]

Bonjour à tous ! dans le fichier que j'ai joint, un code vba est présent pour afficher un message si un montant dans une cellule dépasse une certaine valeur.
Ce montant provient d'une autre cellule dans laquelle on inscrit un nombre.
Ce que je souhaite, c'est une modification du code vba (si c'est possible) pour que non seulement soit afficher un message d'alerte mais que en plus soit annulé la dernière action de saisie dans la cellule où l'on inscrit un nombre.
Merci d'avance
Frédéric

 

[bbb38]

Re : Message d'erreur avec annulation de saisie

Bonsoir Frédéric, le forum,
Une solution dans le fichier ci-joint. La feuille est protégée sans mot de passe, pour éviter que l’on modifie la cellule A1.
Cordialement,
Bernard

 

[Barbapapa]

Re : Message d'erreur avec annulation de saisie

Bonjour bbb38, et merci pour la réponse. Juste un problème, c'est qu'il faudrait que le code ne tienne pas compte de la valeur en A4 mais uniquement le résultat en A1, car le résultat peut provenir d'autres cellules. J'aurai du le préciser, désolé.
Bonne journée !
Frédéric

 

[job75]

Re : Message d'erreur avec annulation de saisie

Bonjour Barbapapa, bbb38,

Dans le code de la feuille, cette macro déclenchée par l'évènement Calculate :

Private Sub Worksheet_Calculate()
If [A1] >= 100 Then
  MsgBox "Le montant en A1 doit être inférieur à 100 !" & vbLf _
    & "La dernière action va être annulée !", 48
  On Error Resume Next 'si l'action ne peut pas être annulée
  With Application
    .EnableEvents = False 's'il y a une macro Worksheet_Change
    .Undo 'annule l'action
    .OnRepeat "", "" 'empêche de répéter l'action
    .EnableEvents = True
  End With
End If
End Sub

Mais certaines actions ne peuvent pas être annulées, celles faites par macro par exemple...

Fichier joint.

A+

 

[Barbapapa]

Re : Message d'erreur avec annulation de saisie

Bonsoir job75, un très grand merci pour votre solution. C'est ce que je cherchais.
Je vous souhaite une très bonne soirée
Amicalement
Frédéric