XL 2010 Copier Coller VBA

[hakan37]

Bonjour,

Je suis actuellement entrain de travailler sur un fichier et j'aimerais effectuer la tache suivante.
Par exemple j'ai un fichier de 130 ligne
J'aimerais copier la colonne A (A1:A130) copier et coller sur la cellule A131 de manière automatisé

Dès lors lorsque j'ai un fichier de plus de 130 ligne (par exemple de 160 ligne), j'aimerais pouvoir exécuter la même macro de manière automatisé (donc copier les 160 lignes et la coller à partir de la 161) ect Par la suite pourvoir exécuter cette macro sur des fichiers de plus de 1000 ligne

Je suis vraiment nul en VBA, toute aide est bonne à recevoir

Cordialement

Hakan

 

[mapomme]

Bonsoir hakan37,

Voir l'essai ci-joint. Cliquer sur le bouton "Hop !".
Le code est dans le module de code de la feuille "Feuil1".

Sub CopierColA_aLaSuite()
   Range(Range("a1"), Cells(Rows.Count, "a").End(xlUp)).Copy Cells(Rows.Count, "a").End(xlUp)(2, 1)
End Sub

 

[hakan37]

Bonjour,

C'est exactement ce que je voulais. C'est parfait je vous en remercie.
J'ai une autre question.

J'aimerais copier toutes une colonne comme auparavant et faire le collage à la fin de la colonne mais en décaler.
Par exemple, Une colonne de A1 à A60 à coller sous B61
Est-ce que c'est possible ?

Cordialement

 

[mapomme]

Bonsoir hakan37,

(..) J'ai une autre question.
J'aimerais copier toutes une colonne comme auparavant et faire le collage à la fin de la colonne mais en décaler.
Par exemple, Une colonne de A1 à A60 à coller sous B61 (..)

Voir l'essai joint. Le code se trouve dans le module de code de la feuille "Feuil1":

Sub CopierColA_aLaSuiteColB()
   Range(Range("a1"), Cells(Rows.Count, "a").End(xlUp)).Copy Cells(Rows.Count, "a").End(xlUp)(2, 2)
End Sub