JeanMarie
XLDnaute Barbatruc
Zon en réponse à un fil, a écrit une macro qui affichait la fenêtre d'aperçu avant
impression et la barre d'outils associée.
Les boutons de cette barre n'étaient pas affichés, il fallait le passage du pointeur de la souris sur le bouton pour le voir apparaître.
Ce phénomène est lié à l'emplacement de de l'instruction Application.ScreenUpdating.
impression et la barre d'outils associée.
Les boutons de cette barre n'étaient pas affichés, il fallait le passage du pointeur de la souris sur le bouton pour le voir apparaître.
Ce phénomène est lié à l'emplacement de de l'instruction Application.ScreenUpdating.
Code:
Sub PrincFiltre()
...
Application.ScreenUpdating = True ' <--- emplacement après correction
Select Case Err
Case 0: F.PrintPreview 'mettre printout, ça évite de consommer du papier
' et de l'encre pour rien
Case 1004: Msg = "Aucune date trouvée "
Case Else: Msg = "Vérifiez la saisie"
End Select
F.AutoFilterMode = False
Application.ScreenUpdating = True ' <--- emplacement avant correction
If Len(Msg) > 0 Then MsgBox Msg
End Sub
Dernière édition: