Macro onglet caché

Version imprimable

Macro onglet caché

Bonjour à tous,

J'ai crée des macros dans un excel afin de naviguer d'onglet en onglet. J'ai par la suite caché ces onglets, or les macros ne fonctionnent plus.

Voici le code actuel :

Code:

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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
Sub VERSACCUEIL()
'
' VERSACCUEIL Macro
'
 
'
    Sheets("ACCUEIL").Activate
End Sub
Sub SEPT17()
'
' SEPT17 Macro
'
 
'
    Sheets("SEPTEMBRE 17").Activate
End Sub
Sub OCTOBRE2017()
'
' OCTOBRE2017 Macro
'
 
'
    Sheets("OCTOBRE 2017").Activate
End Sub
Sub NOVEMBRE2017()
'
' NOVEMBRE2017 Macro
'
 
'
    Sheets("NOVEMBRE 2017").Select
End Sub
Sub DECEMBRE2017()
'
' DECEMBRE2017 Macro
'
 
'
    Sheets("DECEMBRE 2017").Select
End Sub
Sub JANVIER2018()
'
' JANVIER2018 Macro
'
 
'
    Sheets("JANVIER 2018").Select
End Sub
Sub FEVRIER2018()
'
' FEVRIER2018 Macro
'
 
'
    Sheets("FEVRIER 2018").Select
End Sub
Sub MARS2018()
'
' MARS2018 Macro
'
 
'
    Sheets("MARS 2018").Select
End Sub
Sub AVRIL2018()
'
' AVRIL2018 Macro
'
 
'
    Sheets("AVRIL 2018").Select
End Sub
Sub AMAI2018()
'
' AMAI2018 Macro
'
 
'
    Sheets("MAI 2018").Select
End Sub
Sub JUIN2018()
'
' JUIN2018 Macro
'
 
'
    Sheets("JUIN 2018").Select
End Sub
Sub JUILLET2018()
'
' JUILLET2018 Macro
'
 
'
    Sheets("JUILLET 2018").Select
End Sub
Sub AOUT2018()
'
' AOUT2018 Macro
'
 
'
    Sheets("AOUT 2018").Select
End Sub
Sub SEPTEMBRE2018()
'
' SEPTEMBRE2018 Macro
'
 
'
    Sheets("SEPTEMBRE 2018").Select
End Sub

En cherchant la solution sur le net, j'ai essayé de remplacé "Select" par "Activate" mais toujours rien...

Merci pour vos lumières !

Bien à vous,

TH.

04/03/2018, 00h09
unparia

Bonjour
On ne peut (cela coule tellement de source) bien évidemment ni activer, ni sélectionner une feuille cachée !
Quelle est d'ailleurs la raison d'activer ou de sélectionner ces feuilles ?
Si ce n'est que pour en modifier la valeur de cellules, il n'est pas utile de les sélectionner ou activer. On travaille directement sur les objets Excel.
04/03/2018, 01h18
HivsThibault

Et donc quelle est la bonne alternative ?

Bonjour,
Je n'ai pas très compris ce que tu souhaite faire mais regarde si ce morceau de code peux t'aider.
Code:

1 2 3 4 5 6 7 8 Dim ws As Worksheet Sheets("MaFeuille").Visible = True Sheets("MaFeuille").Select For Each ws In Sheets If ws.Name <> "MaFeuille" Then ws.Visible = False Next

04/03/2018, 02h04
kiki29

Salut, voir ceci
04/03/2018, 07h33
unparia

Citation:

Et donc quelle est la bonne alternative ?

je crois t'avoir déjà dit ceci plus haut :

Citation:

Quelle est d'ailleurs la raison d'activer ou de sélectionner ces feuilles ?
Si ce n'est que pour en modifier la valeur de cellules, il n'est pas utile de les sélectionner ou activer. On travaille directement sur les objets Excel.

Non ?

S'il s'agit par contre de donner à l'utilisateur la possibilité de se rendre sur une feuille, ben ... pourquoi la cacher, alors ?

Bonjour,

Je suppose que tu as un tableau de bord sur la feuille "ACCUEIL" avec les noms des feuilles sur des boutons ? Si c'est ça, il te faut utiliser une proc unique qui cache toutes les feuilles inutiles pour le moment et affiche celle voulue. Pour que ceci fonctionne, il faut que tes boutons porte le nom de tes feuilles dans Excel ("OCTOBRE 2017", "NOVEMBRE 2017", etc...) que tu peux leurs attribuer en utilisant la zone de nom (à gauche de la barre de formule) avec validation par la touche Entrée ensuite, tu affecte la macro ci-dessous à tous tes boutons et tu testes.
"Application.Caller" retourne le nom de l'objet qui à appelé la macro et donc, si on paramètre bien les boutons (en leur donnant les noms adéquats) on peut utiliser cette propriété afin de réduire le code à l'expression ci-dessous :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub Afficher() Dim Fe As Worksheet For Each Fe In Worksheets If Fe.Name <> Application.Caller And Fe.Name <> "ACCUEIL" Then Fe.Visible = xlSheetVeryHidden Next Fe Worksheets(Application.Caller).Visible = xlSheetVisible End Sub

04/03/2018, 09h01
Theze

Oups,

Je viens seulement de m'apercevoir que tu es sous Mac et dans ce cas, je ne suis pas sûr que ce que je t'ai proposé fonctionne !
04/03/2018, 09h07
unparia

Bonjour Theze

Je ne crois pas qu'il cherche à montrer les feuilles dont il s'agit, mais qu'il souhaite que les macros dont il parle puissent fonctionner.
Il est clair (et c'est le sens de mon message) que ces macros, dont je suppose qu'elles doivent exercer des actions sur feuille(s) de calcul, ne sauraient fonctionner à coups de "select", "activate", etc ..., mais qu'elles le pourront par instructions directes appliquées aux objets Excel. ;)
04/03/2018, 09h27
Theze

Bonjour Jacques,

A voir le code montré, il a été enregistré avec l'enregistreur et donc, j'en ai déduis que seule la présentation des feuilles à l'écran était voulu par appui sur un bouton probablement mais attendons plus d'explications !
04/03/2018, 09h41
unparia

Tu as peut-être (?) raison.
Mais alors : au lieu de cacher les onglets en jouant avec la propriété des feuilles, ce qui revient à affecter la propriété-même des feuilles, il lui suffirait de cacher carrément la barre des onglets elle-même (ce qui n'affecte que l'affichage de cette barre et non la propriété visible des feuilles) !
Il suffit pour cela d'utiliser :

Code:

ActiveWindow.DisplayWorkbookTabs = False ' pour cacher cette barre à l'ouverture du classeur

et

Code:

ActiveWindow.DisplayWorkbookTabs = true ' à la fermeture du classeur

Il pourrait dès lors utiliser comme il l'entend ses "activate" ... ;)
04/03/2018, 09h45
Theze

Re,

Citation:

...il lui suffirait de cacher carrément la barre des onglets elle-même (ce qui n'affecte que l'affichage de cette barre et non la propriété visible des feuilles) !

Là, c'est encore mieux, je suis d'accord avec toi (je n'y ai même jamais pensé:?) ;)