Incrémenter une date

[Christophe]

Bonjour,

Je récupère une date dans une cellule que je place dans une variable.
Ensuite, et c'est là où çà pêche, je voudrais incrémenter cette variable contenant la date de x jours. Si quelqu'un peut me donner la syntaxe çà serait sympa.

Par avance merci !

POur info mon morceau de code :


Dim coord As String
Dim num_ligne As String
Dim a As String



num_ligne = "6"

Do While (num_ligne < 15)
coord = "H" + num_ligne
a = Range(coord).Value + "7"
If a < ("=TODAY()") Then
Sheets("Archives").Select
Range("A" + num_ligne) = "yes"
Else
Sheets("Archives").Select
Range("A" + num_ligne) = "no"
End If

num_ligne = num_ligne + 1
Loop

 

[daniel]

voila une solution:

Private Sub Incremente_button_Click()
'incrementer date

Dim a As Date
a = Sheet1.Range("date").Value
i = 2 ' nombre de jour en plus
a = a + i
Sheet1.Range("date_incremente").Value = a

End Sub

 

[daniel]

Excuse, je t'ai fait incrementer le nb de mois. la solution pour les jour est

Private Sub Incremente_button_Click()
'incrementer date

Dim a As Date
a = Sheet2.Range("date").Value
i = 2 ' nombre de jour en plus
a = a + i / 24
Sheet2.Range("incremented_date").Value = a

End Sub