Masquer des colonnes en fonction de la date du jour

Résolu/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:08
pinkbaby91 Messages postés 23 Date d'inscription mercredi 11 novembre 2015 Statut Membre Dernière intervention 17 août 2016 - 13 nov. 2015 à 15:50

Bonjour à tous,
j'ai un fichier excel avec tableau qui distingue des trimestres
Ainsi, j'aimerai que, selon la date à laquelle j'ouvre mon fichier, les colonnes qui ne correspondent pas au trimestre en cours soient masquées.
Si je suis au premier trimestre de l'année, les colonnes 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 colonnes en fonction de la date du jour
Fonction si et - Guide
Masquer conversation whatsapp - Guide
Mise a jour des pilotes - Guide
Triez la liste comme sur cette illustration (attention, on ne voit que le début …). quel est le mot formé par les 6 dernières lettres de la colonne code ? - Forum Excel
Publipostage date en anglais ✓ - Forum Excel

6 réponses

Réponse 1 / 6

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:02

A mettre dans ThisWorkBook:

Option Explicit
Private Sub Workbook_Open()
Sheets("Feuil1").Select ' a adapter
 Columns("A:L").Select
    Selection.EntireColumn.Hidden = True
Trimestre (Now)
End Sub
Function Trimestre(MyDate As Date) As Integer
 Select Case Month(MyDate)
 Case 1, 2, 3
 Trimestre = 1
 Columns("A:C").Select
  Selection.EntireColumn.Hidden = False
 Case 4, 5, 6
 Trimestre = 2
 Columns("D:F").Select
  Selection.EntireColumn.Hidden = False
 Case 7, 8, 9
 Trimestre = 3
  Columns("G:i").Select
  Selection.EntireColumn.Hidden = False
 Case 10, 11, 12
 Trimestre = 4
  Columns("J:L").Select
  Selection.EntireColumn.Hidden = False
End Select
 End Function

pinkbaby91 Messages postés 23 Date d'inscription mercredi 11 novembre 2015 Statut Membre Dernière intervention 17 août 2016
13 nov. 2015 à 15:50

c'est parfait!
merci infiniment!!

Réponse 2 / 6

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:41

Bonjour,

En vba. Faire Alt F11 pour accéder à l'éditeur.
Cliquez sur ThisWorkBook en haut à gauche et mettre ce code:

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

Ensuite vous enregistrez classeur avec macro

pinkbaby91 Messages postés 23 Date d'inscription mercredi 11 novembre 2015 Statut Membre Dernière intervention 17 août 2016
11 nov. 2015 à 18:41

Bonjour,

merci beaucoup pour cette réponse, mais est ce que cela convient bien pour masquer des colonnes? ce ne sont pas des onglets que vous masquez sur ce code?
A.

Réponse 3 / 6

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 à 18:55

C'est exact, je me suis planté. Je vois cela pour l'adapter à des colonnes.

Réponse 4 / 6

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 à 18:56

Mais pour celui là c'est bien des onglets?

https://forums.commentcamarche.net/forum/affich-32766855-masquer-des-onglets-selon-la-date-d-ouverture-du-fichier#p32767595

pinkbaby91 Messages postés 23 Date d'inscription mercredi 11 novembre 2015 Statut Membre Dernière intervention 17 août 2016
11 nov. 2015 à 19:05

oui c'est bien cela j'ai besoin de masquer des onglets et des colonnes. j'ai preferé splitter en deux car c'était deux questions distinctes
merci en tout cas!

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

pour les onglets, c'est bon?
Je vois cela demain pour les colonnes

pinkbaby91 Messages postés 23 Date d'inscription mercredi 11 novembre 2015 Statut Membre Dernière intervention 17 août 2016
11 nov. 2015 à 19:45

pour les onglets, ca me dit que l'indice n'appartient pas à la selection. je suis vraiment mauvaise en programmation. je ne comprends pas le debut du programme

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

j'ai tres certainement des choses à modifier dans cette partie pour que cela fonctionne avec mon fichier, mais à dire vrai, je ne sais pas quoi...

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 à 20:36

monmois = Format(Now, "mmmm") 'mois en cours

donne novembre

il faut que les onglets aient le mois écrit en entier!

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 6

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 à 18:57

C'est ce post là qui m'a trompé!

Réponse 6 / 6

Maurice
11 nov. 2015 à 19:11

Bonjour
donne un modelé de ton fichier ça sera plus simple pour comprendre
A+
Maurice

pinkbaby91 Messages postés 23 Date d'inscription mercredi 11 novembre 2015 Statut Membre Dernière intervention 17 août 2016
11 nov. 2015 à 19:51

je ne vois pas comment ajouter mon fichier ici?

Discussions similaires

Table des matières dont les titres n'apparaissent pas..

Pix

Problème Whatsapp - "La date est incorrecte"

liste de noms par ordre alphabétique

Prélèvement JM Jacquie et Michel date.

Discussions similaires

Newsletters