Quelle est la fonction pour ARRONDI en VBA ???

Thierry Euzenot

unread,

Aug 29, 2002, 5:38:03 AM8/29/02

to

Impossible à trouver dans l'aide, ni ailleurs.

Je veux arrondir en VBA le contenu d'une cellule à 2 chiffres après la
virgule...

Je croyais que la fonction était Round... mais apparemment non

Merci pour vos réponses

Papou

unread,

Aug 29, 2002, 5:49:03 AM8/29/02

to

Bonjour Thierry
Si si c'est bien Application.WorksheetFunction.Round
Cordialement
Pascal

"Thierry Euzenot" <te....@free.fr> a écrit dans le message de news:
akkq1p$mb4$1...@wanadoo.fr...

Fripouillot

unread,

Aug 29, 2002, 5:53:43 AM8/29/02

to

Salut Thierry

Si tu as Excel97 ROUND ne fonctionne pas, essaye avec
WorksheetFunction.Round

Bon courage,
--
Fripouillot

"Thierry Euzenot" <te....@free.fr> a écrit dans le message de news:
akkq1p$mb4$1...@wanadoo.fr...

Thierry Euzenot

unread,

Aug 29, 2002, 5:52:42 AM8/29/02

to

Merci,

J'avais oublié "Application.WorksheetFunction." et du coup ça marchait pô
:-(

"Papou" <TrucMachinp...@tibco.fr> a écrit dans le message de news:
#uw5DE0TCHA.1664@tkmsftngp13...

sabatier

unread,

Aug 29, 2002, 5:52:46 AM8/29/02

to

es-tu allé voir du côté de Round?
avec la misange, on connaît bien, nous, thierry : on fait toujours ça en
12 selon les règles de la WBA...
jps

AV

unread,

Aug 29, 2002, 5:42:28 AM8/29/02

to

MsgBox Round(6.55957, 2)

AV

"Thierry Euzenot" <te....@free.fr> a écrit dans le message news:
akkq1p$mb4$1...@wanadoo.fr...

Thierry Euzenot

unread,

Aug 29, 2002, 5:59:59 AM8/29/02

to

Merci c'était ça !!!

J'ai Excel 97 et j'avais pas mis WorksheetFunction...

Ca m'apprendra :o)

"Fripouillot" <nic...@wanadoo.fr> a écrit dans le message de news:
eE1a6F0TCHA.1936@tkmsftngp10...

didier

unread,

Aug 29, 2002, 8:42:20 AM8/29/02

to

essaye d'utilisé la propriété 'numberformat' d'un objet
Elle obéit à la syntaxe de formatage classique d'Excel.

exemble:

i.NumberFormat = "########0.00"

si i= 0.124563 le résultat sera 0.12

Clément Marcotte (MVP)

unread,

Aug 29, 2002, 12:05:50 PM8/29/02

to

Bonjour,

Et puis même avec le Round(*) de VBA pour Excel 2000 et Excel 2002

Sub arrondi()
Range("a1").Value = Round(3.5) 'donne 4
Range("a2").Value = Round(4.5) 'donne 4
End Sub

--
L'urgent est déjà parti, l'impossible est en train de se faire; pour
les miracles nous demandons 24 heures de plus.

"Fripouillot" <nic...@wanadoo.fr> a écrit dans le message de news:
eE1a6F0TCHA.1936@tkmsftngp10...

AV

unread,

Aug 29, 2002, 12:21:26 PM8/29/02

to

> Et puis même avec le Round(*) de VBA pour Excel 2000 et Excel 2002
>
> Sub arrondi()
> Range("a1").Value = Round(3.5) 'donne 4
> Range("a2").Value = Round(4.5) 'donne 4
> End Sub

Même si tu mets le 2° paramètre de la fonction ?
Round(6.55957, 2) te donnes pas 6.56 ??

AV

isabelle

unread,

Aug 29, 2002, 12:48:15 PM8/29/02

to

Bonjour Thierry

une autre solution est la fonction Plancher ou Pafond

=PLANCHER(A1;0.25)
=PLAFOND(A2;0.25)

x = Application.Ceiling(Range("A1"), 0.25)

x = Application.Floor(Range("A1"), 0.25)

isabelle

Thierry Euzenot a écrit :

Clément Marcotte (MVP)

unread,

Aug 29, 2002, 1:16:43 PM8/29/02

to

> Même si tu mets le 2° paramètre de la fonction ?
> Round(6.55957, 2) te donnes pas 6.56 ??
>

Cela marche dans ce cas.

Je parle de la fonction round() de VBA, pas de la fonction de feuille
de calcul round (ou arrondi) qui semble être plus fiable. Sauf que la
fonction cela m'inquiète un peu. Voici quelques tests menés par
Frédéric, il y a presque un an.

http://minilien.com/?nb7GDggohp

--
L'urgent est déjà parti, l'impossible est en train de se faire; pour
les miracles nous demandons 24 heures de plus.

"AV" <alain....@wanadoo.fr> a écrit dans le message de news:
#rBE6f3TCHA.3764@tkmsftngp08...

> > Et puis même avec le Round(*) de VBA pour Excel 2000 et Excel 2002
> >
> > Sub arrondi()
> > Range("a1").Value = Round(3.5) 'donne 4
> > Range("a2").Value = Round(4.5) 'donne 4
> > End Sub
>

> AV
>
>