Incompatibilité de type

Bonjour,

Le code suivant renvoie le message "erreur d'exécution 13 : incompatibilité de type" quand il est exécuté.

Je ne trouve pas l'erreur.

Merci d'avance.

Sub boucle()

Dim note() As Integer

Dim i, j As Integer

Dim s As Integer

j = 1

s = InputBox("Condition")

While [s = 1]

For i = 1 To 3

note(j, i) = InputBox("Données")

Next i

j = j + 1

s = InputBox("Condition")

Wend

MsgBox note(1, 1)

MsgBox note(1, 2)

MsgBox note(1, 3)

End Sub

Bonjour,

Tu ne dis pas quelle ligne est surlignée au moment de l'erreur mais

Les InputBox renvoient des string or, note() accepte des integer...

On peut supposer que cette ligne est donc la ligne surlignée :

note(j, i) = InputBox("Données")

Il faudrait écrire

note(j, i) = CInt(InputBox("Données"))

A+

bonsoir,

bonsoir galopin,

tu reçois une erreur 13 sur l'instruction

while [s=1]

enlève les parenthèses carrées

après tu recevras une erreur 9 sur l'instruction

note(j, i) = InputBox("Données")

tu dois modifier ton instruction dim note() pour y spécifier les dimensions

par exemple

dim note(10,10) as integer