[VBA / Excel] Arrondir à l'entier supérieurRésolu/Fermé

Question

Bonjour,
tout est écrit dans le titre.
j'utilise actuellement une variable en Integer, mais les valeurs sont arrondies au supérieur ou à l'inférieur.
J'aimerai qu'elle soit arrondie uniquement au supérieur, même quand je suis a X,00000001 que ça me mette X+1 comme entier.
Comment faire ça?
Pouvez vous m'aider?

Merci

Mik-78 · Accepted Answer

Bon le sujet date, mais ça peut en intéresser d'autres !

Vous vous compliquez la vie, il suffit d'écrire tout simplement :
Application.WorksheetFunction.RoundUp(Valeur)

120 · Answer

Utilise la partie entière à laquelle tu ajoutes 1

b=int(a) + 1

sfritz · Answer

Ce procédé marche si le 1er chiffre après la virgule est inférieur a 5, mais si c'est supérieur ça passe directement au chiffre supérieur.

Par exemple 16.3 devient 16 en integer puis 17 avec +1
Mais 16.6 devient 17 en Integer puis 18 avec +1.

Mais j'aimerai que pour les 2 cas la valeur finale soit 17.

Merci

toto · Answer

Bonjour

Ajoute 0.5 et prends la partie entière

Tom · Answer

Bonjour,

il faut faire int(round(a+0.5))

GameOver · Answer

En VB.net il existe ceci dans l'espace de nom "Math": 
Ceiling(monNombre) 

Qui donne la limite supérieure entière la plus proche d'un nombre. 

Ceiling(15.1) = 16 
Ceiling(15.88) = 16 

A voir si ça existe aussi en VBA... 

---------------------------------------------

Ou sinon faire une nouvelle fonction à insérer dans un module: 
Public Function Ceiling(RoundValue As Currency) As Currency 
    Dim TheValue As Currency 
    TheValue = RoundValue 
    Select Case TheValue - Int(TheValue) 
        Case Is <= 0.25 
            Ceiling = Int(TheValue) 
        Case Is >= 0.5 
            Ceiling = Int(TheValue) + 1 
        Case Is >= 0.26 
            Ceiling = Int(TheValue) + 0.5 
    End Select 
End Function

(trouvé sur http://bytes.com/topic/access/answers/832599-ceiling-function)

eriiic · Answer

Bonsoir, 

en supposant que tes nombres soient toujours positifs : 
=-Int(-i) 

eric

edit : je viens de voir la date...

f894009 · Answer

Bonjour,

  B = Int(X)
  If (X - B) > 0 Then
    X = Int(X) + 1
  End If

C'est basic mais efficace

Bonne  suite

ZeldaLL · Answer

Bonjour !

Je n'ai pas l'habitude d'écrire sur les forums mais j'aime partager les débuts de solutions que je monte tant bien que mal :).

J'ai eu le même problème, c'est peut-être pas la meilleure solution mais voici mon code :

A mettre dans un module :

Sub test()
c = Selection.Row
d = Selection.Column

Range("E5:I5").Select
x = Selection.Columns.Count
Range("E5").Select
For y = 1 To x
a = Selection.Value
If a = Int(a) Then
Selection.Value = a
Else
b = Int(a)
If (a - b) > 0 Then
a = Int(a) + 1
Selection.Value = a
End If
End If
a = ""
ActiveCell.Offset(0, 1).Select
Next
Cells(c, d).Select
End Sub



A mettre dans "Feuil1" :


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
If Not Intersect(Target, Range("A1:Z65536")) Is Nothing Then
Call test
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

yvesm · Answer

en regardant si ton arrondit est strictement inférieur à ton calcul non arrondit je pense que tu aura un résultat sûr:
    
    i = Round((v-2 / 999))
    If i < ((v - 2) / 999) Then
    i = i + 1
    End If

jpvito · Answer

En VBA, ceci fonctionne :
    If ((Value - Int(Value)) = 0) Then
        res = Int(Value)
    Else
        res = Int(Value) + 1
    End If

Stin · Answer

If (value * 10 - CInt(value) * 10) <> 0 then
value = CInt(value) + 1
End If

... Ok c est pas super beau, mais sa a le mérite d être fonctionnel ^^'

[VBA / Excel] Arrondir à l'entier supérieur

12 réponses

Newsletters