Bonsoir le forum,
Voici le code que j'ai pour imprimer :
Private Sub CmdImprimer_Click()
Dim r As Integer
Dim nbpages As Variant
Unload Me
Application.ScreenUpdating = False
Worksheets("Inventaire").Range("h65536").End(xlUp) = ""
Worksheets("Inventaire").Range("aw65536").End(xlUp) = ""
For r = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If IsEmpty(Cells(r, "h")) Then Rows(r).Hidden = True
Next r
nbpages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
ActiveSheet.PrintOut
Rows().Hidden = False
Columns().Hidden = False
UsfMenu.Show
End Sub
J'ai 7965 lignes. Donc c'est très long pour cacher toutes les lignes qui sont vides en "H" (3-4 minutes). Est-ce qu'il y aurait une façon plus rapide ?
Merci
Voici le code que j'ai pour imprimer :
Private Sub CmdImprimer_Click()
Dim r As Integer
Dim nbpages As Variant
Unload Me
Application.ScreenUpdating = False
Worksheets("Inventaire").Range("h65536").End(xlUp) = ""
Worksheets("Inventaire").Range("aw65536").End(xlUp) = ""
For r = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If IsEmpty(Cells(r, "h")) Then Rows(r).Hidden = True
Next r
nbpages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
ActiveSheet.PrintOut
Rows().Hidden = False
Columns().Hidden = False
UsfMenu.Show
End Sub
J'ai 7965 lignes. Donc c'est très long pour cacher toutes les lignes qui sont vides en "H" (3-4 minutes). Est-ce qu'il y aurait une façon plus rapide ?
Merci