Discussion :

[wyzer]

Bonjour,

Comment fait-on pour lister tous les mois et années contenu dans une période s'il vous plaît ?

Par exemple si j'ai :

date1 = 01/11/2010
date2 = 31/01/2011

Ca donnerais :

nov-2010
déc-2010
janv-2011


Pour l'instant je ne sais faire que ça :

nov
déc
janv

Grâce à ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
j = 5 'on commence à la cellule A5
For i = Month(date1) To Month(date2)
.Range("a" & j).Value = MonthName(i)
j = j + 1
Next

Merci par avance

[Philippe Tulliez]

Bonjour,
Un exemple parmi d'autres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub test()
 Dim i As Single, j As Single: j = 5
 Dim Date1 As Date, Date2 As Date, NewDate As Date
 Date1 = #2/10/2010# ' Pour 10 février 2010
 Date2 = #5/31/2011#
 For i = 0 To DateDiff("m", Date1, Date2)
  NewDate = DateSerial(Year(Date1), Month(Date1) + i, 1)
  Range("a" & j).Value = MonthName(Month(NewDate)) & " - " & Year(NewDate)
  J = J + 1 
Next
End Sub

Mieux encore, remplacer la ligne 8 par Range("a" & j).Value = Format(NewDate, "mmm_yy")
Je te conseille la lecture de ce didacticiel

[wyzer]

Merci beaucoup !!