Re : Crée un chrono
Bonjour,
une solution
1. dans un module tu déclares une variable Debut qui est initialisé via Chrono associé à un bouton
Public Debut As Date
Sub Chrono()
Debut = Time ' initialisation du chrono
End Sub
2. tu associes un événement à ta feuille intersect permet de vérifier si la cellule sectionnée est coorespond à un temps
Private Sub Worksheet_SelectionChange(ByVal Cellule As Range)
If Not (Intersect(Cellule, Range("Z7:Z26")) Is Nothing) _
Or Not (Intersect(Cellule, Range("AM7:AM26")) Is Nothing) _ ' a dupliquer
Or Not (Intersect(Cellule, Range("BA7:BA26")) Is Nothing) _
Then
Cellule.Value = Format(Time - Debut, "hh:mm:ss")
End If
End Sub
GIBI
Quand tu sélectionne une cellule le temps s'inscrit dedans