Affichage automatique des données de 12 mois glissants

[dOUK]

Bonjour,

Mon tableau comporte des données de l'année 2002.
Je voudrais le compléter par des données de l’année 2003 et q’une fois mis à jour, il affiche les données disponibles des 12 derniers mois en masquant automatiquement les colonnes antérieures à cette période ainsi que celles qui lui sont postérieures, c'est-à-dire celles correspondant aux mois non encore renseignés.

Merci

 

[Mytå]

Salut douk

Adapte cette macro a ton application

Sub Effacer_colonne()
Application.ScreenUpdating = False
Dim A As Byte, B As Integer
Dim C As Byte, D As Integer

A = CStr(Month(Now()))
B = CStr(Year(Now()))

For i = 3 To 26
C = CStr(Month(Cells(4, i).Value))
D = CStr(Year(Cells(4, i).Value))
If (C < A + 1 And D < B) Or (C > A And D >= B) Then
Cells(4, i).EntireColumn.Hidden = True
End If
Next i
Application.ScreenUpdating = True
End Sub

Mytå

 

[Douk]

Bonjour Mytå et merci pour votre aide.

Comme je suis débutant votre macro ne me sera pas d'un grand secours.
N'existe-t-il pas de formules plus simples que je pourrais appliquer profitablement dans mon tableau.

Douk