Cacher des feuilles au démarrage (liste déroulante apparante)

Pierrot93

XLDnaute Barbatruc

• 25 Octobre 2012

• #2

Re : Cacher des feuilles au démarrage (liste déroulante apparante)

Bonjour,

Quelqu'un a t il une idée du code à mettre pour qu'elles n'apparaissent pas à l'écran initialement?

Cliquez pour agrandir...

petite remarque au passage, dans un classeur excel, au moins moins une feuille doit être visible....

bonne journée
@+

 

Vote positif 0 Vote négatif

SiD88

XLDnaute Junior

• 25 Octobre 2012

• #3

Re : Cacher des feuilles au démarrage (liste déroulante apparante)

Bonjour Pierrot93,

En effet, la seule feuille qui doit rester apparente est celle où j'ai mis ma liste déroulante (Feuille A).

Salut

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Octobre 2012

• #4

Re : Cacher des feuilles au démarrage (liste déroulante apparante)

Re,

essaye ceci, à placer dans le module "thisworkbook", se déclenche à l'ouverture du classeur...

Code:

Option Explicit
Private Sub Workbook_Open()
Dim ws As Worksheet
Sheets("A").Visible = xlSheetVisible
For Each ws In Worksheets
    If ws.Name <> "A" Then ws.Visible = xlSheetHidden
Next ws
End Sub

 

Vote positif 0 Vote négatif

SiD88

XLDnaute Junior

• 25 Octobre 2012

• #5

Re : Cacher des feuilles au démarrage (liste déroulante apparante)

Re,

Cela fonctionne parfaitement.
Petit question, si je veux rajouter des feuilles visibles, je vois bien que je dois rajouter le code

Sheets("Nouvellefeuillevisible").Visible = xlSheetVisible

Cependant, dans le FOR, puis dans le IF, est il possible de faire une énumération du type
If ws.Name <> "A" "Nouvellefeuillevisible" Then ws.Visible = xlSheetHidden

où faut il réécrire ligne par ligne?
If ws.Name <> "A" Then ws.Visible = xlSheetHidden
If ws.Name <> "Nouvellefeuillevisible" Then ws.Visible = xlSheetHidden

Merci beaucoup

 

Vote positif 0 Vote négatif

JONEY76

XLDnaute Occasionnel

• 25 Octobre 2012

• #6

Re : Cacher des feuilles au démarrage (liste déroulante apparante)

Bonjour


Sheets("X").visible=true

 

Vote positif 0 Vote négatif

SiD88

XLDnaute Junior

• 25 Octobre 2012

• #7

Re : Cacher des feuilles au démarrage (liste déroulante apparante)

Bonjour Joney76,

Je viens de tester et ça marche crème.

Merci à tout les deux

 

Vote positif 0 Vote négatif