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