fenec
XLDnaute Impliqué
Bonjour le forum
J’utilise actuellement cette macro qui me supprime les lignes vides mais pour une histoire de rendu à l’impression j’aimerais pouvoir imprimer par exemple les lignes 21-22-23-24 même si vides mais ne parviens pas a la modifiée.
Private Sub CommandButton11_Click()
Dim Ligne As Integer
Dim Colonne As Byte
Dim Fin As Integer
Fin = Range("C65535").End(xlUp).Row
For Ligne = 1 To Fin
For Colonne = 1 To 5
If Cells(Ligne, Colonne) <> "" Then GoTo Saut
Next Colonne
Rows(Ligne & ":" & Ligne).EntireRow.Hidden = True
Saut:
Next Ligne
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Rows("1:" & Fin).EntireRow.Hidden = False
End Sub
Merci d’avance
J’utilise actuellement cette macro qui me supprime les lignes vides mais pour une histoire de rendu à l’impression j’aimerais pouvoir imprimer par exemple les lignes 21-22-23-24 même si vides mais ne parviens pas a la modifiée.
Private Sub CommandButton11_Click()
Dim Ligne As Integer
Dim Colonne As Byte
Dim Fin As Integer
Fin = Range("C65535").End(xlUp).Row
For Ligne = 1 To Fin
For Colonne = 1 To 5
If Cells(Ligne, Colonne) <> "" Then GoTo Saut
Next Colonne
Rows(Ligne & ":" & Ligne).EntireRow.Hidden = True
Saut:
Next Ligne
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Rows("1:" & Fin).EntireRow.Hidden = False
End Sub
Merci d’avance