Sub CalculerNoteArrondie()
Dim note, ecart, noteArrondie, noteEntiere
'Saisie de la note initiale
note = InputBox("Saisir une note comprise entre 0 et 20")
'Récupération de la partie entire de la note
noteEntiere = Int(note)
'DŽétermination de la note arrondie
ecart = note - noteEntiere
If ecart = 0 Then
noteArrondie = note
Else
If ecart > 0.5 Then
noteArrondie = noteEntiere + 1
Else
noteArrondie = noteEntiere + 0.5
End If
End If
MsgBox "La note était = ˆ " & note & " elle devient " & noteArrondie
End Sub
Sub CalculerNoteArrondie_bis()
Dim note, ecart, noteArrondie, noteEntiere
'Saisie de la note initiale
note = InputBox("Saisir une note comprise entre 0 et 20")
'Récupération de la partie entire de la note
noteEntiere = Int(note)
'Détermination de la note arrondie
ecart = note - noteEntiere
Select Case ecart
Case 0
noteArrondie = note
Case Is > 0.5
noteArrondie = noteEntiere + 1
Case Else
noteArrondie = noteEntiere + 0.5
End Select
MsgBox "La note était = ˆ " & note & " elle devient " & noteArrondie
End Sub