Insérer automatiquement une colonne chaque mois et chaque début d'année

bonjour

voici le fichier excel dont je veux réaliser un code par vba qui insère un colonne chaque mois dans la feuille 3 par exemple le cas actuel juillet et qu'il ecrit en tete juille +année actuelle (juill-21)

et dans la feuille 2 chaque début d'année il crée une colonne de l'année précédente

comme notre cas quand on arrive à janvier-2022 il crée une colonne dont l'entête est mentionné 2021

merci

Bonjour,

Si j'ai bien compris, vous souhaitez qu'en ligne 2, les mois s’incrémente automatiquement jusqu'à la date d'aujourd'hui.

Dans ce cas :

Sub MOIS()
Dim LC%, DIFF%, C%
With Worksheets("Feuil3")
    LC = .Cells(2, .Columns.Count).End(xlToLeft).Column
    DIFF = DateDiff("m", DateSerial(Year(Date), Month(Date), 1), .Cells(2, LC))
    If DIFF < 0 Then
        For C = LC + 1 To LC - DIFF
            .Cells(2, C) = DateAdd("m", 1, .Cells(2, C).Offset(, -1))
        Next C
    End If
End With
End Sub

Si ce n'est pas ça merci de préciser le besoin, la démarche et de fournir un exemple avec le résultat avant VS après sur deux feuilles différentes.

Cdlt,

bonjour

oui je veux que le mois s'incrémente automatiquement

et quand la celulle égale janvier

il insère une nouvelle année

mais l'année précedente

exemple si janvier 2020 il insere l'année 2019 dans la feuille 2

merci

Bonjour,

C'est ce que le code posté fait. A insérer dans un module standard.

Cdlt,