Salut Marion !
Regarde la macro et l'exemple joint :
Sub Macro1()
Dim Onglet As String
Onglet = Sheets(1).Range('C2').Value
With Sheets(Onglet)
.Range('F65536').End(xlUp).Offset(1, 0) = Sheets('DONNEE').Range('A2').Value
.Range('I65536').End(xlUp).Offset(1, 0) = Sheets('DONNEE').Range('B2').Value
.Range('H65536').End(xlUp).Offset(1, 0) = Sheets('DONNEE').Range('D2').Value
.Range('G65536').End(xlUp).Offset(1, 0) = Sheets('DONNEE').Range('E2').Value
End With
Sheets('Donnee').Range('A2:E2').ClearContents
End Sub
Il y a une chose que je n'ai pas bien saisie :
Tu demandes d'effacer à la fin de la macro de A2à E300 !
Celà voudrait-il dire que les données à recopier en une seule fois peuvent prendre plus d'une ligne ?
Dans ce second cas, cela changerait la macro !
@ +++
Moa [file name=marion9_20050509205248.zip size=10501]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/marion9_20050509205248.zip[/file]
Message édité par: Moa, à: 09/05/2005 20:54