Discussion :

[AlousPondah]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Patrice740]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[AlousPondah]

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