Créer un laptimer dans une macro excel
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 :
Code:
1
2
3
4
5
6
7
8
9
10
11
| 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 pour votre aide.
