XL 2013 Macro pour copier des données d'un onglet pour les coller dans un autre onglet selon des conditions

onyirimba

XLDnaute Occasionnel
Supporter XLD
Bonjour,

Est-ce que je pourrai obtenir une Macro qui copie les données de l'onglet "DEBUT" pour les coller en ligne en dessous des données de l'onglet "FIN" ?
Il faudrait que le la Macro soit ADAPTABLE par exemple si les données de l'onglet "FIN" se termine ligne 50 => il faudrait que les données soient copiés ligne 51 juste après la fin des données de la dernière ligne qui contient des informations
J'ai joint un fichier illustrant les propos.

Merci d'avance pour votre aide
Cordialement


Capture.PNG
 

Pièces jointes

  • Capture2.PNG
    Capture2.PNG
    11.7 KB · Affichages: 17
  • TEST extratcion SPC 07 2021.xlsm
    33.2 KB · Affichages: 8

fanch55

XLDnaute Barbatruc
Bonjour,
Testez la sub ci-dessous :
VB:
Sub Transfert()
    If MsgBox("Voulez-vous copier les données de la feuille Debut", vbQuestion + vbYesNo) = vbYes Then
        Target_row = Worksheets("Fin").UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
        Worksheets("Debut").Range("A1").CurrentRegion.Copy _
            Worksheets("Fin").Range("A" & Target_row)
        Worksheets("Fin").Activate
        ActiveWindow.ScrollRow = Target_row - 1
    End If
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 902
Membres
101 834
dernier inscrit
Jeremy06510