Bonjour,
j'ai un exo qui est le suivant à faire:
Soit m la moyenne des notes d'un étudiant donnée par l'utilisateur. Déterminer la décision du jury (ajourné, admis passable, admis AB, admis B , admis TB)
j'ai fais :
Sub macro()
Dim m As Double
m = InputBox("rentrez votre moyenne")
If (m < 10) Then
MsgBox ("Ajourné")
ElseIf (x >= 10) And (x < 12) Then
MsgBox ("Admis passable")
ElseIf (x >= 12) And (x < 14) Then
MsgBox ("admis AB")
ElseIf (x >= 14) And (x < 16) Then
MsgBox ("Admis bien")
ElseIf (x >= 16) Then
MsgBox ("Admis TB")
End If
End Sub
mais ça fonctionne pas, pourquoi ?
j'ai un exo qui est le suivant à faire:
Soit m la moyenne des notes d'un étudiant donnée par l'utilisateur. Déterminer la décision du jury (ajourné, admis passable, admis AB, admis B , admis TB)
j'ai fais :
Sub macro()
Dim m As Double
m = InputBox("rentrez votre moyenne")
If (m < 10) Then
MsgBox ("Ajourné")
ElseIf (x >= 10) And (x < 12) Then
MsgBox ("Admis passable")
ElseIf (x >= 12) And (x < 14) Then
MsgBox ("admis AB")
ElseIf (x >= 14) And (x < 16) Then
MsgBox ("Admis bien")
ElseIf (x >= 16) Then
MsgBox ("Admis TB")
End If
End Sub
mais ça fonctionne pas, pourquoi ?