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

1 2 3 4 5 6 7 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.

Bonjour,

Réagit au changement de valeurs dans les colonnes F ou G

Code:

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("f1:f16")) Is Nothing Then
        If Target.Offset(0, -1).Value = "ok" Then Target.Offset(0, -2).Value = Time Else: Target.Offset(0, -2).Value = ""
    ElseIf Not Intersect(Target, Range("g1:g16")) Is Nothing Then
        If Target.Offset(0, -2).Value = "ok" Then Target.Offset(0, -3).Value = Time Else: Target.Offset(0, -3).Value = ""
    End If
End Sub

Cdlt

Bonjour Arthuro83.
Ne serait-il pas possible de réagir juste sur le "OK" en colonne E;
Pour pouvoir l'adapter à plusieurs tableaux.

Merci.

Bonsoir,

Vous pouvez essayer ceci, mais cela va réagir à chaque fois que l'on modifie une valeur entrant dans la composition d'une formule.
Code:

1 2 3 4 5 6 Option compare text Private Sub Worksheet_Calculate() For i = 1 To 16 If Cells(i, "E") = "Ok" Then Cells(i, "D") = Time Else: Cells(i, "D") = "" Next i End Sub
Cdlt

Re,

Ca fonctionne, mais ça ne fige pas le temps.
Quand je rentre une donnée dans la ligne du dessous toutes les heures change.
N' y a-t-il pas moyen de figer l'heure avec ce code.
Merci.

Voilà

Code:

1
2
3
4
5
6
Option Compare Text
Private Sub Worksheet_Calculate()
    For i = 1 To 16
        If Cells(i, "E") = "Ok" And Cells(i, "D") = "" Then Cells(i, "D") = Time
    Next i
End Sub

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