Afficher que le mois en cours

Bonjour,

Ayant eu de bonnes infos concernant mon programme de hier, je viens à nouveau vers vous pour savoir si une astuce est possible concernant le programme en PJ. Comme vous allez pouvoir le constater je veux faire apparaître que le mois en cours mais ça m'oblige à changer le mois dans le module 2. Ce n'est pas un problème, mais y aurait-il un "astucieux" parmis vous pour éviter celà!

D'avance merci.

Bonjour

A tester

Bonjour

Sinon, avec ton bouton

Sub MasquerOnglets()
ActiveSheet.Unprotect
Dim sh As Worksheet, Val As Variant
xdate = Now()
Val = Application.WorksheetFunction.Proper(Format(xdate, "mmmm yyyy"))
For Each sh In Worksheets
 If sh.Name <> Val Then sh.Visible = False
Next
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True
End Sub

Cordialement

Bonjour

Pour leakim

J'ai transféré ton sujet ici

https://forum.excel-pratique.com/excel/masquer-des-onglets-t36660.html

Cordialement

Amadéus a écrit :

Bonjour

Sinon, avec ton bouton

Sub MasquerOnglets()
ActiveSheet.Unprotect
Dim sh As Worksheet, Val As Variant
xdate = Now()
Val = Application.WorksheetFunction.Proper(Format(xdate, "mmmm yyyy"))
For Each sh In Worksheets
 If sh.Name <> Val Then sh.Visible = False
Next
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True
End Sub

Cordialement

Merci tous les amis. C'est super. Bonne fin de soirée à tous et encore un GRAND merci

Je m'excuse j'ai parlé trop vite! J'ai un bug dans Masquer tous les mois sauf celui en cours. J'ai recopier la macro mais là je ne vois pas.

Je m'excuse de demander encore un petit effort. Je pense que c'est énorme mais je ne vois pas!

C'est incroyable les amis. J'ai bien recopié et affecté le bouton!

Plus je regarde moins je vois!

Encore toutes mes excuses

Bonsoir

Pourquoi cela ne fonctionne pas : 3 raisons

• -Février 2013 est inscrit sans accent
• -Les mois ne sont pas de l'année en cours
• -Si la page qui doit être affichée est située après la page qui va être masquée --> Plantage : Il faut au minimum une page affichée

C'est pour ça que je suis passé par un Userform avec la liste des pages

Évites aussi d'avoir des boutons sur toutes les pages

Un code sans avoir la liste des pages est réalisable mais un chouïa compliqué (enfin je l'imagine)

Banzai64 a écrit :

Bonsoir

Pourquoi cela ne fonctionne pas : 3 raisons

• -Février 2013 est inscrit sans accent
• -Les mois ne sont pas de l'année en cours
• -Si la page qui doit être affichée est située après la page qui va être masquée --> Plantage : Il faut au minimum une page affichée

C'est pour ça que je suis passé par un Userform avec la liste des pages

Évites aussi d'avoir des boutons sur toutes les pages

Un code sans avoir la liste des pages est réalisable mais un chouïa compliqué (enfin je l'imagine)

Quel C.N!!! L'accent. Alors là c'est vicieux! Je suis resté 2 jours sur un espace dans l'onglet!

Un GRAND merci Banzai64. Moi qui vient d'être opéré à coeur ouvert pendant 10 h et qu'il me faut une tension peu élevée je suis HS!

Encore un GRAND merci et bonne soirée à toutes les bonnes volontés de ce forum. Si je peux être utile ça sera avec plaisir.