bojour Tiphanie,le Forum
3 procédures pour illustrer l'emploi DataSeries
curseur devant DataSeries et F1 pour aide
Sub SerieJours()
Dim DateRange As Range
'dimension plage arrête la série
Set DateRange = Worksheets('Feuil1').Range('E1:E31')
'début de la série
Worksheets('Feuil1').Range('E1').Value = '01/01/2005'
DateRange.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
Trend:=True
End Sub
Sub SerieFinMois()
Dim DateRange As Range
'dimension plage arrête la série
Set DateRange = Worksheets('Feuil1').Range('F1:F12')
'début de la série
Worksheets('Feuil1').Range('F1').Value = '01/01/2005'
DateRange.DataSeries Type:=xlChronological, Date:=xlMonth, _
Trend:=True
End Sub
Sub SerieDebutMois()
Dim DateRange As Range
'dimension plage arrête la série
Set DateRange = Worksheets('Feuil1').Range('G1:G12')
'début de la série
Worksheets('Feuil1').Range('G1').Value = '01/01/2005'
DateRange.DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:=xlMonth, _
Trend:=False
End Sub
j'ai aussi appris,grâce à ta question
à bientôt