Bonjour à tous,

J'ai une problématique sur un tableau avec des valeurs colonnes D et E à comparer. En colonne D la valeur est figée, en colonne E les valeurs sont une addition de plusieurs cellules à renseigner à la mano. Je voudrais établir un msgbox quand la valeur de la cellule E est supérieure à celle de la D. Mes valeurs s'étendent des lignes 5 à 117.
Voici ce que j'ai fait mais ça bloque, en répétition, la macro ne comprend qu'il doit passer par chaque cellule pour contrôler les caleurs supérieures et le message boucle si une valeur est supérieure.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
For i = 5 To 117
VALEURA = Range("E" & i).Value
For j = 5 To 117
VALEURB = Range("D" & j).Value
If VALEURA > VALEURB Then
MsgBox ("Valeur supérieure => ligne " & j)
End If
Next j
Next i
End Sub
Quelqu'un aurait une idée?

merci d'avance.
Cdlt.