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.
Meilleurs outils de productivité pour Office
Boostez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité sans précédent. Kutools pour Excel propose plus de300 fonctionnalités avancées pour augmenter la 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 facilite grandement votre travail
- Activez la modification 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é de50 %, et réduit des centaines de clics de souris pour vous chaque jour !