Discussion :

[Sophie385]

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.

[a_diard]

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)

[jerome.vaussenat]

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 :

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

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

[unparia]

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 ...)

[geogeo70]

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 :

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

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 :


cordialement
geogeo

[joe.levrai]

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.

[Sophie385]

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