PB de code

spitfire378 à dit:

Bonjour a tous, j'ai créé un petit code comparatif qui ne veut pas marcher. Pourriez vous m'indiquer l'erreur ? Merci

Code:

Sub comparaison()

Dim i As Integer

For i = [B65000].End(xlUp).Row To 2 Step -1
    If Cells(i, 2) = Cells(i, 10) Then
    Range(Cells(i, 11), Cells(i, 14)).Copy
    Cells(i, 3).Paste
Next i

End Sub

Cliquez pour agrandir...

Sub comparaison()

Dim i As Integer

For i = [B65000].End(xlUp).Row To 2 Step -1
If Cells(i, 2) = Cells(i, 10) Then
Range(Cells(i, 11), Cells(i, 14)).Copy
Cells(i, 3).Select
ActiveSheet.Paste
End If
Next i

End Sub

Cliquez pour agrandir...

Sub comparaison()

Dim i As Long
Dim j As Long

For i = [A65000].End(xlUp).Row To 2 Step -1
For j = [J65000].End(xlUp).Row To 2 Step -1
If Cells(i, 1) = Cells(j, 10) Then
Range(Cells(j, 11), Cells(j, 14)).Copy
Cells(i, 3).Select
ActiveSheet.Paste
End If
Next j
Next i

End Sub

Cliquez pour agrandir...