XL 2010 Aide sur un copier coller

hutch57

XLDnaute Occasionnel
Bonjour a tous,
une petite aide serait bienvenue, j'ai un tableau Excel une fois rempli ou la journée terminé que je sauvegarde dans un autre onglet et refait un tableau vierge pour une autre journée, mon problème dans le code c'est qu'il écrase le tableau précédemment sauvegarder au lieu de se mettre a la suite soit le 1er en A1-AA62 puis le suivant en A646-AA126 etc.

Range("A1:AA62").Select
Selection.Copy
Sheets("Sauv").Select
Range("A2").Select
ActiveSheet.Paste
Range("A2").Select
Sheets("FV").Select
Range("C1:D1").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A3:D47,F3:F47,H3:T47,V3:Y47,A49:D59,F49:F59,H49:T59,V49:Y59,B61:S62,X61" _
).Select
Range("X61").Activate
Selection.ClearContents
Range("C1:D1").Select
End Sub

Merci pour votre aide
 

Pièces jointes

  • Copie.xls
    129.5 KB · Affichages: 1

Lolote83

XLDnaute Barbatruc
Bonjour,
Essaye plutôt ceci

VB:
Sub CopierFeuil2()
    With Sheets("SAUV")
        xDerLig = .Range("A65000").End(xlUp).Row + 2
    End With
    With Sheets("FV")
        .Range("A1:AA62").Copy Sheets("SAUV").Range("A" & xDerLig)
        .Range("A3:D47,F3:F47,H3:T47,V3:Y47,A49:D59,F49:F59,H49:T59,V49:Y59,B61:S62,X61").ClearContents
    End With
End Sub
@+ Lolote83
 

Staple1600

XLDnaute Barbatruc
Bonjour le fil

Une autre possibilité
(si le format des cellules est superfétatoire ;))
Code:
Sub copieVS()
Dim vDat: vDat = Sheets("FV").Range("A1:AA62").Value
Sheets("SAUV").Cells(Rows.Count, 1).End(3)(2).Resize(UBound(vDat, 1), UBound(vDat, 2)).Value = vDat
Sheets("FV").Range("A3:D47,F3:F47,H3:T47,V3:Y47,A49:D59,F49:F59,H49:T59,V49:Y59,B61:S62,X61") = ""
End Sub
 

Statistiques des forums

Discussions
311 734
Messages
2 082 020
Membres
101 872
dernier inscrit
Colin T