Voici une modeste contribution de débutant : faire un aperçu avant impression d'un tableau ou plage de cellules en ne prenant que les lignes non vides.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Private Sub CommandButton1_Click() Dim lastlig As Long With Worksheets("mafeuille") lastlig = .Cells(.Rows.Count, "C").End(xlUp).Row 'dans l'exemple la colonne "C" est la référence pour le comptage des cellules non vides car elle est systématiquement renseignée lors d'une nouvelle saisie Range("A3:M" & lastlig).PrintPreview 'aperçu de la sélection des lignes non vides depuis la ligne 3 sur une largeur de 13 colonnes End With End Sub
Partager