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

Résolu
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. 

     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

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
    0
  2. fleur
     
    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.
    0