Bonjour à tous,
j'ai eu beau relire 50 fois mon code je saisis pas où est l'erreur :
ça me mets toujours : "erreur Nestor", même quand c'est bon.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Sub n() Dim x As Variant For x = 2 To 4 For i = 1 To 10 o = InputBox("combien font " & x & "x" & i & "?") If o = x * i Then MsgBox ("Bravo, Nestor") Else MsgBox ("Raté, Nestor") End If Next i Next x End Sub
Une idée ?
Partager