Re : Problème de compteur...
Bonjour Modeste,
Ta proposition fonction parfaitement, et je tant remercie grandement ^^
Voilà la solution adapté à ma demande :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B1:B2]) Is Nothing Then
If Target.Count > 1 Then Exit Sub
Select Case TimeValue(Now)
Case TimeValue("05:30:00") To TimeValue("13:29:59")
col = 5
Case TimeValue("13:30:00") To TimeValue("21:29:59")
col = 6
Case Else
col = 7
End Select
Application.EnableEvents = False
Cells(Target.Row, col) = Cells(Target.Row, col) + Target
Application.EnableEvents = True
End If
End Sub
Cependant, mon cahier des charges à évoluée. Je me retrouve une fois de plus dans l’incapacité de réaliser cette tache seul. C’est pour cela que je demande votre aide
…
J’aimerais que le compteur ce réinitialise tous les jours à 5 heures 29 minute et 59 seconde, ainsi l’incrémentation de mes valeur en B1 et B2 figurent en colonne 5, 6 et 7 repartirais de zéro tous les matins à 5h29min59sec.
Ce n’est pas tous, j’aimerais garder un historique de 7 jours, en l’occurrence du vendredi 5h29min59sec au vendredi suivant 5h30min00sec. J’aimerais que cet historique ce trouve sur une feuille différente de la feuille du compteur. Ce compteur devra ce réinitialisé lui aussi tous le vendredi à 5h29min59sec.
J’espère que mes explications sont claires ? On vous remercient du temps consacré a ma demande.
Merci