Comment copier coller vers la dernière ligne vide?

Bonjour

Est ce qu'il serait possible de m'aider s'il vous plait sur la question?

Voici mon code, mais je ne vois pas pourquoi celui ci ne fonctionne pas!

nbre = wsEDM.Cells(Rows.Count, 1).End(xlUp).Row - 1

ThisWorkbook.Activate
nbre2 = wsEG.Cells(Rows.Count, 2).End(xlUp).Row - 1
wsEG.Cells(nbre2 + 1, 1).Recize(nbre2 + nbre, 21).Value = wsEDM(1, 2).recize(nbre,21).value

Cordialement

Bonjour,

Dim nbre As Long
nbre = Range("A65536").End(xlUp)(2).Row

Bonne journée

Claude.

Merci en fait je me suis trompé dans l'entète c'est la 1ere ligne vide que je recherche.

D'ailleur j'ai réussi à la trouver, mais je n'ai pu collé les données.

il me marque erreur:

impossible de coller les informations car les zones copier et de collage sont de forme et de taille différenteles formats de céllules.

Bonjour,

Pourrais-tu joindre un fichier pour que nous puissions t'aider au mieux ?

Merci

Pour simplifier voici un exemple assez facile à expliquer je voudrais que les données du dernier mois s'ajoute dans l'historique de l'année sans que cela n'écrase les données de l'historique.

c'est à dire à la première ligne vide, pour cela je fais intervenir une boucle i

Voici le code

'Transfert du dernier mois à l'historique de l'année
i = 1
nbre2 = wsEG.Cells(Rows.Count, 1).End(xlUp).Row - 1
While i <= nbre2
i = i + 1
Wend
wsEDM.Activate
Columns("A:U").Select
Selection.Copy
wsEG.Activate
Range("Ai").Select
ActiveSheet.Paste

Et voici un fichier joint pour illustrer au msg suivant

https://www.excel-pratique.com/~files/doc2/gGYsyClasseur2.xls

voici l'adresse.

re,

Voici une solution à adapter en fonction de tes fichiers.

Fichier

Merci beaucoup.

Je vais l'essayer.

Je te remercie du fond du coeur cela a marché, j'étais bloqué dessus depuis 2 jours.

Bonjour à tous,

Gafsi, si ton problème est réglé, n'oublie pas la petite formalité,

en étant connecté.

Bonne journée

Claude.