[Résolu] Imprimer une ligne écrite que si une cellule est vide

[libellule85]

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.

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

 

[Dranreb]

Re : Imprimer une ligne écrite que si une cellule est vide

Bonjour.
Comme ça :

Option Explicit
Sub ImprimeAuto()
Dim L As Byte
 Application.ScreenUpdating = False
 For L = 3 To 30
     Rows(L).Hidden = Application.CountA(Rows(L)) = 0 Or Cells(L, "F").Value <> ""
 Next L
 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
 Rows("3:30").Hidden = False
 Application.ScreenUpdating = True
 Range("A3").Select
End Sub

Remarque: Lors du PrintPreview un bouton pour imprimer apparaît. Pourquoi ajouter autre chose ?

À +

 

[libellule85]

Bonjour Dranreb,

Un grand grand merci pour ta réponse, c'est super.

Bonne journée