[Excel] Temps intermédiaire automatique qd une cellule n'est plus vide

Tags :

Dernière réponse : 10 Juin 2007 22:50 dans Programmation

bestjog

8 Juin 2007 14:16:27

Je fais un classement pour un course à pieds.
Je voudrais qu'à l'arrivée des coureurs, juste en entrant leur numéro de dossard dans une colonne, leur temps d'arrivée se mette automatiquement dans la colonne voisine.
En ayant bien entendu, au préalable lancé le chrono au moment du départ de la course.

Donc par exemple, course de 10km :
en colonne A les dossards
en colonne B les temps d'arrivée

- je lance le chrono au moment du départ de la course.
- le 1er coureur arrive, je rentre son numéro de dossard en A1 ==> automatiquement je voudrais son temps d'arrivée en B1
- le 2ème coureur arrive,...
- ...

Autres pages sur : excel temps intermediaire automatique cellule vide

| Etre averti des réponses
| Alerter

Lassé par la pub ? Créez un compte

zeb

8 Juin 2007 14:31:03

Maintenant se dit Now en VB.
Je te propose de gérer l'évenement Worksheet_Change(ByVal Target As Range) de ta feuille. Le paramètre Target est la cellule que je tu es en train de modifier. Avec Offset, il est facile de passer à la cellule d'à-côté.

| Alerter

bestjog

8 Juin 2007 20:33:46

n'ayant jms fait de vb
tu ne sais pas me donner un lien pour que j'apprenne un peu?
merci

| Alerter

bestjog

9 Juin 2007 14:11:30

j'ai trouvé :

Private Sub CommandButton1_Click()
[e1] = Now
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([B1:B1001], Target) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
Target.Offset(0, 3) = Now
Application.EnableEvents = True
End If
End Sub

Après faire simple soustraction :-D