Incrementation date

[niwiz]

Bonjour, voila je rencontre un problème d’incrémentation lorsque je souhaite ajouter 1 an a une plage de cellule. Il m’incrémente bien l'année mais met systématiquement janv

Sub Bouton1_Cliquer()

Date1 = Format(Range("R4").Value, "yyyy")
Date2 = Format(DateSerial(Year(Date) + 1, Month(Date), 1), "yyyy")

    If CDate(Date1) < CDate(Date2) Then
    
        For y = 7 To 18
'        valeu = Cells(4, y).Value
'        vale = CDate(Cells(4, y).Value)
'        valeur = DateAdd("yyyy", 1, CDate(Cells(4, y).Value))
        Cells(4, y).Value = Format(DateSerial(Year(CDate(Cells(4, y).Value)) +1, Month(CDate(Cells(4, y).Value))  + 12, 1), "dd/mm/yyyy")
        
        Next y
    End If
end sub

ps: voici un fichier avec une macro


Merci d'avance !!

 

[camarchepas]

Re : Incrementation date

Bonjour ,

Comme ceci , ça à l'air de fonctionner , si j'ai tout compris

Date1 = Format(Range("R4").Value, "yyyy")
Date2 = Format(DateSerial(Year(Date) + 1, Month(Date), 1), "yyyy")

    If CDate(Date1) < CDate(Date2) Then
    
        For y = 7 To 18

        Cells(4, y).Value = DateAdd("yyyy", 1, Cells(4, y).Value)
        
        Next y
    End If