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 = 0

Coureur = Inputbox(« Quel

est le nom de l’athlète ? »)

Cells(« A1 »)

= Coureur

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

          Cells(« A2 ») = Chrono

          Cells(« A3 ») = NbTours

          ChronoEnreg = Chrono

     End if

Next i

End Sub