Créer un laptimer dans une macro excel

[Race94]

Bonjour à tous,

Je suis nouveau sur ce forum. Je cherche de l'aide à propos de la création d'un laptimer (afficher un chronomètre tour par tour) pour plusieurs autos.
La finalité de ce projet est une d'aider la personne chargée des stratégies de course dans un championnat automobile.

Mon problème actuel est que dans ma formule qui gère cela affiche la différence de temps entre l'heure de départ et l'heure actuelle. Or je souhaiterai obtenir un chrono tour par tour.

Voici ce que j'ai pour le moment :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C3:C20")) Is Nothing Then
If Target.Count > 1 _
Or ActiveSheet.CommandButton1.Visible = True _
Or IsEmpty(Target.Value) _
Or Target.Interior.ColorIndex = 15 Then Exit Sub
Cells(Target.Row, 255).End(xlToLeft).Offset(0, 1) = Time - [B3]
If Cells(Target.Row, 255).End(xlToLeft).Column = 20 Then Target.Interior.ColorIndex = 15
[A1].Select
End If
End Sub



Merci de bien vouloir m'aider.

 

[youky(BJ)]

Re : Créer un laptimer dans une macro excel

Bonjour Race94,
Pas bien facile de comprendre ta demande sans fichier.
De plus une macro qui répond pas à la demande.
Je t'ai fait ceci avec ce que j'ai pigé.
A savoir Mieux nous comprenons ....plus direct et précise est la réponse.
Bruno

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C3:C20")) Is Nothing Then
If Target.Count > 1 _
Or ActiveSheet.CommandButton1.Visible = True _
Or IsEmpty(Target.Value) _
Or Target.Interior.ColorIndex = 15 Then Exit Sub
der = Cells(Target.Row, 255).End(xlToLeft).Column
If der = 3 Then Cells(Target.Row, 4) = Time - [B3]
If der = 4 Then Cells(Target.Row, 5) = Time - ([B3] + Cells(Target.Row, 4))
If der > 4 Then _
Cells(Target.Row, der + 1) = Application.Sum(Range(Cells(Target.Row, 4), Cells(Target.Row, der)))
If der = 20 Then Target.Interior.ColorIndex = 15
[A1].Select
End If
End Sub

 

[youky(BJ)]

Re : Créer un laptimer dans une macro excel

OUPS! boulette . . .
voici rectifié avec un fichier
Bruno