Comparaison sur VBA

Bonjour,

Je suis nouvelle sur ce forum, je sollicite votre aide sur un sujet concernant VBA, je suis très reconnaissante si vous pouvez me donner un coup de main.

J'ai différents onglets de feuilles,

- dans la première feuille, il y a une cellule qui contient une année de projection ( 2020 par exemple)

- dans certaines autres feuilles, il y a une colonne A ( ou dans A1 c'est écrit "période"), et de A2 jusqu'à (de A3 à A40) lignes, il y a la chronique commençant par 2020 ( par exemple 2020, 2021, 2022 ou 2020,2021,...2060). Parfois cette chronique ne commence pas par la bonne année de projection ( à savoir 2020 dans notre exemple, donc on trouve A2 = 2014, A3= 2015, ect...)

Je souhaite ainsi créer une macro qui permet de corriger ce problème, qui fait le boulot avec un bouton.

Voila un petit exemple en PJ.

Merci d'avance pour votre aide.

Cordialement,

Bonjour,

Sub macro

    Dim Doc As Object
    Dim Sheet As Object

    Doc = StarDesktop.CurrentComponent

    Dim valeur As Long'Valeur de la date
    valeur = Doc.Sheets(0).getCellByPosition(1,2).value

    For i=1 To 5
        For ii=0 To 60
            Doc.Sheets(i).getCellByPosition(0,ii).String = Left(valeur+ii,4)
        Next
    Next

End Sub

Bonne Journée