Cette fois-ci je vous livre l’une de mes astuces que j’utilise syst\u00e9matiquement dans toutes mes applications :\u00a0Afficher\/Cacher le ruban \u00e0 la demande. <\/p>\n\n\n\n
La m\u00e9thode est simple, une variable globale permet de fixer l’\u00e9tat du ruban. Un raccourci dans une macro Autokey <\/strong>permet de changer l’\u00e9tat du ruban et une fonction VBA affiche ou cache le ruban suivant l’\u00e9tat de la variable.<\/p>\n\n\n\n Le raccourci : <\/p>\n\n\n\n Cacher le ruban permet de cacher \u00e9galement les boutons Restaurer\/ Fermer ce qui\u00a0donne une touche professionnelle \u00e0 l’application.<\/p>\n\n\n\n Bonne utilisation !<\/p>\n","protected":false},"excerpt":{"rendered":" Cette fois-ci je vous livre l’une de mes astuces que j’utilise syst\u00e9matiquement dans toutes mes applications :\u00a0Afficher\/Cacher le ruban \u00e0 la demande. La m\u00e9thode est simple, une variable globale permet de fixer l’\u00e9tat du ruban. Un raccourci dans une macro … Continuer la lecture Option Compare Database \nOption Explicit \n\nDim StateRibbon As Boolean \n\nFunction DisplayRibbon() \n' Auteur : Fabrice CONSTANS (MVP) \n' Description : Affiche\/cache le ruban \n' ctrl+shift+R \nNz StateRibbon, False\u00a0 \n' 1er passage initialise \u00e0 faux \n' (ribbon invisible) \nDoCmd.ShowToolbar \"Ribbon\", IIf(StateRibbon, acToolbarNo, acToolbarYes) \nStateRibbon = Not StateRibbon\u00a0 ' inverse la valeur \n\nEnd Function\n<\/code><\/pre>\n\n\n\n+^{R}\u00a0 ExecuterCode DisplayRibbon()<\/code><\/pre>\n\n\n\n