JORDAN
XLDnaute Impliqué
Bonjour le Forum,
Voici mon problème :
Le code ci-dessous me permet de copier puis de coller des données. Mon 1er coller s'effectue
cells(10,1) et les suivants viennent dessous, mon soucis c'est que le 2ème coller vient bien cells(11,1) mais le 3ème coller efface le 2ème, il ne va pas cells(12,1)...
Merci pour vos infos
A+
Voici mon problème :
Le code ci-dessous me permet de copier puis de coller des données. Mon 1er coller s'effectue
cells(10,1) et les suivants viennent dessous, mon soucis c'est que le 2ème coller vient bien cells(11,1) mais le 3ème coller efface le 2ème, il ne va pas cells(12,1)...
Merci pour vos infos
A+
Code:
Dim i As Byte
Application.Goto Sheets('RESULTAT').Range('A1')
For i = 1 To Range('C65536').End(xlUp).Row
If Cells(i, 3).Value = NomFeuille Then
Range('A' & i & ':B' & i & ',D' & i).Select
Selection.Copy
Application.Goto Sheets(NomFeuille).Range('A9')
If Sheets(NomFeuille).Cells(10, 1).Value = '' Then
Sheets(NomFeuille).Cells(10, 1).Select
ActiveSheet.Paste
Sheets('RESULTAT').Select
Else
[color=#0000FF]Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
ActiveSheet.Paste
Sheets('RESULTAT').Select[/color]
End If
End If
Next i