Bonjour,

voila mon code qui est cense me mettre dans un book des differences entre deux autres books
le code lorsquil tourne ne me fait que le copies integrale des deux books d'une part.
d'autre part je souhaterai que lorsque je paste la cellule de mon premier book que la copy conserve le format comment faire?

enfin dernierre question suis oblige de passer par l'etape select pour faire un copier coller?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub Worksheet_Calculate()
 
 
Dim i As Integer
Dim j As Integer
j = 65
 
For i = 1 To Workbooks("Book1.xls").Worksheets("Sheet1").Range("A6553").End(xlUp).Row
 
If Workbooks("Book1.xls").Worksheets("Sheet1").Cells(i, 1) <> Workbooks("Book2").Worksheets("Sheet1").Cells(i, 1) Then Workbooks("Book1.xls").Worksheets("Sheet1").Cells(i, 1).Interior.Color = RGB(250, 0, 0)
Application.CutCopyMode = False
Workbooks("Book1.xls").Worksheets("Sheet1").Cells(i, 1).Copy_
Workbooks("feeddescrepancies.xls").Worksheets("Sheet1").Cells(j, 1).Select_
ActiveSheet.Paste_
Workbooks("Book2").Worksheets("Sheet1").Cells(i, 1).Copy_
Workbooks("feeddescrepancies.xls").Worksheets("Sheet1").Cells(j, 2).Select_
ActiveSheet.Paste_
Workbooks("feeddescrepancies.xls").Worksheets("Sheet1").Cells(j, 3) = Workbooks("Book1.xls").Worksheets("Sheet1").Cells(i, 1).Row_
 
j = j + 1
 
 
 
Next i
 
End Sub