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

[bestjog]

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,...
- ...

 

[zeb]

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é.

 

[bestjog]

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

 

[bestjog]

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

 

[zeb]

Et un lien vers les règles de publication sur ce forum, tu en veux un ?

 

[bestjog]

j'suis pas au courant de l'existance de telles règles,
j'veux bien le lien

 

[KangOl]

ouvres les yeux

Vous devez être connecté pour voir les liens.