Code VBA Figer le temps dans une cellule

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

Inspirer par Theze.

Merci.

Bonne journée.

Salut,

Voici un code qui devrait faire ton affaire.

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("F1:G16")) Is Nothing Then
    If Range("E" & Target.Row) = "ok" Then Range("D" & Target.Row) = Time
End If

End Sub

Cordialement.

Bonjour et merci pour ta réponse,

Les données dans la colonne F et G ne sont pas rentrées manuellement mais automatiquement avec une formule.

Voir le fichier joint.

Merci.

La prochaine fois joins de suite un fichier

Amicalement.

Merci Merci,

Problème résolu.

Bonne Journée.