1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
| Private Sub CommandButton1_Click()
Dim vDebut As Variant
Dim vFin As Variant
Range("A1:A2").NumberFormat = ""
Range("A1") = CDate("10/01/2015")
Range("A2") = CDate("10/01/2016")
vDebut = Range("A1").Value
vFin = Range("A2").Value
Range("M3:aa3").Clear
Range("M3:aa3").NumberFormat = ""
Range("M3") = vDebut
Range("M3:aa3").Select
Selection.DataSeries _
Rowcol:=xlRows, _
Type:=xlChronological, _
Date:=xlMonth, _
Step:=1, _
stop:=vFin, _
Trend:=False
'expression.DataSeries(Rowcol, Type, Date, Step, Stop, Trend)
End Sub |
Partager