Masquer les onglets sauf onglet Accueil

**manoncg** · 24/11/2016, 17h28

Bonsoir à tous,

J'ai un fichier Excel avec plusieurs onglets dont un onglet "Accueil" à partir duquel je peux accéder à plusieurs fonctionnalités en appuyant sur des boutons.
Parmi ces onglets, j'en ai deux qui s'ouvrent après avoir appuyé sur un bouton dans mon onglet Accueil. Ces onglets disparaissent dès lors que je clic sur un autre onglet/bouton.
Après réflexion, cette solution ne me semble pas la plus adaptée, car cela oblige les utilisateurs à ouvrir de nouveau l'onglet à chaque fois (= perte de temps).

Je souhaiterai donc que seul l'onglet accueil soit visible à l'ouverture du fichier. Que les utilisateurs puissent ouvrir les onglets qu'ils souhaitent en appuyant sur les boutons de l'onglet accueil et qu'à la fermeture du fichiers toutes les données saisies soient enregistrées et que les onglets se ferment, excepté l'onglet accueil. Ainsi, à la prochaine ouverture du fichier, seul l'onglet accueil sera de nouveau visible.

J'ai trouvé plusieurs codes sur Internet mais aucun ne fonctionne chez moi.
Pour info, j'utilise Excel pour MAC.
Etant débutante sur Excel, c'est possible que je m'y prenne mal et que je ne place pas la code au bon endroit...

Pourriez-vous m'aider?

Merci d'avance,

Manon

**eric4459** · 24/11/2016, 17h43

Bonjour Manon,
Si j'ai bien compris ton souhait tu dois donc cacher tes onglets à la fin de code et puis les ouvrir / cacher en cours de macro.
Je suppose que tu as défini tes onglets comme ceci par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim data1 As Worksheet
Set data1 = ThisWorkbook.Sheets("Data1")
Dim data2 As Worksheet
Set data2 = ThisWorkbook.Sheets("Data2")

Ensuite sous conditions tu les rends visibles comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If ta_condition then
Data1.Visible=True
Data2.Visible=True
End if

Tu peux les cacher en cours d'utilisation de la macro toujours sous conditions

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If ta_condition then
Data1.Visible=False
Data2.Visible=False
End if

ou alors juste avant la fin de ta macro, tu les caches

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
data1.Visible = False
data2.Visible = False
 
End Sub

Est-ce que cela repond à ta demande?

Eric

Invité · 24/11/2016, 17h55

Bonsoir,
Si tous les onglets sauf accueil sont masquer quand tu sauvegardes ton fichier, il te sufis de faire glisser la barre défilement sur la gauche pour masquer la sélection des onglets!

Il doit même y avoir un option dans Excel qui le permet ce serait mieux!

**manoncg** · 25/11/2016, 09h13

Bonjour,

Merci pour ta réponse Eric mais tout cela est déjà bien trop compliqué pour mon niveau, j'ai essayé d'insérer les codes mais ça ne fonctionne pas.

Ce que je souhaite c'est pouvoir ouvrir plusieurs onglets lors de l'utilisation de mon fichier et qu'à la prochaine ouverture du fichier (par un autre utilisateur par exemple) seul l'onglet Accueil apparaisse, donc que les autres onglets ouverts lors de la précédente utilisation ne soit plus visibles et le soient à nouveau que si l'utilisateur clique sur le bouton correspondant dans l'onglet accueil.

J'espère avoir été un peu plus claire,

Bonne journée,

Manon

**anasecu** · 25/11/2016, 09h28

Bonjour,

Envoyé par manoncg

tout cela est déjà bien trop compliqué pour mon niveau

Dans ce cas, tu mets ce code dans ThisWorkbook et toutes les feuilles autres que "Accueil" seront masquées à l'ouverture.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Workbook_Open()
Dim feu As Worksheet
For Each feu In ThisWorkbook.Sheets
    If feu.Name <> "Accueil" Then feu.Visible = xlSheetHidden
Next feu
End Sub

**halaster08** · 25/11/2016, 09h35

Envoyé par manoncg

qu'à la prochaine ouverture du fichier (par un autre utilisateur par exemple) seul l'onglet Accueil apparaisse

A voir le tuto sur les evenement:http://silkyroad.developpez.com/VBA/EvenementsClasseur/
En particulier le before_close.
Tu fais une boucle sur tes feuilles et si ce n'est pas ta feuille d'acceuil alors tu la cache.

Edit: trop lent.

Invité · 25/11/2016, 09h56

Bonjour,

Code module ThisWorkbook :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
 
Private Sub Workbook_AddinInstall()
IsAccueil
End Sub
Private Sub Workbook_AddinUninstall()
IsAccueil
End Sub
Private Sub Workbook_AfterXmlExport(ByVal Map As XmlMap, ByVal Url As String, ByVal Result As XlXmlExportResult)
IsAccueil
End Sub
Private Sub Workbook_AfterXmlImport(ByVal Map As XmlMap, ByVal IsRefresh As Boolean, ByVal Result As XlXmlImportResult)
IsAccueil
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
IsAccueil
End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
IsAccueil
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
IsAccueil
End Sub
Private Sub Workbook_BeforeXmlExport(ByVal Map As XmlMap, ByVal Url As String, Cancel As Boolean)
IsAccueil
End Sub
Private Sub Workbook_BeforeXmlImport(ByVal Map As XmlMap, ByVal Url As String, ByVal IsRefresh As Boolean, Cancel As Boolean)
IsAccueil
End Sub
Private Sub Workbook_Deactivate()
IsAccueil
End Sub
Private Sub Workbook_NewSheet(ByVal Sh As Object)
IsAccueil
End Sub
Private Sub Workbook_Open()
IsAccueil
End Sub
Private Sub Workbook_PivotTableCloseConnection(ByVal Target As PivotTable)
IsAccueil
End Sub
Private Sub Workbook_PivotTableOpenConnection(ByVal Target As PivotTable)
If ActiveWindow.TabRatio > 0 Then Sheets(1).Select
End Sub
Private Sub Workbook_RowsetComplete(ByVal Description As String, ByVal Sheet As String, ByVal Success As Boolean)
IsAccueil
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
IsAccueil
End Sub
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
IsAccueil
End Sub
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
IsAccueil
End Sub
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
IsAccueil
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
IsAccueil
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
IsAccueil
End Sub
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
IsAccueil
End Sub
Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)
IsAccueil
End Sub
 
 
 
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
IsAccueil
End Sub
Private Sub Workbook_Sync(ByVal SyncEventType As Office.MsoSyncEventType)
IsAccueil
End Sub
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
IsAccueil
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
IsAccueil
End Sub
Private Sub Workbook_WindowResize(ByVal Wn As Window)
IsAccueil
End Sub
Sub IsAccueil()
If ActiveWindow.TabRatio > 0 Then Sheets("Accueil").Select
ActiveWindow.TabRatio = 0
End Sub

**manoncg** · 25/11/2016, 10h42

Merci à tous pour votre aide...

Anasecu et dysorthographie, j'ai testé les codes mais ça ne fonctionne pas.

Anasecu, voilà ce qui apparaît lorsque j'entre ton code dans Workbook (cf. PJ)

De plus, petite rectification, j'aimerai que mon onglet accueil ET guide d'utilisation soient visibles lors de l'ouverture. C'est possible ?

Merci d'avance

Invité · 25/11/2016, 10h58

tu ajoutes un bouton guide d'utilisation

**halaster08** · 25/11/2016, 10h59

Le code d'Anasecu marche bien chez moi, tu peux essayer de remplacer feu.Visible = xlSheetHidden par feu.Visible = false

De plus, petite rectification, j'aimerai que mon onglet accueil ET guide d'utilisation soient visibles lors de l'ouverture

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If not(feu.Name = "Accueil" or feu.name="guide d'utilisation") then

**manoncg** · 25/11/2016, 11h13

Le fichier que tu m'as envoyé dysorthographie ne fonctionne pas chez moi
Et avec la modif du code de Anasecu non plus...

J'utilise Excel pour Mac peut-être que le problème vient de là...