N'incrementer que l'annee mais afficher le mois

[Beast464]

Bonjour a tous,

Voila ma question :

deb = Year(CDate(DateDeb))
    fin = Year(CDate(DateFin))
    'Je ne selectionne que l'annee, plus simple a visionner que tout les mois sur 10ans'
      
    Set Cell = ActiveSheet.[D1]
    Li = Cell.Row: Col = Cell.Column
    
    For i = deb To fin
        Cells(Li, Col).Value = i
        Cells(Li, Col).NumberFormat = "0"
            Col = Col + 1 'incrementation de i selon le nombre d annee'
        Next i

Ce code me permet d incrementer l'annee et d'afficher annee par anne sur une ligne.
Mais j'aimerai afficher le mois + l'annee pour plus de clarte :

Exemple DateDeb= Juin 99
Date fin = Juin 2010

j'aimerai afficher : Juin 99 , juin 00 juin 01 juin 02 etc.
le mois ne bougerai pas mais seulement l annee

 

[Pierrot93]

Re : N'incrementer que l'annee mais afficher le mois

Bonjour Beast,

pas sur d'avoir bien compris ta demande, mais regarde le code ci-dessous si il peut t'aider :

Cells(Li, Col).Value = StrConv(MonthName(Month(CDate(DateDeb))), vbProperCase) & " " & Format(i, "00")

bonne journée
@+

 

[Pierrot93]

Re : N'incrementer que l'annee mais afficher le mois

Re,

pour tenir compte du "format", modifie ainsi le code proposé :

Cells(1, 1).Value = StrConv(MonthName(Month(CDate(DateDeb))), vbProperCase) & " " & Right(i, 2)

 

[Beast464]

Re : N'incrementer que l'annee mais afficher le mois

hmmm bizarre ca a l'air de marcher, sauf que sur les premieres cases ca incremente le jour sans bouger les mois, mais l'annee change bien, puis arrive a 31 le mois bouge pas et juste l'annee ( ce qu'il me faut...)

J'essaie de comprendre ton code mais quelques eclaircissement seraient pas de refus.

 

[Pierrot93]

Re : N'incrementer que l'annee mais afficher le mois

Re,

MonthName(Month(CDate(DateDeb)

te renvoie le nom du mois en utilisant le mois de ta date "DateDeb", comprends pas trop pourquoi les jours s'incrémentent dans ton code, il faudrait voir le code utiisé....