Masquer des onglets selon la date d'ouverture du fichier

Fermé

pinkbaby91 Messages postés 23 Date d'inscription mercredi 11 novembre 2015 Statut Membre Dernière intervention 17 août 2016 - 11 nov. 2015 à 15:06
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 13 nov. 2015 à 15:53

Bonjour à tous,
j'ai un fichier excel avec un certain nombre d'onglets.
Mes affichages d'onglets ont des calculs selon le trimestre de l'année dans lequel on se trouve. Ainsi, j'aimerai que, selon la date à laquelle j'ouvre mon fichier, les onglets qui ne correspondent pas au trimestre en cours soient masqués.
Si je suis au premier trimestre de l'année, les onglets des trimestre 2 3 et 4 se masquent, et ainsi de suite.
Est ce que quelqu'un pourrai m'aider?
Je l'espere en tout cas...
Merci d'avance!
A.

A voir également:

Masquer des onglets selon la date d'ouverture du fichier
Fichier rar - Guide
Fichier host - Guide
Comment réduire la taille d'un fichier - Guide
Fichier iso - Guide
Masquer conversation whatsapp - Guide

4 réponses

Réponse 1 / 4

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
11 nov. 2015 à 17:42

Bonjour,

Voir ici:

https://forums.commentcamarche.net/forum/affich-32766859-masquer-des-colonnes-en-fonction-de-la-date-du-jour#p32767590

Réponse 2 / 4

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
11 nov. 2015 à 19:21

Mettre en résolu ce post, si le code qui est sur ce lien est ce que vous chercher.

Réponse 3 / 4

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
12 nov. 2015 à 08:00

a mettre dans ThisWorkBook

Option Explicit
Dim monmois As String
Private Sub Workbook_Open()
Sheets(Format(Now, "mmmm")).Select 'selection mois en cours
monmois = Format(Now, "mmmm") 'mois en cours
 Dim I As Integer
   For I = 1 To Sheets.Count
      If Sheets(I).Name = monmois Then
    Worksheets(I).Visible = True
     Else
     Worksheets(I).Visible = xlSheetHidden 'on cache les onglets
      End If
   Next I
Trimestre (Now)
End Sub
Function Trimestre(MyDate As Date) As Integer
 Select Case Month(MyDate)
 Case 1, 2, 3
 Trimestre = 1
 Worksheets(1).Visible = True
 Worksheets(2).Visible = True
 Worksheets(3).Visible = True
 Case 4, 5, 6
 Trimestre = 2
  Worksheets(4).Visible = True
 Worksheets(5).Visible = True
 Worksheets(6).Visible = True
 Case 7, 8, 9
 Trimestre = 3
  Worksheets(7).Visible = True
 Worksheets(8).Visible = True
 Worksheets(9).Visible = True
 Case 10, 11, 12
 Trimestre = 4
  Worksheets(10).Visible = True
 Worksheets(11).Visible = True
 Worksheets(12).Visible = True
 End Select
 End Function

Réponse 4 / 4

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
13 nov. 2015 à 15:53

Voilà un exemple:

http://www.cjoint.com/c/EKno1gRMQMQ

Discussions similaires

Chemin Logo du site de la Cité de l'espace

comment donner les droits sur fichier partage

Discussions similaires

Newsletters