Discussion :

[moilou2]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[moilou2]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DateAdd("m", 1, Date)

Et je voudrais avoir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Je pense que c'est plus simple comme ça

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[patbou]

bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[moilou2]

Super merci beaucoup à toi

C'est exactement ce que je voulais