Sub Macro2() 'dimensionnement des variables Dim som As Single Dim y As Single Dim min As Single Dim max As Single Dim x As Single Dim moy As Single 'initialisation des variables moy = 0 som = 0 min = 20 max = 0 y = 0 'entrée des données Do While x <= 20 x = InputBox("entrez les notes des éleves, terminez votre série de note par une valeur supérieure à 20") if x > 20 then exit do If x < min Then min = x End If If x > max Then max = x End If som = som + x y = y + 1 moy = som / y Loop 'Résultats MsgBox (" note minimum=" & min) MsgBox ("note maximum=" & max) MsgBox ("moyenne des notes=" & moy) MsgBox (" merci de m'avoir utilisé !") End Sub
x = InputBox("entrez les notes des éleves, terminez votre série de note par une valeur supérieure à 20")
If x < min Then??????? sinon par un non-sens (et ce serait de même sous :
je suis + habitué à C/C++:
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim moy As Double, som As Single, min As Integer, max As Integer, y As Integer som = 0 min = 0 max = 20 y = 0 Do While Val(x) <= max x = InputBox("entrez les notes des éleves, terminez votre série de note par une valeur supérieure à 20") If Val(x) <= max And Val(x) >= min And IsNumeric(x) Then som = som + Val(x) y = y + 1 ElseIf Not IsNumeric(x) Then Else Exit Do End If MsgBox som & " " & y Loop moy = som / y MsgBox moy