Excel - Comparer valeurs (somme/nombre) de deux colonnes

Résolu/Fermé

fleur - 28 oct. 2014 à 22:24
fleur - 30 oct. 2014 à 00:05

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.

A voir également:

Excel - Comparer valeurs (somme/nombre) de deux colonnes
Liste déroulante excel - Guide
Somme excel - Guide
Somme si couleur excel - Guide
Déplacer une colonne excel - Guide
Fusionner deux colonnes excel - Guide

2 réponses

Réponse 1 / 2

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
29 oct. 2014 à 08:06

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

Réponse 2 / 2

fleur
30 oct. 2014 à 00:05

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.

Discussions similaires

somme dans excel toujours =0

Excel, Formule =SOMME ne fonctionne pas

Discussions similaires

Newsletters