problème de macro

[archi]

Bjr,
Rénato ma conçu une macro de ce type:

------------------------------
Sub Macro1()
'
'
' Macro enregistrée le 16/06/2005 par Rénato
'

'
Range('B5').Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets(Range('D2').Value).Select
Range('A65536').Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range('a1').Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.CurrentRegion.Select
Selection.Sort Key1:=Range('A4'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Sheets('Saisie').Select
Range('C2').Select
End Sub
------------------------

Cependant, j'ai une formule (somme des données) qui se situe à la fin de chaque tableau, hors cette macro me supprime cette ligne
d'où ma question, comment faire pour que cette ligne soit repoussée a chaque fois à la dernière ligne de mon tableau ??

étant débutant dans le VBA, je ne sais pas comment procéder ??

merci de votre aide
@+

Message édité par: archi, à: 20/06/2005 12:41

 

[CBernardT]

Re Archi,

J'ai testé la macro et je suppose que tu parles des points obtenus avec la formule SOMMEPROD en jaune.

Cette formule fait la somme des points des victoires et des défaites. Je ne vois pas d'erreur ???

Peux-tu svp m'expliquer ce qui te chagrines.

A+

Bernard

 

[archi]

je te joint mon fichier tu comprendra mieux

merci [file name=Test_BDV6.zip size=38938]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Test_BDV6.zip[/file]

 

[CBernardT]

Re Archi,

J'ai modifié les macros pour qu'elles ne copient que les valeurs et les formats.

Cordialement

Bernard [file name=Test_BDV6_20050630002441.zip size=35686]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Test_BDV6_20050630002441.zip[/file]

 

[archi]

merci pour tous

dernière chose,

peux tu appliquer la même chose pour la macro qui concerne la saisie individuel ??

merci d'avance

 

[CBernardT]

Bonjour Archi,

J'ai apporté quelques modifications pour arriver à un collage des données sans problème.

Cordialement

Bernard [file name=Test_BDV6_20050630102738.zip size=33554]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Test_BDV6_20050630102738.zip[/file]

 

[archi]

Merci Bernard

@+