Cette fois-ci je vous livre l’une de mes astuces que j’utilise systématiquement dans toutes mes applications : Afficher/Cacher le ruban à la demande.
La méthode est simple, une variable globale permet de fixer l’état du ruban. Un raccourci dans une macro Autokey permet de changer l’état du ruban et une fonction VBA affiche ou cache le ruban suivant l’état de la variable.
Option Compare Database Option Explicit Dim StateRibbon As Boolean Function DisplayRibbon() ' Auteur : Fabrice CONSTANS (MVP) ' Description : Affiche/cache le ruban ' ctrl+shift+R Nz StateRibbon, False ' 1er passage initialise à faux ' (ribbon invisible) DoCmd.ShowToolbar "Ribbon", IIf(StateRibbon, acToolbarNo, acToolbarYes) StateRibbon = Not StateRibbon ' inverse la valeur End Function
Le raccourci :
+^{R} ExecuterCode DisplayRibbon()
Cacher le ruban permet de cacher également les boutons Restaurer/ Fermer ce qui donne une touche professionnelle à l’application.