Excel - Comparer valeurs (somme/nombre) de deux colonnes
Résolu
fleur
-
fleur -
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.
Je vous remercie pour toute aide me permettant de résoudre le problème.
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.
A voir également:
- Excel - comparer 2 cellules nombre
- Formule excel pour additionner plusieurs cellules - Guide
- Liste déroulante excel - Guide
- Nombre de jours entre deux dates excel - Guide
- Fusionner 2 cellules excel - Guide
- Verrouiller cellules excel - Guide
2 réponses
Bonjour,
passez par des variables intermediaires
ex:
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