Comment imprimer une feuille de calcul sans les lignes vides dans Excel ?
Lors de l’impression d’une feuille de calcul, les lignes vides sont également imprimées. Certains utilisateurs Excel souhaitent imprimer leur feuille sans ces lignes vides afin de compacter les données et d’économiser du papier. Mais comment imprimer une feuille de calcul sans lignes vides dans Excel ? Cet article vous propose deux méthodes efficaces.
Masquer les Lignes vides avant impression à l’aide d’un code VBA
Supprimer les lignes vides avant impression avec Kutools pour Excel
Masquer les Lignes vides avant impression à l’aide d’un code VBA
Avant d’imprimer votre feuille de calcul, exécutez le code VBA ci-dessous pour masquer automatiquement les lignes vides dans une plage définie. Voici la marche à suivre.
1. Appuyez 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 Insertion > Module. Copiez ensuite le code VBA ci-dessous et collez-le dans la fenêtre du module.
Code VBA : Masquer les Lignes vides Plage sélectionnée
Sub HideBlankRows()
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
Dim xUpdate As Boolean
Dim I As Long
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select a range", "Kutools for Excel", xAddress, , , , , 8)
Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "Don't support multiple ranges", , "Kutools for Excel"
Exit Sub
End If
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = 1 To xRg.Rows.Count
xRg.Rows(I).EntireRow.Hidden = (Application.CountA(xRg.Rows(I)) = 0)
Next
Application.ScreenUpdating = xUpdate
End Sub3. Appuyez sur la touche F5 pour exécuter le code. Une boîte de dialogue Kutools pour Excel s’ouvre alors. Sélectionnez la plage contenant les lignes vides que vous ne souhaitez pas imprimer, puis cliquez sur le bouton OK.
Toutes les lignes vides de la plage sélectionnée sont alors immédiatement masquées. Vous pouvez désormais imprimer la feuille de calcul sans aucune ligne vide.
Remarque : après l’impression, vous pouvez réafficher ces lignes vides à l’aide du code VBA suivant.
Code VBA : Réafficher toutes les Lignes vides Plage sélectionnée
Sub UnhideRows()
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
Dim xUpdate As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select a range to unhide the blank rows", "Kutools for Excel", xAddress, , , , , 8)
Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
If xRg Is Nothing Then Exit Sub
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
xRg.EntireRow.Hidden = False
Application.ScreenUpdating = xUpdate
End SubSupprimer les lignes vides avant impression avec Kutools pour Excel
Si vous souhaitez imprimer une feuille de calcul sans lignes vides, nous vous recommandons d’abord de supprimer toutes les lignes vides à l’aide de l’utilitaire Supprimer les lignes vides de Kutools pour Excel, puis d’imprimer manuellement la feuille.
1. Cliquez sur Kutools > Supprimer > Supprimer les lignes vides, puis choisissez Plage sélectionnée, Feuille de calcul active, Feuilles de calcul sélectionnées ou Dans toutes les feuilles selon vos besoins. Voir la capture d’écran :
Remarque : pour supprimer les lignes vides d’une plage, sélectionnez-la d’abord, puis appliquez la fonction.
2. Une boîte de dialogue s’ouvre alors pour vous indiquer combien de lignes ont été supprimées. Cliquez sur le bouton OK.
Toutes les lignes vides ont désormais été supprimées. Vous pouvez imprimer votre feuille de calcul.
Remarque : Cette fonctionnalité prend en charge la commande Annuler Ctrl+Z.
Si vous souhaitez profiter d’un essai gratuit de 30 jours de cet utilitaire,cliquez ici pour le télécharger, puis suivez les étapes indiquées ci-dessus.
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels