• Initiateur de la discussion Initiateur de la discussion stef784
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

stef784

XLDnaute Junior
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 ?
 
Re : macro moyenne

Bonjour
tu cherches "m", et dans ton code, on voit "x" 😕

D'autre part, tu peux essayer avec select case :

Code:
Sub macro()
Dim m As Double
m = InputBox("rentrez votre moyenne")
Select Case m
    Case Is < 10
        MsgBox "Ajourné"
    Case Is < 12
        MsgBox ("Admis passable")
    Case Is < 14
        MsgBox ("admis AB")
    Case Is < 16
        MsgBox ("Admis bien")
    Case Else
        MsgBox ("Admis TB")
End Select
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
464
Réponses
3
Affichages
569
Réponses
5
Affichages
470
Réponses
0
Affichages
520
Retour