Discussion :

[ChipCan]

Bonjour à tous,
Après avoir parcouru plusieurs fois ce site, j'ai décidé de m'inscrire de participer et d'aider si je peux.
Mon problème du jour, j'essaye de mettre au point un chrono pour coureurs de trail.
Ma macro est la suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Chrono()
Static c As Long
If IsEmpty(Cells(1, 1)) Then c = 0
c = c + 1
Cells(c, 1) = Now
Cells(c, 2) = Now - Cells(1, 1)
If c <> 1 Then Cells(c, 3) = Now - Cells(c, 1).Offset(-1, 0)
End Sub

elle fonctionne correctement mais j'ai besoin pour l'organisation de ma feuille de la faire démarrer en A10. Or elle démarre systématiquement en A1.
Je ne suis pas un expert du VBA alors je bloque et je souhaiterais que quelqu'un me donne la solution en m'expliquant le pourquoi de ce bloquage.
*Un grand merci

[EDO62]

Bonjour ChipCan,

??? j'ai juste décalé ta boucle vers le bas. Voilà ce que ça donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Chrono()
Static c As Long
If IsEmpty(Cells(10, 1)) Then c = 9
c = c + 1
Cells(c, 1) = Now
Cells(c, 2) = Now - Cells(10, 1)
If c <> 10 Then Cells(c, 3) = Now - Cells(c, 1).Offset(-1, 0)
End Sub

Est-ce que ça te convient ?

Emmanuel

[ChipCan]

C'est top un grand merci

Merci Emmanuel
ça fonctionne et correspond à mon besoin
un grand merci
ChipCan