[VBA] code comparaison valeurs ne fonctionnant pas !

Option Explicit

Public Const SheetSource As String = "S-1"
Public Const SheetCible As String = "S"
Public Const SheetFinal As String = "Tableau"
Sub test1()

Dim WSSource As Worksheet, WSCible As Worksheet, WSFinal As Worksheet
Dim TabSource As Variant, TabCible As Variant, TabFinal As Variant
Dim i As Long, j As Long, x As Long, k As Long
Dim nbreWSSource As Long, nbreWSCible As Long

With ThisWorkbook
Set WSSource = Sheets(SheetSource)
Set WSCible = Sheets(SheetCible)
Set WSFinal = Sheets(SheetFinal)

nbreWSSource = WSSource.Cells(65536, 1).End(xlUp).Row
nbreWSCible = WSCible.Cells(65536, 1).End(xlUp).Row

End With

With WSSource
TabSource = Range(Cells(1, 1), Cells(nbreWSSource, 3))
End With

With WSCible
TabCible = Range(Cells(1, 1), Cells(nbreWSCible, 3))
End With


K=1
For i = 1 To nbreWSCible

For j = 1 To nbreWSSource

If TabSource(j, 1) = TabCible(i, 1) Then
If Not TabSource(j, 3) = TabCible(i, 3) Then


WSFinal.Cells(k, 1) = TabCible(i, 1)
WSFinal.Cells(k, 2) = TabCible(i, 3)
WSFinal.Cells(k, 3) = "changement"
k = k + 1

End If
End If
Next
Next

End Sub

Cliquez pour agrandir...