[JeanMarie]

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.

 
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