Code VBA pour coller sur la ligne suivant la dernière case complète

Bonjour,

Je suis tout nouveau dans l'utilisation du VBA et je compte bien lire les différents tuto le concernant pour m'affranchir sur le sujet vu que ça peut être bien utile.😁

Dans l'immédiat, je voudrais griller un peu les étapes pour un fichier que je voudrais réaliser rapidement et je bloque sur un code.

Le but:

Réaliser une macro qui sera déclenchée via un bouton. Celle ci copiera une sélection de la page 1 et ira la coller sur la page 2 en colonne A avant de "reset" les cases de la selection en page 1. Tout simple en soi, j'ai même réussi à le faire.

La où cela se corse pour moi, c'est que je voudrais que lors du déclenchement suivant de la macro, la sélection en page 1 soit collée en page deux sur la colonne A toujours mais sur la première ligne suivant la dernière case déjà remplie. (Pour n'écraser aucune donnée précédente)

J'ai déjà lu plusieurs postes sur le sujet mais je ne comprend pas vraiment et ne parviens pas à le mettre en œuvre.

C'est sans doute simple, mais je suis vraiment novice en VBA donc je viens vous demander un petit coup de pouce si possible.

Merci d'avance. 🙂

Bonsoir,

ou au moins le code.

Bonsoir et bienvenue,
Merci de préciser la version Excel utilisée dans ton profil.
Cdlt.

Voici le code réalisé en enregistrement de macro, c'est sans doute loin d'être optimisé.

Et il s'agit d'Excel 365.

Bien à vous.

Je ne comprends pas pourquoi vous c/c 2 fois la même ligne ("A1:C23") puis ("A1:C1") ?

Sinon voici un essai,

Sub cp()
dl = Sheets("B").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("A").Range("A1:C23").Copy Sheets("B").Range("A" & dl)   'ou .Cut si vous souhaitez couper la sélection au lieu de la copier.
End Sub

Bonjour,

Votre message est vide..

Bonjour,

avec ceci ?

Sub cp()
dl = Sheets("B").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("A").Range("A1:C23").Copy
Sheets("B").Range("A" & dl).PasteSpecial Paste:=xlPasteFormats   'colle la mise en forme
Sheets("B").Range("A" & dl).PasteSpecial Paste:=xlPasteValues    'colle les valeurs
End Sub