Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Aide sur un copier coller

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion hutch57
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
H

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

Merci pour votre aide
 

Pièces jointes

Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…