OVH Cloud OVH Cloud

Problème d'onglets...

4 réponses
Avatar
northern_lights
Bonjour à tous,

J'ai un problème Excel à vous soumettre :-)!

Je voudrais qu'en ouvrant mon fichier Excel, 12 onglets seulement
(représentant chacun un mois de l'année) soient visibles. En cliquant
sur un onglet, par exemple, janvier, de nouveaux onglets
apparaîtraient (semaine 1, 2, 3, etc.), mais les onglets des mois de
l'année ne seraient plus visibles. Est-ce possible? J'ai bien peur que
non, mais je demande l'avis d'experts!

J'utilise Excel XP et je suis débutante (vous vous en serez sûrement
doutés!).

Merci d'avance!

NL

4 réponses

Avatar
Philippe.R
Bonsoir,
Par exemple, dans le code de la feuille du mois 1, la feuille étant supposée nommée M1 et celles des
semaines M1Sem1 à M1Sem5 :

Private Sub Worksheet_Activate()
Sheets("M1Sem1").Visible = True
Sheets("M1Sem2").Visible = True
Sheets("M1Sem3").Visible = True
Sheets("M1Sem4").Visible = True
Sheets("M1Sem5").Visible = True
Sheets("M2").Visible = False
Sheets("M3").Visible = False
Sheets("M4").Visible = False
Sheets("M5").Visible = False
Sheets("M6").Visible = False
Sheets("M7").Visible = False
Sheets("M8").Visible = False
Sheets("M9").Visible = False
Sheets("M10").Visible = False
Sheets("M11").Visible = False
Sheets("M12").Visible = False
End Sub

Private Sub Worksheet_Deactivate()
Sheets("M2").Visible = True
Sheets("M3").Visible = True
Sheets("M4").Visible = True
Sheets("M5").Visible = True
Sheets("M6").Visible = True
Sheets("M7").Visible = True
Sheets("M8").Visible = True
Sheets("M9").Visible = True
Sheets("M10").Visible = True
Sheets("M11").Visible = True
Sheets("M12").Visible = True
Sheets("M1Sem1").Visible = False
Sheets("M1Sem2").Visible = False
Sheets("M1Sem3").Visible = False
Sheets("M1Sem4").Visible = False
Sheets("M1Sem5").Visible = False
End Sub

A adapter pour les autres mois
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Northern Lights" a écrit dans le message de
news:
Bonjour à tous,

J'ai un problème Excel à vous soumettre :-)!

Je voudrais qu'en ouvrant mon fichier Excel, 12 onglets seulement
(représentant chacun un mois de l'année) soient visibles. En cliquant
sur un onglet, par exemple, janvier, de nouveaux onglets
apparaîtraient (semaine 1, 2, 3, etc.), mais les onglets des mois de
l'année ne seraient plus visibles. Est-ce possible? J'ai bien peur que
non, mais je demande l'avis d'experts!

J'utilise Excel XP et je suis débutante (vous vous en serez sûrement
doutés!).

Merci d'avance!

NL


Avatar
northern_lights
Merci beaucoup! Ça a fonctionné à merveille :-)

Aurore


"Philippe.R" wrote in message news:...
Bonsoir,
Par exemple, dans le code de la feuille du mois 1, la feuille étant supposée nommée M1 et celles des
semaines M1Sem1 à M1Sem5 :

(Code très utile coupé pour raisons d'espace ;-)

A adapter pour les autres mois
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002


Avatar
Philippe.R
C'était avec un plaisir non dissimulé, Aurore !
;o)))
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Northern Lights" a écrit dans le message de
news:
Merci beaucoup! Ça a fonctionné à merveille :-)

Aurore


"Philippe.R" wrote in message news:...
Bonsoir,
Par exemple, dans le code de la feuille du mois 1, la feuille étant supposée nommée M1 et celles des
semaines M1Sem1 à M1Sem5 :

(Code très utile coupé pour raisons d'espace ;-)

A adapter pour les autres mois
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002




Avatar
sabatier
t'as de la chance ce soir, philippe : aurore vient de me confirmer son inscription au dîner de samedi...
jps

"Philippe.R" wrote:

C'était avec un plaisir non dissimulé, Aurore !
;o)))
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Northern Lights" a écrit dans le message de
news:
Merci beaucoup! Ça a fonctionné à merveille :-)

Aurore


"Philippe.R" wrote in message news:...
Bonsoir,
Par exemple, dans le code de la feuille du mois 1, la feuille étant supposée nommée M1 et celles des
semaines M1Sem1 à M1Sem5 :

(Code très utile coupé pour raisons d'espace ;-)

A adapter pour les autres mois
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002