Arrondir à l'entier supérieur dans une macro

[Laurent]

Bonsoir à tous,

voilà j'ai une macro et j'ai une ligne qui m'effectue le calcul suivante

range('B1').value=range('A1').value/2

si j'ai en A1 un chiffre pair pas de problème pour la suite.

Mais si A1 est impair je me retrouve avec une virgule en B1

que dois je ajouter dans ma macro pour que B1 soit arrondi à l'entier supérieur si B1 est à virgule?

Exemple :

En A1=18 donc B1 = 9pas de problème

En A1=19 donc B1= 9.5 et je voudrais avoir 10

Merci
Laurent

 

[pat1545.]

Salut ,

=PLAFOND(A10/2;1)


Bye

 

[Laurent]

Possible aussi de faire si A1 est impair ajouter 1 à A1. Cette solution me va aussi.

 

[Laurent]

Merci Pat je vais allé essayer ça.

 

[Gérard DEZAMIS]

Bonsoir Pat et Laurent

si tu n'utilises pas de formule il faut utiliser l'un des trois codes suiivants:


Application.WorksheetFunction.RoundUp(Nombre, Nombredécimales)

WorksheetFunction.RoundUp(Nombre, Nombredécimales)

Application.RoundUp(Nombre, Nombredécimales)

'Sauf erreur de ma part, normalement : Ces trois expressions doivent fonctionner et donner le même résultat. '

en rouge c'est ce que disait MDF (Didier) ) à JMPS (José) donc ... je crois que l'on peut leur faire confiance :whistle:

@+GD

 

[Laurent]

Je viens de voir que la formule : =PLAFOND(A1/2;1) est faites pour etre insérée dans la cellule A1 malheureusement je ne doit pas ajouter de formule dans mes cellules. L'action doit se faire dans la macro.

 

[Laurent]

Merci Gérard.

Je vais essayer de jouer avec ça.

 

[pat1545.]

oupsss


MsgBox Application.WorksheetFunction.Floor([A10] / 2, 1)
'Arrondi supérieur
MsgBox Application.WorksheetFunction.Ceiling([A10]/2, 1)


Bye