Comment copier des données vers la prochaine ligne vide d'une autre feuille de calcul dans Excel ?

Supposons que vous souhaitiez copier certaines données de la plage A1:E1 de Feuille1 et les coller rapidement dans la prochaine ligne vide de Feuille2 dans un classeur, comme le montre la capture d'écran ci-dessous. Que pouvez-vous faire pour y parvenir facilement ? Cet article vous présentera une méthode VBA.

Copier des données vers la prochaine ligne vide d'une autre feuille de calcul avec du code VBA

Copier des données vers la prochaine ligne vide d'une autre feuille de calcul avec du code VBA

Vous pouvez exécuter le code VBA ci-dessous pour copier des données dans une feuille spécifique et les coller automatiquement dans la prochaine ligne vide d'une autre feuille de calcul.

1. Appuyez simultanément sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Dans la fenêtre Microsoft Visual Basic pour Applications, cliquez sur Insérer > Module. Ensuite, copiez et collez le code VBA ci-dessous dans la fenêtre Module.

Code VBA : copier des données vers la prochaine ligne vide d'une autre feuille de calcul

Private Sub CommandButton1_Click()
    Dim xScreenUpdating As Boolean
    Dim xPasteSht As Worksheet
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select a range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xPasteSht = Worksheets("Sheet2")
    xScreenUpdating = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xRg.Copy
    xPasteSht.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    Application.ScreenUpdating = xScreenUpdating
End Sub

Remarque : Dans le code, Feuille2 est la feuille de destination des données copiées. Vous pouvez la modifier selon vos besoins.

3. Appuyez sur la touche F5 pour exécuter le code. Dans la boîte de dialogue Kutools for Excel qui apparaît, sélectionnez la plage que vous souhaitez copier dans la prochaine ligne vide de Feuille2, puis cliquez sur le bouton OK. Voir la capture d'écran :

Les données copiées depuis Feuille1 sont alors immédiatement collées dans la prochaine ligne vide de Feuille2, comme le montre la capture d'écran ci-dessous.