Problèmes macro

[Feever]

Bonjour,

J'ai crée une macro "Transfert" dans un fichier, afin de recopier les lignes d'une feuille dans une autre.
Mais la recopie se fait à l'envers ! La dernière ligne se retrouve en première position, etc...
Ci-joint fichier pour plus d'informations ( le bouton de la macro se situe en A2 de la feuille Cumul, la recopie doit se faire dans la feuille Liste).
Merci pour votre aide

Feever

 

[Guest]

Re : Problèmes macro

Bonjour et bonne année,

D'après ce que j'ai compris:

Sub transfert()
'Macro par messondewez le 28/12/2011
Dim lig As Long 'Les numéros de lignes excel sont de type  'Long' et non 'Integer'
lig = Sheets("Cumul").Range("A100").End(xlUp).Row
With Sheets("Liste").Range("C100").End(xlUp)
   .Offset(1).Resize(lig - 3, 13).Value = Sheets("Cumul").Range("A4").Resize(lig - 3, 13).Value
End With    
End Sub

A+

 

[Philippe68]

Re : Problèmes macro

Bonjour,

J'ai essayé ça de mon coté

Sub CopierColler()
'
' CopierColler Macro Divers68
'

'
    Range("A1:M19").Select
    Sheets("Liste").Select
    Range("A1").Select
    Sheets("Cumul").Select
    Selection.Copy
    Sheets("Liste").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("Liste").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Liste").Sort.SortFields.Add Key:=Range("A1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Liste").Sort
        .SetRange Range("A1:M17")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub