Transfert entre feuil VBARésolu

Question

Bonjour à tous, J'ai un petit problème de transfert d'une feuil vers un autre. Voici le script:

Private Sub CommandButton2_Click() Range("A4:N15").Select Selection.Copy Sheets("Archive 2007").Select Dim Ligne As Long Ligne = (Range("A5000").End(xlUp).Row + 3) Range("A" & Ligne) = ActiveSheet.Paste Sheets("Tableau Final").Select Application.CutCopyMode = False Range("A7").Select End Sub

Je veux que Range("A4:N15") ce copie dans la feuil Archive 2007 3 ligne en dessous de la dernière ligne avec des données. Le problème que j'ai en ce moment, il se copie un peut n'import ou et non à partir de la colonne A en dessous de la denière donnée. Comment faire svp? Merci de votre aide!

cs_MPi · Accepted Answer

Essaie ceci '~~Range("A" & Ligne) = ActiveSheet.Paste~~ Range("A" & Ligne).PasteSpecial MPi²

avyrex1926 · Answer

Merci MPI, ça fonctionne pour le collé mas il le colle dans la même feuille et non dans la feuille Archive 2007

avyrex1926 · Answer

Je viens de changer pour: 

Ligne = (Range("A5000").End(xlUp).Row + 3)
Sheets("Archive 2007").Range("A" & Ligne).PasteSpecial

là il le met dans la bonne feuille mais toujours à la même place.

Là je comprend plus!

avyrex1926 · Answer

Super, je viens de trouver.

Voici le script:

Ligne = Sheets("Archive 2007").Range("A5000").End(xlUp).Row + 3
Sheets("Archive 2007").Range("A" & Ligne).PasteSpecial

Merci MPI pour m'avoir aidé sur la première partie de mon problème!

Transfert entre feuil VBA

4 réponses

Votre réponse

Discussions similaires