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

onyirimba · 5 Août 2021

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

fanch55 · 6 Août 2021

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

onyirimba · 6 Août 2021

Merci

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

onyirimba

XLDnaute Occasionnel

Pièces jointes

fanch55

XLDnaute Barbatruc

onyirimba

XLDnaute Occasionnel

Discussions similaires