La procédure Kiplante()

a pour objectif d’enregistrer les meilleurs temps d’un athlète dans une feuille

Excel. On veut obtenir le nom du coureur et son meilleur temps dans une même

ligne. On suppose que la valeur saisie pour la variable Chrono est toujours

strictement supérieur à 0. Le code ne fonctionne pas comme désiré.

Pourquoi ?

Option Explicit

Sub Kiplante()

Dim NbTours, i as

Integer

Dim Chrono,

ChronoEnreg as Long

Dim Coureur as

String

ChronoEnreg = 60000

Coureur =

Inputbox(« Quel est le nom de l’athlète ? »)

Coureur =

Cells(« A1 »)

NbTours = Inputbox

(« Combien de tours de pistes ? »)

For i=1 to NbTours

     Chrono = Inputbox (« Quel temps pour

le tour n° » & i)

     If Chrono < ChronoEnreg Then

          Chrono = Cells(« A2 »)

          NbTours = Cells(« A3 »)

          ChronoEnreg = Chrono

     End if

Next i

End Sub