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