Discussion :

[ElPibeOro]

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

[Jean-Philippe André]

Hello,

ton MsgBox est dans ta boucle For Each, il faut l'en extraire.

Reste à voir le texte de l'alerte que tu souhaiteras.

Autre point, tu peux remplacer le "compliqué"

Code :

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

Ligne = Val(Mid(Cell.Address, InStr(2, Cell.Address, "$") + 1))

par

Code :

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

Ligne = Cell.Row

une boucle

Code :

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

For i = 2 to 7

aurait fait l'affaire aussi

[ElPibeOro]

Déjà merci pour ta réponse.

Le problème avec ta solution, c'est que ça résout le problème de la redondance, mais ça n'affiche l'alerte que pour le premier territoire.

En fait, j'ai 6 territoires différents dont 4 sont en alertes. Je voudrais une alerte par territoire...

[Jean-Philippe André]

Ca revient donc à la question que j'ai posé, tu dis vouloir avoir seulement le premier oui, mais quid de l'alerte ?
- un message avec la concaténation de tous les territoires ?
- n messages ?