Sub ImpressionNonDebites(ByVal control As IRibbonControl)
Dim L As Byte
Application.ScreenUpdating = False
For L = 3 To 147
Rows(L).Hidden = Application.CountA(Rows(L)) = 0 Or Cells(L, "F").Value <> ""
Next L
With ActiveSheet
.CenterHeader = "Chèques non débités"
.PrintPreview
End With
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:147").Hidden = False
Application.ScreenUpdating = True
Range("A3").Select
End Sub
Sub ImpChequesDebites(ByVal control As IRibbonControl)
Dim L As Byte
Application.ScreenUpdating = False
For L = 3 To 147
Rows(L).Hidden = Application.CountA(Rows(L)) = 0 Or Cells(L, "F").Value = ""
Next L
With ActiveSheet
.CenterHeader = "Chèques débités"
.PrintPreview
End With
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:147").Hidden = False
Application.ScreenUpdating = True
Range("A3").Select
End Sub
Sub ImprimeAuto(ByVal control As IRibbonControl)
Dim i As Byte
Application.ScreenUpdating = False
For i = 1 To 147
If Application.CountA(Rows(i)) = 0 Then Rows(i).Hidden = True
Next i
Application.ScreenUpdating = True
With ActiveSheet
.CenterHeader = "Chèques émis"
.PrintPreview
End With
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 147
If Application.CountA(Rows(i)) = 0 Then Rows(i).Hidden = False
Next i
Application.ScreenUpdating = True
End Sub