Excel - Comparer valeurs (somme/nombre) de deux colonnes [Résolu/Fermé]

Signaler
-
 fleur -
Bonjour,

Je souhaite comparer les valeurs des cellules des colonnes I et J en commencant à la ligne 4 jusqu'à la dernière ligne non vide.
Dans certaines cellules j'ai le résultat d'une somme (exemple : =SOMME(K15:Q15)). Je veux comparer les valeurs et conserver les formules Somme existantes.
Le code ci-dessous ne fonctionne pas correctement pour toutes les lignes qui ont dans une colonne, un nombre, dans l'autre la formule somme.

     With ThisWorkbook.Sheets("Test")
For j = derlig To 4 Step -1
'Arrondi les chiffres à 3 décimales pour comparer
Range("I" & i).Value = Round(Range("I" & i).Value, 3)
Range("J" & i).Value = Round(Range("J" & i).Value, 3)
' comparaison valeurs entre I et J et couleur rouge cellule J si montant différent
If .Range("I" & j).Value <> .Range("J" & j).Value Then
.Range("J" & j).Interior.ColorIndex = 3
End If
Next j
End With


Je vous remercie pour toute aide me permettant de résoudre le problème.

2 réponses

Messages postés
15267
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
8 août 2020
1 323
Bonjour,

passez par des variables intermediaires

ex:
Sub test()
With ThisWorkbook.Sheets("Test")
derlig = 22
For j = derlig To 4 Step -1
'Arrondi les chiffres à 3 décimales pour comparer
ValColi = Round(.Range("I" & j).Value, 3)
Valcolj = Round(.Range("J" & j).Value, 3)
' comparaison valeurs entre I et J et couleur rouge cellule J si montant différent
If ValColi <> Valcolj Then
.Range("J" & j).Interior.ColorIndex = 3
End If
Next j
End With
End Sub
Bonsoir,
Super, un grand merci pour votre retour et réactivité.
Ceci fonctionne correctement sauf avec si la somme est composée de nombres qui ne sont pas eux avec 3 décimales.
Je vous remercie pour votre aide.