reporter une fin de tableau

[JJ]

Bonjour et bon dimanche à tous,
j'ai presque fini mon tableau mais j'ai encore besoin de votre aide pour une formle qui me reporterait en haut de tableau les valeurs calculées plus bas et actualisées avec le nombre de lignes.
je joins un petit ex.
Merci
JJ [file name=exemple_20060423064536.zip size=2705]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exemple_20060423064536.zip[/file]

 

[deudecos]

Salut JJ, le forum,

Je ne suis pas certain d'avoir compris ce que tu voulais, mais dans le doute, je me lance quand meme... 😱

Si au lieu de faire un copier-collage special, tu faisais tout simplement reference a la cellule correspondante, c'est a dire, pour la premiere d'entre-elles, en D2 '=D36' et en E2 '=E36'.
De cette facon, tout changement sur ta feuille serait pris en compte automatiquement.

Bonne journee

Olivier

 

[Monique]

Bonjour,

Par formule
Formule matricielle, à valider par ctrl, maj et entrée [file name=ReportJj.zip size=3978]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ReportJj.zip[/file]

 

[ChTi160]

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

 

[ChTi160]

re Oui j'ai mis toutes les données des lignes à reporter ,la version light Lol
seules les colonnes D:E sont reportées Lol
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:N6').ClearContents 'efface la plage
TabResult = .Range(.Cells(Lgn_Depart, 4), .Cells(Derlgn, 5)).Value 'on remplie le tableau
.Range('M2').Resize(UBound(TabResult), UBound(TabResult, 2)) = TabResult 'on le colle
End With
End Sub

arffff

 

[AV]

Ave,

Avec ou sans colonnes intermédiaires de calculs, il me semble que ton problème et sa(une) solution, sont typiques de la fonction DECALER.

AV [aaa]

 

[AV]

Avec le fichier c'est mieux !

AV [aaa] [file name=Decaler_20060423101233.zip size=6330]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Decaler_20060423101233.zip[/file]

 

[JJ]

merci à vous tous et Bon dimanche
JJ