[Débutant][VBA] Message d'erreur

Bonjour à tous !

Je ne suis pas développeur, je bidouille juste un peu et aujourd'hui j'ai eu un ticket concernant une demande d'une utilisatrice qui voulais faire d'afficher un message d'erreur sur son fichier excel (fiche de budget) si le résultat final était différent de 0.

J'ai donc taper les quelques lignes suivantes :

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_Change(ByVal Target As Range)   If Range("AR43") <> 0 Then MsgBox "Anomalie sur cellule de contrôle" End If   End Sub

---

S'en suit 2 problèmes :

1: Le code fonctionne sur un des fichiers, mais pas sur l'autre (le message d'erreur s'affiche même si le résultat est égale à 0).

2: L'utilisatrice me demande maintenant si il est possible de faire en sorte que le message d'erreur ne s'affiche que lorsque qu'on change de feuille/d'onglet/quitte la page excel (pour éviter qu'il s'affiche en boucle lors de la saisie.
Et ça pour le coup, j'ai fait des recherches mais je n'ai aucune idée de comment faire...

Quelqu'un aurait des pistes de solutions ?

Bonjour,

Pour le changement de feuille, code dans le module de la feuille quittée :

Code:

---

1 2 3 4 5

Private Sub Worksheet_Deactivate() If Me.Range("AR43").Value <> 0 Then MsgBox "Anomalie sur cellule de contrôle : AR43 de " & Me.Name End If End Sub

---

Pour la fermuture d'Excel, code dans le module du classeur (Thisworkbook) ;

Code:

---

1 2 3 4 5

Private Sub Workbook_BeforeClose(Cancel As Boolean) If Worksheets("Feuil3").Range("AR43").Value <> 0 Then MsgBox "Anomalie sur cellule de contrôle : AR43 de Feuil3" End If End Sub

---

Testé sur les différents fichiers concernés et ça marche nickel merci !