Bonjour à tous,
Je souhaiterais savoir où est mon erreur dans l'écriture du programme suivant:
Ecrire un programme permettant la saisie de 5 notes puis afficher la plus grande des 5.
Codialement.
Voici ce que j'ai pu programmer mais apparemment il y à une erreur et je n'arrive pas à la trouver:
"VBA me dit: Erreur d'exécution "9": l'indice est en dehors des dimensions du tableau."
Sub exo_1()
Const tmax = 5
Dim t(1 To tmax) As Double
Dim i As Integer
t(1) = InputBox("Entrez la première note")
For i = 1 To 5
t(i + 1) = InputBox("Entrez une nouvelle note")
If t(i) > t(i + 1) Then
t(i + 1) = t(i)
Else: t(i + 1) = t(i + 1)
i = i + 1
End If
Next
If t(5) > t(4) Then
MsgBox ("La plus grande note est " & t(5))
Else
MsgBox ("La plus grande note est " & t(4))
End If
End Sub