Supprimer Menu sur une seul feuille "accueil"

[maval]

Bonjour,,

Est-il possible de supprimer les menus sur la feuille d'accueil uniquement.

Parce que avec le code suivant sa supprime completement

Application.DisplayFullScreen = False

Merci de votre aide

 

[maval]

Re : Supprimer Menu sur une seul feuille "accueil"

Re

Personne a une idée

@+

 

[JCGL]

Re : Supprimer Menu sur une seul feuille "accueil"

Bonjour à tous,

Peut-être en mettant ce code avec une valeur True sur cette feuille et la valeur à False dans le _Activate sur les autres feuilles...

A+ à tous

Edition : Salut David

 

[david84]

Re : Supprimer Menu sur une seul feuille "accueil"

Bonsoir, salut Jean-Claude,
peut-être en précisant simplement le nom de la feuille Accueil, du genre :

If ActiveSheet.Name = "Accueil" Then Application.DisplayFullScreen = True

A+

 

[maval]

Re : Supprimer Menu sur une seul feuille "accueil"

Bonsoir Jean Claude, David,

En mettant le code de David dans ThisWorkbook peut être ???

@+

 

[maval]

Re : Supprimer Menu sur une seul feuille "accueil"

Re,

Non le problème est le même....!

@+

 

[JCGL]

Re : Supprimer Menu sur une seul feuille "accueil"

Bonjour à tous,

Dans le module ThisWorkBook :

Option Explicit


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.DisplayFullScreen = IIf(ActiveSheet.Name = "Accueil", True, False)
End Sub

A+ à tous

 

[maval]

Re : Supprimer Menu sur une seul feuille "accueil"

Re,

Nickel Jean Claude je te remercie et te souhaite une bonne soirée

@+