valeur de Chronomètre dans cellule VBA

Bonjour,

voici l’énoncé mon problème :

je cherche à réaliser un chronomètre simple pouvant m'afficher "m:s :ms" afin d'enregistrer mes temps d’entraînements.

j'aimerai un bouton "start" et un bouton "stop" afin de pouvoir le contrôler. et une fois le chronométre arrêté , placer la valeur dans la première cellule du tableur excell et passer à la cellule suivante pour le 2eme temps , ect...

Le problème étant que je n'y connais pas grand chose en VBA :cry: mais ai de bonnes bases de C....

je requière donc votre aide. :oops:

Merci d'avance à tous !:ccool:

Bonjour,

Regarde la classeur joint. Dans le module de la feuille, mets :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Public Depart   Private Sub cbArret_Click() Dim Temps As Double Temps = Timer - Depart Cells(Rows.Count, 1).End(xlUp).Offset(1) = Int(Temps / 60) & "mn " & Int(Temps) - Int(Temps / 60) & _ Format(Temps - Int(Temps), "#.000") & "sec" End Sub   Private Sub cbDepart_Click() Depart = Timer End Sub

---

Waouw ! super ! 8O

j'était loin du compte dans mes recherches et mes essais

ce code de base va me permettre de pousser un petit peu plus loin car j'ai 2 cellules photoélectriques branchées en USB, j'aimerai m'en servir pour avoir un chronomètre autonome et que cela puisse me chronométrer de façon autonome.

si vous avez des idées, n'hésitez pas ;)

Un tout grand merci !