Comment insérer un nombre spécifique de lignes à des intervalles fixes dans Excel ?

Dans une feuille de calcul Excel, vous pouvez insérer une ligne vide entre des lignes existantes en utilisant la fonction Insérer. Cependant, si vous avez une grande plage de données et que vous devez insérer deux lignes vides après chaque troisième ou nième ligne, comment pourriez-vous accomplir cette tâche rapidement et facilement ?

• Insérer un nombre spécifique de lignes vides dans une plage de données à intervalles fixes avec du code VBA
• Insérer un nombre spécifique de lignes vides dans une plage de données basée sur les valeurs des cellules avec du code VBA
• Insérer un nombre spécifique de lignes vides dans une plage de données à intervalles fixes avec une fonctionnalité pratique
• Copier et insérer des lignes plusieurs fois en fonction de nombres spécifiques avec du code VBA
• Copier et insérer des lignes plusieurs fois en fonction de nombres spécifiques avec une fonctionnalité étonnante

Insérer un nombre spécifique de lignes vides dans une plage de données à intervalles fixes avec du code VBA

Le code VBA suivant peut vous aider à insérer un nombre spécifique de lignes après chaque nième ligne dans des données existantes. Veuillez procéder comme suit :

1. Maintenez les touches ALT + F11 enfoncées dans Excel, ce qui ouvre la fenêtre Microsoft Visual Basic for Applications.

2. Cliquez sur Insertion > Module, puis collez le code suivant dans la fenêtre Module.

Code VBA : Insérer un nombre spécifique de lignes dans des données à intervalles fixes

Sub InsertRowsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xRows As Integer
Dim xRowsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Enter row interval. ", xTitleId, 1, Type:=1)
xRows = Application.InputBox("How many rows to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRows + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xRowsCount / xInterval)
    xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
    Application.Selection.EntireRow.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

3. Après avoir collé ce code, appuyez sur la touche F5 pour exécuter ce code ; une boîte de dialogue apparaîtra pour vous rappeler de sélectionner la plage de données où vous souhaitez insérer des lignes vides, voir capture d'écran :

4. Cliquez sur le bouton OK, une autre boîte de dialogue apparaîtra, veuillez entrer le nombre d'intervalles de lignes, voir capture d'écran :

5. Continuez à cliquer sur le bouton OK, dans la boîte de dialogue qui apparaît ensuite, veuillez entrer le nombre de lignes vides que vous souhaitez insérer, voir capture d'écran :

6. Ensuite, cliquez sur OK, et les lignes vides ont été insérées dans les données existantes à intervalles réguliers, voir captures d'écran :

Insérer un nombre spécifique de lignes vides dans une plage de données basée sur les valeurs des cellules avec du code VBA

Parfois, vous devrez peut-être insérer des lignes vides en fonction d'une liste de valeurs de cellules. Dans ce cas, le code VBA ci-dessous peut vous aider, veuillez procéder comme suit :

1. Maintenez les touches ALT + F11 enfoncées dans Excel, ce qui ouvre la fenêtre Microsoft Visual Basic for Applications.

2. Cliquez sur Insertion > Module, puis collez le code suivant dans la fenêtre Module.

Code VBA : Insérer un nombre spécifique de lignes vides basées sur une liste de nombres :

Sub Insertblankrowsbynumbers ()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xAddress As String
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the spefic number column to use(single column):", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Set xRg = xRg(1)
For I = xLastRow To xFstRow Step -1
xNum = Cells(I, xCol)
If IsNumeric(xNum) And xNum > 0 Then
Rows(I + 1).Resize(xNum).Insert
xCount = xCount + xNum
End If
Next
xRg.Resize(xCount, 1).Select
Application.ScreenUpdating = True
End Sub

3. Après avoir collé ce code, appuyez sur la touche F5 pour exécuter ce code ; dans la boîte de dialogue qui apparaît, sélectionnez la liste de nombres sur laquelle vous souhaitez insérer des lignes vides, voir capture d'écran :

4. Ensuite, cliquez sur OK, et vous obtiendrez les résultats dont vous avez besoin comme le montrent les captures d'écran suivantes :

Insérer un nombre spécifique de lignes vides dans une plage de données à intervalles fixes avec une fonctionnalité pratique

Si vous n'êtes pas familier avec le code VBA ci-dessus, Kutools pour Excel peut également vous aider. Sa fonctionnalité Insérer des lignes ou colonnes vides peut insérer un nombre spécifique de lignes ou colonnes dans des données existantes à intervalles fixes rapidement et facilement.

Après avoir installé Kutools pour Excel, veuillez procéder comme suit :

1. Sélectionnez la plage de données où vous souhaitez insérer des lignes à intervalles.

2. Cliquez sur Kutools > Insérer > Insérer des lignes ou colonnes vides, voir capture d'écran :

3. Dans la boîte de dialogue Insérer des lignes ou colonnes vides, choisissez l'option Lignes vides dans le Type d'insertion, puis spécifiez le nombre d'intervalles et de lignes vides que vous souhaitez utiliser comme le montre la capture d'écran suivante :

4. Ensuite, cliquez sur le bouton OK, et les lignes vides ont été insérées dans la plage sélectionnée à un intervalle spécifique comme le montre la capture d'écran suivante :

Téléchargez et essayez gratuitement Kutools pour Excel dès maintenant !

Copier et insérer des lignes plusieurs fois en fonction de nombres spécifiques avec du code VBA

Supposons que vous ayez une plage de données, et maintenant vous voulez copier chaque ligne et les coller plusieurs fois sur la ligne suivante en fonction d'une liste de nombres comme le montrent les captures d'écran ci-dessous. Comment pourriez-vous résoudre cette tâche dans une feuille de calcul Excel ?

Pour traiter cette tâche, je vais vous présenter un code utile, veuillez suivre les étapes suivantes :

1. Maintenez les touches ALT + F11 enfoncées dans Excel, ce qui ouvre la fenêtre Microsoft Visual Basic for Applications.

2. Cliquez sur Insertion > Module, puis collez le code suivant dans la fenêtre Module.

Code VBA : Copier et insérer des lignes plusieurs fois en fonction de nombres spécifiques :

Sub CopyRows()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the list of numbers to copy the rows based on: ", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub

If xRg.Columns.Count > 1 Then
MsgBox "Please select single column!"
GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
With Rows(xCRg.Row)
.Copy
.Resize(xRN).Insert
End With
Next
Application.ScreenUpdating = True
End Sub

3. Après avoir collé ce code, appuyez sur la touche F5 pour exécuter ce code ; dans la boîte de dialogue qui apparaît, sélectionnez la liste de nombres sur laquelle vous souhaitez copier et insérer les lignes de données, voir capture d'écran :

4. Ensuite, cliquez sur le bouton OK, et le nombre spécifique de lignes aura été copié et collé sous chaque ligne d'origine, voir captures d'écran :

Copier et insérer des lignes plusieurs fois en fonction de nombres spécifiques avec une fonctionnalité étonnante

Si vous avez Kutools pour Excel, avec sa fonctionnalité Dupliquer des lignes / colonnes basées sur la valeur d'une cellule, vous pouvez insérer des lignes ou colonnes basées sur la liste de nombres rapidement et facilement.

Après avoir installé Kutools pour Excel, veuillez procéder comme suit :

1. Cliquez sur Kutools > Insérer > Dupliquer des lignes / colonnes basées sur la valeur d'une cellule, voir capture d'écran :

2. Dans la boîte de dialogue Copier et insérer des lignes et colonnes, sélectionnez l'option Copier et insérer des lignes dans la section Type, puis sélectionnez la plage de données que vous souhaitez dupliquer, et spécifiez ensuite la liste de valeurs sur laquelle vous souhaitez copier les lignes, voir capture d'écran :

4. Ensuite, cliquez sur Ok ou Appliquer, vous obtiendrez le résultat suivant selon vos besoins :

Téléchargez et essayez gratuitement Kutools pour Excel dès maintenant !

Plus d'articles connexes :