Utilisation de DateAdd

Bonjour je voulais savoir si c'était possible d'utiliser la fonction DateAdd en vba avec pour date de comparaison la date système par exemple ajouter 6000h à la date système.

Pour le momment j'utilise la macro suivante, mais sa ne marche pas!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Worksheet_SelectionChange(ByVal Target As Range)     If Target.Column = 8 Then   If MsgBox("Voulez vous renouveler l'échéance?", vbYesNo) = vbYes Then Target.Value = DateAdd("h", 1000, Date) Else Exit Sub End If     End Sub

---

La colonne 8 (H) est la colonne ou j'ai ma date et ou je réincrémente du nombre d'heures choisi

Merci!:yaisse2:

Euh pardon je me suis trompé en fait sa marche mais se que je voudrai faire maintenant, ce n'est plus ajouter tout le temps la même durée, mais lorsque je clique dans une des cellules de la colonne "H", j'incrémente de la valeur inscrite sur la même ligne mais en colonne "F"

En fait chaque ligne n'a pas la même durée de réincrémentation!

Merci et dsl:roll:

En fait pour expliquer clairement, pour le moment j'ai par exemple ça

Code:

---

DateAdd("m", 1, Date)

---

Et je voudrais avoir

Code:

---

DateAdd("m", Valeur de la cellule en colonne F, Date)

---

Je pense que c'est plus simple comme ça :mrgreen:

Code:

---

1 2 3 4 5 6

Sub test() Dim LaDate, echeance LaDate = Now() echeance = DateAdd("h", 1000, CDbl(LaDate)) MsgBox echeance end sub

---

tu testes ;)
Edit
Je me disais bien... Mais comme tu as changé de question, faut que je relise...

bonjour,

Citation:

---

Code:

---

1 2 3 4

mais lorsque je clique dans une des cellules de la colonne "H", j'incrémente de la valeur inscrite sur la même ligne mais en colonne "F"   DateAdd("m", Valeur de la cellule en colonne F, Date)

---

---

utilise la propriété offcet

Code:

---

1 2	DateAdd("m", ActiveCell.Offset(0, -2).Value, Date)

---

:DSuper merci beaucoup à toi:D

C'est exactement ce que je voulais