XL 2010 Aide sur un copier coller

hutch57 · 26 Octobre 2022

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("C11").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A347,F3:F47,H3:T47,V3:Y47,A4959,F49:F59,H49:T59,V49:Y59,B61:S62,X61" _
).Select
Range("X61").Activate
Selection.ClearContents
Range("C11").Select
End Sub

Merci pour votre aide

Lolote83 · 26 Octobre 2022

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

hutch57 · 26 Octobre 2022

Super c'est exactement ce qu'il me fallait, merci Lolote83 pour ta rapidité et une très bonne journée.

Staple1600 · 26 Octobre 2022

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

hutch57 · 26 Octobre 2022

Merci Staple, j'aime autant garder le format des cellule mais l'idée de copier sans les formules m'intéresse bien tout en gardant le code de Lolote
Un grand merci

XL 2010 Aide sur un copier coller

hutch57

XLDnaute Occasionnel

Pièces jointes

Lolote83

XLDnaute Barbatruc

hutch57

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

hutch57

XLDnaute Occasionnel