Discussion :

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

Code :

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

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.

[ARTURO83]

Bonjour,

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

Code :

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

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

[Twixman]

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

Merci.

[ARTURO83]

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 :

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

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

[Twixman]

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.

[ARTURO83]

Voilà

Code :

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

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

[Twixman]

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