Discussion :

[Olanor]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jfontaine]

Avec la fonction plafond (en anglais ceiling)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[ucfoutu]

Bonsoir,

essaye donc tout simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Bonne continuation ...

[jfontaine]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ucfoutu]

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...

[zazaraignée]

Je connaissais la fonction Round de VB disponible aussi dans VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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