Bonjour a tous
jai les yeux qui piquent!!
Qlq1 voit où est le pb?
le colage final ne se fait pas
Sub aze()
Dim toto As String
NSAIGE = Range("B2").Value
Workbooks.Open ("C:\Documents and Settings\bcap.xls")
For n = 3 To Range("A1").End(xlDown).Row
If Cells(n, 1).Value = NSAIGE Then
Cells(n, 1).Offset(0, 2).Select
Selection.Copy
Windows("Classeur21.xls").Activate
For i = 1 To Range("d1").End(xlDown).Row
If Cells(i, 1) = "TRA08F" Then
Range(i, 1).Offset(0, 4).Select
ActiveSheet.Paste
End If
Next
End If
Next
End Sub
jai les yeux qui piquent!!
Qlq1 voit où est le pb?
le colage final ne se fait pas
Sub aze()
Dim toto As String
NSAIGE = Range("B2").Value
Workbooks.Open ("C:\Documents and Settings\bcap.xls")
For n = 3 To Range("A1").End(xlDown).Row
If Cells(n, 1).Value = NSAIGE Then
Cells(n, 1).Offset(0, 2).Select
Selection.Copy
Windows("Classeur21.xls").Activate
For i = 1 To Range("d1").End(xlDown).Row
If Cells(i, 1) = "TRA08F" Then
Range(i, 1).Offset(0, 4).Select
ActiveSheet.Paste
End If
Next
End If
Next
End Sub