Comment supprimer toutes les lignes vides ou seulement la première ligne dans une cellule sous Excel ?

Vous pourriez recevoir un classeur avec des cellules contenant plusieurs lignes de texte mélangées à des lignes vides. Comment supprimer ces lignes vides dans les cellules ? Et que faire si vous souhaitez supprimer uniquement la première ligne ? Cet article vous guidera étape par étape tout au long du processus.

Supprimer toutes les lignes vides dans les cellules avec un code VBA
Supprimer uniquement la première ligne dans les cellules avec un code VBA

Supprimer toutes les lignes vides dans les cellules avec un code VBA

Comme le montre la capture d'écran ci-dessous, pour supprimer toutes les lignes vides dans les cellules, vous pouvez exécuter le code VBA suivant pour y parvenir.

1. Appuyez sur les touches Alt + F11 de votre clavier, puis une fenêtre Microsoft Visual Basic for Applications s'ouvre.

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 Module.

Code VBA : Supprimer toutes les lignes vides dans les cellules

Sub DoubleReturn()
Dim xRng As Range, xCell As Range
Dim I As Integer
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
  For I = 1 To Len(xCell) - Len(WorksheetFunction.Substitute(xCell, Chr(10), ""))
   xCell = Replace(xCell, Chr(10) + Chr(10), Chr(10))
  Next
Next
End Sub

3. Appuyez sur la touche F5 pour exécuter le code. Sélectionnez ensuite les cellules contenant les lignes vides que vous souhaitez supprimer dans la boîte de dialogue Kutools for Excel. Enfin, cliquez sur le bouton OK.

Vous verrez que toutes les lignes vides ont été supprimées des cellules spécifiées, comme le montre la capture d'écran ci-dessous. Les textes restent toujours situés sur différentes lignes.

Supprimer uniquement la première ligne dans les cellules avec un code VBA

Comme le montre la capture d'écran ci-dessous, pour supprimer la première ligne dans les cellules A2 et A3, le code VBA suivant peut vous aider.

1. Appuyez sur les touches 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 Module.

Code VBA : Supprimer uniquement la première ligne dans les cellules

Option Explicit
Sub RemoveFirstLine(ByRef Target As Range)
    Dim xCell As Range
    For Each xCell In Target.Cells
        xCell.Value = Right(xCell.Value, Len(xCell.Value) - InStr(1, xCell.Value, vbLf))
    Next
End Sub

Sub StartRemove()
Dim xRng As Range
   On Error Resume Next
   Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
   If xRng Is Nothing Then Exit Sub
   On Error Resume Next
   RemoveFirstLine xRng
End Sub

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 les cellules dont vous devez supprimer uniquement la première ligne, puis cliquez sur le bouton OK.

Vous verrez que les premières lignes ont été supprimées des cellules spécifiées, comme le montre la capture d'écran ci-dessous.

Article connexe :

• Comment mettre en gras uniquement la première ligne ou le premier mot dans une cellule sous Excel ?