libellule85
XLDnaute Accro
Bonjour le forum,
J'ai la macro ci-dessous qui imprime que les lignes écrites, et je voudrais créer une nouvelle macro à partir de celle-ci mais pour n'imprimer que les lignes écrites si la cellule de la colonne F est vide.
Pour plus de compréhension je vous joins un fichier.
D'avance merci pour votre aide
J'ai la macro ci-dessous qui imprime que les lignes écrites, et je voudrais créer une nouvelle macro à partir de celle-ci mais pour n'imprimer que les lignes écrites si la cellule de la colonne F est vide.
Pour plus de compréhension je vous joins un fichier.
Code:
Sub ImprimeAuto()
Dim i As Byte
Application.ScreenUpdating = False
For i = 1 To 30
If Application.CountA(Rows(i)) = 0 Then Rows(i).Hidden = True
Next i
Application.ScreenUpdating = True
ActiveSheet.PrintPreview
Select Case MsgBox("Voulez-vous imprimer votre document ?", vbYesNo + vbQuestion + vbDefaultButton1, "Confirmation d'Impression de Document")
Case vbYes
ActiveSheet.PrintOut
Case vbNo
End Select
Application.ScreenUpdating = False
For i = 1 To 30
If Application.CountA(Rows(i)) = 0 Then Rows(i).Hidden = False
Next i
Application.ScreenUpdating = True
Range("A3").Select
End Sub
D'avance merci pour votre aide
Pièces jointes
Dernière édition: