[RESOLU- Lolote 83] Pb : Comparaison de "Value" en VBA sur chiffres à 2 décimales

[zebanx]

Bonjour à tous,

Une demande très simple sur le fichier suivant pour rapprocher en VBA des montants identiques mais le code ne donne pas satisfaction sur toutes les cellules concernées.
Constat que ça marche sur les valeurs non arrondies aux décimales mais je ne sais pas comment introduire une variable "double" dans la comparaison de .value (ie : chiffre de 40.20 commun aux deux colonnes).
Le round ici ne sert à rien )-

Je vous remercie pour vos précisions.
Bonne journée
thierry

-------------
Sub rapprochement()
Dim i As Integer, j, derligne, derligne2, k

derligne = Range("C" & Rows.Count).End(xlUp).Row
derligne2 = Range("E" & Rows.Count).End(xlUp).Row

k = 1

On Error Resume Next
For i = 1 To derligne
For j = 1 To derligne2
If Round(Cells(i, 3).Value, 3) = Round(Cells(j, 5).Value, 3) Then
Cells(i, 3).Interior.ColorIndex = k
Cells(j, 5).Interior.ColorIndex = k
k = k + 1
End If
Next j
Next i
Cells(1, 6).Select
End Sub

 

[Lolote83]

Salut ZEBANK,
Tu veux certainement parlé du fait que les cellules identiques 40.20 (dans ton exemple en C4 et E4) ne sont pas coloriées.
Cela est du au fait que tu incrémente la couleur via la variable K et que le valeur 2 est certainement du fond blanc donc invisible pour toi.
Remplace la variable K dans les lignes
Cells(i, 3).Interior.ColorIndex = k
Cells(j, 5).Interior.ColorIndex = k
par la valeur 1 pour exemple et tu verras qu'elles seront coloriées.
Enfin, si j'ai bien compris ta demande
@+ Lolote83

 

[zebanx]

Bonjour Lolote83

Ah oui... bon ben ça c'est fait...

Merci