Bonjour,

1) J'ai fait 2 macros une enlève les barres d'outils, de formules, et met en plein écran et l'autre fait l'inverse.

Or pour ces 2 macros associées chacune à un bouton il faut les activer 2 fois pour arriver au résultat.La barre de formules fait de la résistance....

Pourquoi ? Est-ce un pb de position dans la macro ?

Sinon cela fonctionne bien à part la nécessité de faire une double activation....

Voici le code :

Sub barresoutilsoff()
' barresoutilsoff Macro efface les barres d'outils et onglets
'
ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayGridlines = False
Application.DisplayFullScreen = True
End Sub

Sub barresoutilson()
' barresoutilsoff Macro affiche les barres d'outils et onglets
'
ActiveWindow.DisplayWorkbookTabs = True
Application.DisplayFormulaBar = True
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayGridlines = True
Application.DisplayFullScreen = False
End Sub

2) En subsidiaire :

Comment faire un seul bouton qui basculerait d'un code à l'autre et changerait l'intitulé du bouton ?

Merci d'avance. Bonne journée.

Bonjour,

1) Tu fais passer la ligne de commande DisplayFullScreen de la 1re macro (off) en tête de tes lignes de commandes (cela devrait suffire).

2) Un seul bouton :

Sub offon()
Static oo As Boolean
oo = (oo + 1) Mod 2
Application.DisplayFullScreen = oo
ActiveWindow.DisplayWorkbookTabs = Not oo
Application.DisplayFormulaBar = Not oo
ActiveWindow.DisplayHeadings = Not oo
ActiveWindow.DisplayGridlines = Not oo
End Sub

Attention de ne pas te lancer dans des opérations trop hasardeuses...

NB- Oubli dans ma réponse précédente :

Pour changer l'intitulé du bouton, outre savoir quels sont les intitulés alternatifs et le nom du bouton éventuellement, il faut aussi savoir s'il s'agit d'un bouton de formulaire ou d'un ActiveX (Microsoft Forms).

Dans la mesure où tes macros semblent attachées à un bouton de formulaire, on peut récupérer son nom et changer son intitulé de cette façon (à ajouter à la fin de la macro) :

With ActiveSheet.Shapes(Application.Caller).TextFrame.Characters
If oo Then
.Text = "Intitulé On"
Else
.Text = "Intitulé Off"
End If
End With

Remplacer Intitulé On et Intitulé Off par les intitulés voulus.

Bonjour,

Merci Ferrand pour ces réponses.

Dés que j'aurai testé je te tiens informé.

Merci.

A+ et bonne soirée.

Bonsoir,

Premier essai sur le changement de position : c'est ok. Faudra m'expliquer...

Deuxième essai sur le bouton unique : c'est aussi ok.

Merci encore pour tes conseils toujours judicieux.

A+ et bonne nuit.