Problème avec macro pour comparer la valeur de 2 cellules de 2 colonnes différentes avec Msg box

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:

---

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.

Je ne comprend pas les 2 for imbriqués

les valeurs de la colonne E doivent être inférieures à toutes les valeurs de la colonne D ?????

si tu veux comparer a la valeur sur la même ligne un for doit être suffisant

ou utiliser un format conditionnel (en rouge si la valeur est supérieure)

Salut,

Je vais dans le même sens que a_diard.

Il faut comparer les contenus des colonnes D et E de la même ligne. Donc avec une seul boucle et un seul indice.

Au niveau du code, cela donne un truc de ce style.

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_Change(ByVal Target As Range) For i = 5 To 20 VALEURA = Range("E" & i).Value VALEURB = Range("D" & i).Value If VALEURA > VALEURB Then MsgBox ("Valeur supérieure => ligne " & i) Exit Sub End If Next i End Sub

---

J'ai ajouter un exit sub pour mettre fin à la macro dès qu'on a trouver la ligne qui va bien.

PS : pense à indenter (décaler) le texte de ton code quand il y a des boucles et ou tests. C'est tout de suite plus lisible;)

Bonjour
Bien malin serait celui qui pourrait répondre avec certitude à la question posée, telle que posée. Elle est floue, cette question.
J'observe qu'il y est fait allusion à des additions de cellules(****). S'agit-il d'additions de valeurs sur la même ligne (auquel cas une seule boucle suffit en effet) ou d'additions cumulées en colonne E sur les lignes suivantes (auquel cas ce sont deux boucles, mais la deuxième utilisant alors i + j)
**** quelle était la nécessité de préciser que les valeurs dans E étaient celles d'additions s'il ne s'agissait que de comparer, sur la même ligne, D et E ? (précision inutile ? ou autre ? je n'en sais rien ...)

bonsoir,
Si comme le devine unparia les cellules à additionner ou autre se trouve sur la même ligne si on utilise l'événement _Change alors on peut utiliser le paramètre Target de la procédure, voici un code qui fonctionne dans ce cas :

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range) If Cells(Target.Row, 4) <= Cells(Target.Row, 5) Then MsgBox ("Valeur supérieure => ligne " & Target.Row) End If End Sub

---

avec ces données :
Pièce jointe 242636

cordialement
geogeo

Bonjour,

si le but est de visualiser des erreurs ou écarts, ne jamais oublier les mises en forme conditionnelles
si le but est de réaliser un traitement sur ces erreurs ou écarts, la formule logique utilisée sur la MEF sera la même mais à écrire en VBA
si le but est de lister les lignes sur une feuille excel, par formule également c'est possible


on a le choix, mais on ne peut pas cerner le besoin car on ne connait pas la finalité réelle.

Merci à tous. Je n'avais pas été claire dans l'énoncé effectivement. Les solutions proposées sont parfaites. YOu are awesome :)