XL 2010 Code VBA figer le temps

[Twixman]

Bonjour,
J'aimerai figer le temps dans la colonne D suivant le mot "ok" en colonne E qui serait donnée par la somme des cellules des colonne F et G.
Cellule E1 =si((F1+G1)=2;"ok";"")
Cellule E2 =si((F2+G2)=2;"ok";"")
.......
N'étant pas une spécialiste du code VBA serait-il possible de compléter ou de modifier le code ci-dessous.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("e1:e16")) Is Nothing Then Exit Sub

If Target.Value = "ok" Then Target.Offset(0, -1).Value = Time

End Sub
Merci.
Bonne journée.

 

[Paf]

Bonjour,

les mises à jour de cellule par formule ne déclenchent pas les proc évènementielles telle que Worksheet_Change.

Il faudrait alors utiliser Worksheet_Change sur les cellules colonne F et G ...et tester si la ligne correspondante de la colonne E est "ok". Seulement si ces cellules (F et G) sont modifiées manuellement .

A+

 

[Twixman]

Merci,
Problème résolu.
Bonne journée.