Comment arrondir un calcul?

Bonjour,

Voilà je veux diviser les valeurs de 2 cellules sur une même feuille, mais je souhaite arrondir UNIQUEMENT a l'entier superieur et pas le plus proche.

Code:

---

1 2 3 4

Dim a as integer, b as integer a=12 b=5 thisworkbook.sheets("Calcul").cells(1,3)=round(a * b / 100)

---

Comment faire pour arrondir uniquement à lentier supérieur? (pour l'instant je compare le calcul non arrondi et la valeur arrondie, et si elle est inférieure j'y ajoute 1).

Merci

Avec la fonction plafond (en anglais ceiling)

Code:

---

1 2 3 4 5

Dim a as integer, b as integer a=12 b=5 thisworkbook.sheets("Calcul").cells(1,3)=Application.WorksheetFunction.Ceiling(a * b / 100, 1)

---

Bonsoir,

essaye donc tout simplement :

Code:

---

1 2 3 4 5

Private Sub Command1_Click() a = 4 b = 5 MsgBox -Int(-a / b) End Sub

---

Bonne continuation ...

Sauf que int renvoi l'entier et non l'arrondi a l'unité supérieure

Code:

---

1 2 3 4 5 6 7 8

12*4/100 = 0.48   int(12*4/100)=0     Application.WorksheetFunction.Ceiling(12 * 4 / 100, 1) = 1

---

Bonsoir jfontaine,

Tu lis apparemment mal ou n'as pas mis tes lunettes !

voilà, donc ce que tu aurais du écrire en respectant mon code :

MsgBox -Int(-12 * 4 / 100)

ce qui te donne bien évidemment 1.

Bonne continuation...

Je connaissais la fonction Round de VB disponible aussi dans VBA

Code:

---

1 2 3

Sub toto() MsgBox Round(6 / 100, 2) End Sub

---

Désolé ucfoutu j'avais vraiment mal lu. :hola:

Merci j'essaye ça tout à l'heure, ça devrait marcher.

Ca fonctionne merci à tous!