afficher colonne lorsque le mois change

[exene]

Bonjour,

Un petit problème à vous soumettre. Imaginons un tableau de 12 colonnes avec en en-tête les mois de l'année, seule la colonne A (janvier) est affichée, les autres sont masquées . Serait il possible d'afficher la colonne B (février) lorsque aujourd'hui = 1 février (janvier et février sont alors affichés) et ainsi de suite pour les autres mois de l'année. J'ai essayé avec l'enregistreur de macro pour voir comment pourrais se présenter le code mais entre moi et le VBA il y a toujours incompatibilité.

Merci pour votre aide

 

[Guest]

Re : afficher colonne lorsque le mois change

Bonjour le Forum,

bonjour Exene,

Voici une solution à mettre dans le module de code ThisWorkBook. ALT+F11 et double-click sur 'ThisWorkBook' dans le volet gauche de la fenêtre qui s'est ouverte. Dans le volet droite, coller ses lignes.

A l'ouverture du classeur les n° des 12 premières colonnes de la feuil2 sont compare au mois en cours et afficher ou pas.

Private Sub Workbook_Open()
 Dim mois As Byte
 With Sheets("[COLOR=navy]Feuil2[/COLOR]") 
    For mois = 1 To 12
     [COLOR=olive].Columns(mois).[/COLOR]EntireColumn.Hidden = mois > Month(Date)
    Next
 End With
End Sub

Bien sûr tu peux changer le nom de la feuille dans Sheets("Feuil2")

Si les colonnes de mois ne commence pas à la colonne 1 (A) mais par exemple à la 3 mettre .Columns(mois+2)

bonne journée et bonne zizique à tous

 

[skoobi]

Re : afficher colonne lorsque le mois change

Bonjour,

voici une proposition:

For i = 1 To 12
  If i <= Month(Date) Then
    Columns(i).Hidden = False
  Else:  Columns(i).Hidden = True
  End If
Next

Edit: arfff, salut Hasco, 1mn d'avance 🙂

 

[exene]

Re : afficher colonne lorsque le mois change

Bonjour,

Merci pour la réponse si rapide et la pédagogie. Je vais copier le code et essayer de le comprendre.

Bonne journée.

 

[BOISGONTIER]

Re : afficher colonne lorsque le mois change

Bonjour,

Sub auto_open()
  For m = 1 To 12
    Columns(m + 2).Hidden = (Month(Date) <> m)
  Next m
End Sub

ou

  Columns("C:N").Hidden = True
  Columns(Month(Date) + 2).Hidden = False

JB

 

[exene]

Re : afficher colonne lorsque le mois change

Bonjour à nouveau,

Je vais taper toutes vos propositions mais je vais mettre du temps. Je vous informerai des résultats.

Encore merci.

 

[JCGL]

Re : afficher colonne lorsque le mois change

Bonjour à tous,
Salut Hasco🙂,
Salut Skoobi🙂,

Un autre essai :

Option Explicit

Sub Code()
Dim x As Byte, y As Byte
Application.ScreenUpdating = False
Sheets(1).Activate
x = Month(Date) + 2
For y = x To 13
    Columns(y).EntireColumn.Hidden = True
Next y
    Range("A1").Select
End Sub

A++ aux 🙂
A+ à tous

 

[exene]

Re : afficher colonne lorsque le mois change

Bonjour le Forum,

Merci à vous pour les solutions, cela fonctionne. Désolé pour la réponse tardive mais j'évite le copier coller , je recopie le code à la main puis je le retape afin de comprendre quelque chose au VBA.

Bonne journée