ameliorer lisibilite d'une feuille de calcul

[perdinch]

bonsoir,

A L'ouverture d'un classeur,je souhaite desactiver les barres de calcul et afficher le mode plein ecran ceci afin d'accroitre la surface d'affichage d'un tableau.A la fermeture du classeur je dois retablir l'affichage.

merci de votre aide

perdinch

 

[MJ13]

Re : ameliorer lisibilite d'une feuille de calcul

Bonjour

Essaye déjà avec l'enregistreur de macros puis revient avec ton code.

Pense aussi à préciser ta version d'Excel.

les barres de calcul

C'est quoi ça!

 

[perdinch]

Re : ameliorer lisibilite d'une feuille de calcul

Bonsoir,

je voulais dire les barres d'outils ou barre de menu de l'application excel qui occupe de l'espace .

cordialement

PERDINCH

 

[perdinch]

Re : ameliorer lisibilite d'une feuille de calcul

voilà le code avec l'enregistreur.

Mais que se passe t 'il si l'utilisateur personnalise ses barres d'outils d'une facon différente de la mienne?

Sub desactivation_barres_outils()

Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Stop Recording").Visible = False
Application.CommandBars("Formula Auditing").Visible = False
Application.CommandBars("Worksheet Menu Bar").Visible = False
Application.CommandBars("Control Toolbox").Visible = False
Application.CommandBars("Drawing").Visible = False
Application.CommandBars("Forms").Visible = False
Application.CommandBars("PivotTable").Visible = False
Application.CommandBars("Visual Basic").Visible = False
End Sub

PERDINCH

 

[JCGL]

Re : ameliorer lisibilite d'une feuille de calcul

Bonjour à tous,

Pour les Barres "courantes" d'XL...

A placer dans le ThisWokbook

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayFullScreen = False
    Application.CommandBars("Formatting").Visible = True
    Application.CommandBars("Standard").Visible = True
End Sub

Private Sub Workbook_Open()
    Application.DisplayFullScreen = True
    Application.CommandBars("Standard").Visible = False
    Application.CommandBars("Formatting").Visible = False
End Sub

Ici :




A+ à tous

 

[perdinch]

Re : ameliorer lisibilite d'une feuille de calcul

bonsoir

Merci de votre aide ça m'a bien aidé.

PERDINCH

 

[fifi]

Re : ameliorer lisibilite d'une feuille de calcul

au cas ou l'utilisateur aurait des barres d'outils non formels...
tu peux aussi toutes les retirer avec une boucle.

Le code suivant permet de stocker l'état des barres d'outils à l'ouverture d'un classeur pour qu'à sa fermeture Excel retrouve son état initial, celui que l'utilisateur avait avant ouverture.


le classeur doit contenir une feuille nommée Format pour le stockage de l'état des barres d'outils.


à mettre dans thisworkbook

Private Sub Workbook_Open()
On Error Resume Next
Application.Calculation = xlManual
Application.ScreenUpdating = False
Application.DisplayAlerts = False

                    Dim I As Byte
                    For I = 1 To 250 '''250 barres d'outils possible
                        Sheets("Format").Cells(I, 1) = Application.CommandBars(I).Name  ''stockage du nom de la barre
'''statu de la barre
                        If Application.CommandBars(I).Visible = False Then
                            Sheets("Format").Cells(I, 2) = "False"
                        Else
                            Sheets("Format").Cells(I, 2) = "True"
                        End If
                        Application.CommandBars(I).Visible = False
                    Next I
fin:
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.Calculation = xlManual
Application.ScreenUpdating = False
Application.DisplayAlerts = False

    For I = 1 To 250
        If Sheets("Format").Cells(I, 1) = "" Then GoTo fin
            If Sheets("Format").Cells(I, 2) = False Then
                Application.CommandBars(I).Visible = False
            Else
                Application.CommandBars(I).Visible = True
            End If
   Next I
   
fin:
Application.Calculation = xlAutomatic
ThisWorkbook.Close Savechanges:=True
Application.EnableEvents = True
Application.DisplayAlerts = True
End Sub

 

[perdinch]

Re : ameliorer lisibilite d'une feuille de calcul

Merci de votre investissement.

cette solution est encore plus satisfaisante!

cordialement

perdinch