Salut JJ
bonjour Monique ,Olivier
une petite macro eh oui
à mettre dans un module du fichier ReportJj
Sub Transfert()
Dim Derlgn As Integer
Dim Lgn_Depart As Integer
Dim TabResult As Variant
With Worksheets('Feuil1')
Derlgn = .Range('A65536').End(xlUp).Row 'on détermine la derniere non vide du tableau
Lgn_Depart = Derlgn - 4 'ici on détermine la ligne de départ du tableau à reporter
.Range('M2:Q6').ClearContents 'efface la plage à modifier dans le fichier lol
TabResult = .Range(.Cells(Lgn_Depart, 1), .Cells(Derlgn, 5)).Value 'on remplie le tableau
.Range('M2').Resize(UBound(TabResult), UBound(TabResult, 2)) = TabResult 'on le colle
End With
End Sub
Bon Dimanche je retourne à mes travaux Lol [file name=ReportJjV1.zip size=10331]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ReportJjV1.zip[/file]
Message édité par: Chti160, à: 23/04/2006 08:55