Comment insérer ou supprimer une partie de ligne dans Excel ?

Il est facile d'insérer ou de supprimer une ligne entière dans une feuille de calcul Excel. Mais comment insérer ou supprimer seulement une partie de la ligne dans une feuille de calcul ? Cet article vous aidera.

Insérer ou supprimer une partie de ligne avec la fonction Insérer/Supprimer des cellules
Insérer ou supprimer une partie de ligne avec le code VBA

Insérer ou supprimer une partie de ligne avec la fonction Insérer/Supprimer des cellules

Par exemple, si vous souhaitez insérer ou supprimer une partie de la ligne 5 avec trois cellules, veuillez suivre les étapes ci-dessous.

Insérer une partie de ligne

1. Sélectionnez trois cellules dans la ligne 5 (les cellules sélectionnées doivent être égales aux cellules à insérer), puis cliquez sur Insérer > Insérer des cellules sous l'onglet Accueil. Voir capture d'écran :

2. Dans la boîte de dialogue Insérer, sélectionnez l'option Déplacer les cellules vers la droite ou Déplacer les cellules vers le bas, puis cliquez sur le bouton OK.

Ensuite, une partie de la ligne avec trois cellules est insérée comme indiqué dans la capture d'écran ci-dessous.

Supprimer une partie de ligne

1. Après avoir sélectionné la partie de la ligne que vous souhaitez supprimer, cliquez sur Supprimer > Supprimer des cellules sous l'onglet Accueil.

2. Dans la boîte de dialogue Supprimer, sélectionnez Déplacer les cellules vers la gauche ou Déplacer les cellules vers le haut selon vos besoins, puis cliquez sur le bouton OK. Voir capture d'écran :

La partie de ligne sélectionnée est alors supprimée.

Découvrez la magie d'Excel avec Kutools AI

• Exécution intelligente : Effectuez des opérations sur les cellules, analysez les données et créez des graphiques, le tout piloté par des commandes simples.
• Formules personnalisées : Générez des formules adaptées pour rationaliser vos flux de travail.
• Codage VBA : Écrivez et implémentez du code VBA sans effort.
• Interprétation des formules : Comprenez facilement des formules complexes.
• Traduction de texte : Surmontez les barrières linguistiques dans vos feuilles de calcul.

Améliorez vos capacités Excel avec des outils alimentés par l'IA. Téléchargez maintenant et découvrez une efficacité sans précédent !

Insérer ou supprimer une partie de ligne avec le code VBA

Vous pouvez également appliquer les codes VBA suivants pour insérer ou supprimer une partie de ligne dans Excel.

1. Sélectionnez n'importe quelle cellule dans une certaine ligne où vous souhaitez insérer des parties de lignes, puis appuyez sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

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

Code VBA : Insérer une partie de ligne dans Excel

Sub InsertRow()
    Dim I As Long
    On Error Resume Next
LInput:
    I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
    If I < 1 Then
        MsgBox "Error, please retype", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Insert xlDown
End Sub

Remarque : Dans le code VBA, le chiffre 1 signifie que la partie de la ligne sera insérée à partir de la première colonne, et le chiffre 3 signifie qu'il insérera trois cellules entre les colonnes. Vous pouvez les modifier en fonction de vos besoins.

3. Appuyez sur la touche F5 pour exécuter le code, puis une boîte de dialogue Kutools pour Excel apparaît, veuillez entrer le nombre de lignes nécessaires, puis cliquez sur le bouton OK.

Si vous entrez 3 dans la case, après avoir cliqué sur le bouton OK, trois parties de lignes avec trois colonnes seront insérées à l'emplacement spécifié de votre feuille de calcul.

Pour supprimer une partie de ligne, vous pouvez exécuter le code VBA ci-dessous.

Code VBA : Supprimer une partie de ligne dans Excel

Sub DelActiveCell_Row()
    Dim I As Long
    On Error Resume Next
LInput:
    I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
    If I < 1 Then
        MsgBox " Error, please retype", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Delete xlShiftUp
End Sub

Après avoir exécuté le code, une boîte de dialogue Kutools pour Excel apparaît également pour vous rappeler combien de parties de lignes vous souhaitez supprimer, veuillez entrer le nombre et cliquer sur le bouton OK. Les parties de lignes spécifiées sont alors immédiatement supprimées.