une histoire de date

P

pyrof

Guest

• 4 Juin 2003

• #2

bonjour,

Voici une solution pour incrémenter les dates


Sub essai()
date1 = "16/1/2003"
date2 = "16/12/2003"
x = date1
While x < date2
x = DateAdd("d", 30, x)
MsgBox x
Wend
End Sub

 

Vote positif 0 Vote négatif

C

C@thy

Guest

• 4 Juin 2003

• #3

Bonjour Reeaz,

j'ai bien quelquechose, mais zippé il fait 52K! je te l'envoie directement, ça pourra sûrement t'aider, avec le code de Pyrof en plus, tu devrais pouvoir faire quelquechose.

 

Vote positif 0 Vote négatif

R

Reeaz

Guest

• 4 Juin 2003

• #4

merci bcoup, mais j'ai un pb avec la macro car elle ne veut plus s'arreter !!
Elle ne s'arrete pas au 31/12!!
Pourrais tu m'aider?

Reeaz

 

Vote positif 0 Vote négatif

C

C@thy

Guest

• 4 Juin 2003

• #5

J'ai essayé un truc comme ça :

ActiveCell.FormulaR1C1 = "1/16/2003"
Range("E17:E29").Select
Selection.DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:= _
xlDay, Step:=30, Stop:=37971, Trend:=False
End Sub

Le problème c'est qu'avec un pas de 30 ça donne ça :

16/01/2003
15/02/2003
17/03/2003
16/04/2003
16/05/2003
15/06/2003
15/07/2003
14/08/2003
13/09/2003
13/10/2003
12/11/2003
12/12/2003

 

Vote positif 0 Vote négatif

C

C@thy

Guest

• 4 Juin 2003

• #6

Sub essaiDate()
Dim toto, datefin As Date ' Déclare les variables.
Dim IntervalType As String
Dim Msg

IntervalType = "m" ' "m" indique l'intervalle en mois.
toto = "16-jan-2002"
datefin = "16-jan-2003"

While toto < datefin
toto = DateAdd("m", 1, toto)
MsgBox toto
Wend
End Sub

 

Vote positif 0 Vote négatif

R

Reeaz

Guest

• 4 Juin 2003

• #7

Merci beaucoup, ca marche!!

 

Vote positif 0 Vote négatif