Discussion :

[HivsThibault]

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 :

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
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.

[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.

[HivsThibault]

Et donc quelle est la bonne alternative ?

[Sidonay]

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

Code :

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

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

[kiki29]

Salut, voir ceci

[unparia]

Et donc quelle est la bonne alternative ?

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

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 ?