reporter une fin de tableau

J

JJ

Guest
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]
 

Pièces jointes

  • exemple_20060423064536.zip
    2.6 KB · Affichages: 8

deudecos

XLDnaute Impliqué
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... :eek:

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

Nous a quitté
Repose en paix
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]
 

Pièces jointes

  • ReportJj.zip
    3.9 KB · Affichages: 16

ChTi160

XLDnaute Barbatruc
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
 

Pièces jointes

  • ReportJjV1.zip
    10.1 KB · Affichages: 11

ChTi160

XLDnaute Barbatruc
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
 
A

AV

Guest
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]
 

Pièces jointes

  • Decaler_20060423101233.zip
    6.2 KB · Affichages: 9

Discussions similaires

J
Réponses
2
Affichages
809
J
N
Réponses
1
Affichages
1 K
V
J
Réponses
6
Affichages
1 K
J
S
Réponses
2
Affichages
794
sandrine
S
B
Réponses
2
Affichages
1 K
Bertrand
B
P
Réponses
9
Affichages
1 K
philest
P
J
Réponses
5
Affichages
1 K
J

Statistiques des forums

Discussions
311 724
Messages
2 081 937
Membres
101 844
dernier inscrit
pktla