Bonjour à tous,

Voilà mon petit problème :

J'ai un code qui me permet d'arrondir des nombres (Exemple: 150 = 200 ; 149 = 100) tout cela marche très bien, mais le problème est dès que je met 250 il devrai me mettre 300 mais à place il m'arrondir a 200.

Voilà mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
       Dim NbPers As Integer = tbxNbPers.Text
        'Chiffre plus grand que 100
        'Dans cette partie est l'erreur a mon avis
        If NbPers >= 100 Then
 
            NbPers = NbPers / 100
            NbPers = Math.Ceiling(NbPers)
            NbPers = NbPers * 100
            tbxResul.Text = NbPers
            'Chiffre plus petit que 100
            'Cette partie marche très bien
        ElseIf NbPers < 100 Then
            If NbPers < 75 Then
                NbPers = 50
            Else
                NbPers = NbPers / 100
                NbPers = Math.Floor(NbPers)
                NbPers = NbPers * 100
                If NbPers = 0 Then
                    NbPers = 50
                End If
            End If
 
            tbxResul.Text = NbPers
        End If
Est-ce que quelqu'un voit il une erreur?

Merci d'avance.