Copie sur la première ligne vide

Bonjour,

Je souhaiterais savoir ce que je dois rajouter dans ma macro pour que les éléments sélectionnés dans mon tableau soient copiés dans la première ligne vide de ma feuille récapitulative.

Merci pour votre aide.

Bonjour

Un essai à tester. Te convient-il ?

5classeur1-v1.xlsm (20.01 Ko)

Bye !

5classeur11.xlsm (19.09 Ko)

Bonjour,

Ce que je souhaiterais, qui est très simple mais que je ne trouve pas, se trouve dans l'exemple joint.

Plus facile de montrer que d'expliquer....

Merci d'avance pour ton aide.

Nouvelle version

19classeur11.xlsm (21.34 Ko)

Bye !

Désolé...

Impossible d'exécuter la macro.....

Vous pourriez peut-être m'indiquer ici ce qu'il faut mettre....

Sorry et merci de votre patience.

Voilà :

Option Explicit

Dim i&, derln&

Sub Reporter()

    derln = Application.Max(2, Sheets("Récap").Range("A" & Rows.Count).End(xlUp)(2).Row)
    Range("C5:C8").Copy
    Sheets("Récap").Range("A" & derln).PasteSpecial xlPasteAll, Transpose:=True
    MsgBox "Les données ont été reportées."
    Range("C5:C8").ClearContents
End Sub

bye !

Rechercher des sujets similaires à "copie premiere ligne vide"