Comment utiliser une macro pour insérer une ligne sous un tableau dans Excel tout en conservant les formules ?

Il est courant pour nous d'ajouter des lignes vides en bas d'un tableau spécifié afin d'élargir le tableau et d'ajouter du nouveau contenu. Cet article traite de l'utilisation d'une macro pour insérer une nouvelle ligne sous un tableau spécifié et conserver la formule de la cellule au-dessus dans Excel.

Utiliser une macro pour insérer une ligne sous un tableau dans Excel

Utiliser une macro pour insérer une ligne sous un tableau dans Excel

Veuillez suivre les étapes ci-dessous pour insérer une ligne vide sous un tableau spécifié avec une macro.

1. Appuyez simultanément sur les touches 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 pour ouvrir la fenêtre Module. Ensuite, copiez et collez le code VBA ci-dessous dans la fenêtre.

Code VBA : utiliser une macro pour insérer une ligne vide sous un tableau spécifié

Sub AddRows()
'Updated by Extendoffice 2017/9/12
    Dim xLastRow As Long
    Dim xRg As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the table range you will insert blank row below:", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xLastRow = xRg.Row + xRg.Rows.Count
    xRg.Rows(xLastRow).FillDown
    xRg.Rows(xLastRow).SpecialCells(xlCellTypeConstants).ClearContents
End Sub

3. Appuyez sur la touche F5 pour exécuter le code. Une boîte de dialogue Kutools pour Excel apparaît, veuillez sélectionner la plage de tableaux spécifique sous laquelle vous ajouterez une ligne vide, puis cliquez sur le bouton OK. Voir capture d'écran :

Vous pouvez alors voir qu'une nouvelle ligne vide est ajoutée en bas du tableau spécifié. La formule de la cellule au-dessus est également conservée dans la nouvelle ligne insérée comme indiqué dans la capture d'écran ci-dessous :