castor30
XLDnaute Occasionnel
Bonjour
Je trouve le temps d'exécution de ce code un peu long (15 secondes)
Peut-il être améliorer
En vous remerciant
Je trouve le temps d'exécution de ce code un peu long (15 secondes)
Peut-il être améliorer
En vous remerciant
VB:
Sub Impression()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Range("G2").Select
For I = 2 To Range("A300").End(xlUp).Row
If UCase(Cells(I, 5)) <> "X" Then
Rows(I).Hidden = True
Else
I = I + 1
End If
Next I
' ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SelectedSheets.PrintPreview
Columns("A:E").Select
Selection.AutoFilter
Selection.AutoFilter Field:=5
Selection.AutoFilter
SupSelect
Range("A2").Select
CreateObject("Wscript.shell").Popup "Impression envoyée à l'imprimante." & Chr(10) & Chr(10) & "Veuillez patienter Svp." & Chr(10) & Chr(10), 1, "Association", vbExclamation
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
Sub SupSelect()
Range("E2:E300").ClearContents
End Sub