N'incrementer que l'annee mais afficher le mois

Beast464 · 12 Juillet 2010

Bonjour a tous,

Voila ma question :

Code:

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 · 12 Juillet 2010

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 :

Code:

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

bonne journée
@+

Pierrot93 · 12 Juillet 2010

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

Re,

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

Code:

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

Beast464 · 12 Juillet 2010

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 · 12 Juillet 2010

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

Re,

Code:

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é....

N'incrementer que l'annee mais afficher le mois

Beast464

Guest

Pierrot93

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Beast464

Guest

Pierrot93

XLDnaute Barbatruc

Discussions similaires

N'incrementer que l'annee mais afficher le mois

Beast464

Guest

Pierrot93

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Beast464

Guest

Pierrot93

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency