Bonjour,

Mon problème est le suivant :

J'ai 4 tableaux croisés dynamiques qui alimentent un "tableau bilan".
Ces 4 tableaux permettent de calculer une enveloppe annuelle et des crédits affectés, et cela pour 5 territoires différents.
J'ai ensuite mis en place une macro qui permet qu'une alerte apparaissent lorsque les crédits affectés sont supérieures à l'enveloppe annuelle pour chaque territoire.

Le problème est que lorsque les crédits dépassent l'enveloppe et que l'alerte apparaît, je clique sur ok, et elle réapparait encore 3 fois à la suite (cela doit donc venir du fait que j'ai 4 TCD ==> 4 alertes identiques)

Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Explicit
Private Sub Worksheet_Calculate()
 
Dim plage As Range
Dim Cell As Range
Dim Enveloppe
Dim Territoire As String
Dim Ligne As Integer
 
 
Set plage = Range("J2:J7")
 
For Each Cell In plage
        Ligne = Val(Mid(Cell.Address, InStr(2, Cell.Address, "$") + 1))
        Enveloppe = Range("G" & Ligne)
        Territoire = Range("B" & Ligne)
        If Range("J" & Ligne) < 0 Then
            MsgBox Territoire & " :" & Chr(10) & "Crédit Affecté sup à enveloppe ", vbOKOnly + vbExclamation, "ATTENTION"
        End If
Next
 
End Sub

Avez-vous une idée d'où ce problème peut venir ?

Merci d'avance pour vos réponses