Comment empêcher les lignes vides de s'imprimer dans Excel ?

Si votre feuille de calcul Excel contient des lignes vides, elles seront généralement imprimées avec le reste de vos données, gaspillant ainsi du papier et de l'espace. Pour éviter cela, vous pouvez utiliser un code VBA pour masquer automatiquement les lignes vides avant l'impression. Ce guide vous montrera comment configurer et utiliser ce code pour imprimer uniquement les lignes contenant des données, garantissant ainsi une impression plus propre et plus efficace.

Exclure les lignes vides lors de l'impression d'une feuille de calcul avec un code VBA

Exclure les lignes vides lors de l'impression d'une feuille de calcul avec un code VBA

Avec le code VBA suivant, vous pouvez imprimer la feuille de calcul sans les lignes vides, veuillez procéder comme suit :

1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

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

Code VBA : Arrêter les lignes vides lors de l'impression :

Sub Print_NonBlank_Rows()
'Updateby Extendoffice
Dim xStr As String
    Dim xRg As Range
    Dim xHideRg As Range
    Dim xTxt As String
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For I = 1 To xRg.Rows.Count
        If Application.WorksheetFunction.CountA(xRg.Rows(I)) = 0 Then
            If xHideRg Is Nothing Then
                Set xHideRg = xRg.Rows(I)
            Else
                Set xHideRg = Union(xHideRg, xRg.Rows(I))
            End If
        End If
    Next
    xHideRg.EntireRow.Hidden = True
    ActiveSheet.PrintOut Copies:=1
    xHideRg.EntireRow.Hidden = False
    Application.ScreenUpdating = True
End Sub

3. Ensuite, appuyez sur la touche F5 pour exécuter ce code. Une boîte de dialogue apparaîtra, vous demandant de sélectionner la plage de données que vous souhaitez imprimer. Voir capture d'écran :

4. Puis cliquez sur OK, et votre plage sélectionnée sera immédiatement imprimée sans les lignes vides.