ajouter 7 jours à une date

[david]

salut le forum

je voudrais ajouter 7 jours à une date après avoir appuyer sur un bouton

ex: dans la case "a1" une date "14/06/04"
on appuis sur le bouton et la case
"a1" devient "21/06/04"

j'ai fait un petit exemple

merci pour votre aide

a+ david

 

[Michel_M]

Bonjour David,

Private Sub CommandButton1_Click()
Range("B4") = Range("B4") + 7
End Sub

A+
Michel

 

[david]

Salut Michel_M

Merci beaucoup ça marche

a+ david