[Résolus]copier un tableau vers une autre feuille

[sky45]

Bonjour à tous
je rencontre un probleme avec mon bouton archiver, j'ai crée un bouton qui recopie le contenu de la Feuille 1 vers la feuille 2.
Mon but est qu'a chaque fois que je click sur le bouton pour archiver, le contenu s'ajoute au dessus du précédent en ajoutant une ligne vide de séparation mais malheuresement il supprime une partie du contenu précédent en ajoutant le nouveau.
Voila mon code pouvez vous m'aider s'il vous plait afin que le contenu ne s'efface pas à chaque sauvegarde dans Archive ?
et si possible ne selectionner que les cellules non vide dans Data pour rendre mon code plus propre car la je selectionne la feuille entière ce qui n'est pas très interessant

Range("A1:AZ1000" & Sheets("data").Range("AF65536").End(xlUp).Row).Copy
    Sheets("Archive_Hebdo").Select
    Range("A" & Sheets("Archive_Hebdo").Range("A65536").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Range("A1").Select

 

[Staple1600]

Re : copier un tableau vers une autre feuille

Re

Ceci: .Resize(, 3).Copy wsB.Cells(Rows.Count, 1).End(3)(3)
équivaut à cela :.Resize(, 3).Copy wsB.Cells(Rows.Count, 1).End(xlUp).Offset(3)

Pour plus d'explications sur Resize, Rows.count, Offset, une seule touche pour les atteindre dans VBE:
la si précieuse touche F1.
Sans oublier toutes infos disponibles sur web et accessible avec n'importe quel moteur de recherche

EDITION: Essaies cette version modifiée pour avoir une bordure.

Sub archivagesTer()
Dim wsA As Worksheet, wsB As Worksheet, X&
Set wsA = Sheets("Mail"): Set wsB = Sheets("Achive_Hebdo")
X = wsB.Cells(Rows.Count, 1).End(3)(3).Row
Range(wsA.Cells(3, "E"), wsA.Cells(Rows.Count, "E").End(3)).Resize(, 3).Copy wsB.Cells(Rows.Count, 1).End(3)(3)
wsB.Cells(X, 1).CurrentRegion.BorderAround 1, xlThick, 17
End Sub

 

[sky45]

Re : copier un tableau vers une autre feuille

je suis de retour avec une question Staple la dernière et c'est promis je t'embète plus
Le tcd que je veux copier commence à la colonne E, ligne 3(E3) et sa le fait la copie, la bordure impec !
mais si je veux copier à partir de A3 parce que je vais ajouter du texe par la suite en face du TCD je n'y arrive pas je ne sais pas comment faire la manip j'ai essayé de modifier la propriété Resize mais sa fou tout en l'air.
je l'ai remplacer par CurrentRegion mais le résultat est le même que celui que j'avais par le passé (pas bon).

c'est énervant il manque un chouia de quelque chose pour que ce soit parfait !

 

[Staple1600]

Re : copier un tableau vers une autre feuille

Bonsoir à tous

sky45
Vois si ce chouia de modifs dans mon VBA comble ton chouia manquant pour atteindre ton but
Code VB:
Sub archivagesQuattro()
Dim wsA As Worksheet, wsB As Worksheet, X&
Set wsA = Sheets("Mail"): Set wsB = Sheets("Achive_Hebdo")
X = wsB.Cells(Rows.Count, 5).End(3)(3).Row
Range(wsA.Cells(3, "A"), wsA.Cells(Rows.Count, "E").End(3)).Resize(, 7).Copy wsB.Cells(X, 1)
wsB.Cells(X, 5).CurrentRegion.BorderAround 1, xlThick, 17
End Sub

 

[sky45]

Re : copier un tableau vers une autre feuille

tu es un Grand maître jedi !
merci Staple je met la discussion en résolu je n'ai plus rien a ajouter ci ce n'est merci