Exercices VBA

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

bonjour

quand i vaut 5, i+1 vaut 6 et dépasse le limites du tableau.

en fait tu n'as pas besoin de tableau.

tu demandes 5 valeurs, 1 à 1, et tu gardes toujours la plus grande valeur

Bonjour,

à tester,

Sub exo_1()
Dim t(5) As Double
Dim i As Integer

For i = 1 To 5
    t(i) = InputBox("Entrez une note")
Next

MsgBox Application.Max(t)
End Sub
Rechercher des sujets similaires à "exercices vba"