VBA Excel Arrondi

Version imprimable

22/06/2007, 14h08
Lavip

Bonjour,

je souhaiterais connaître la commande VBA permettant de faire des arrondis inférieur à un chiffre après la virgule.

Mici!

J'aimerais aussi savoir comment chercher dans une colonne un chiffre spécifique
exemple chercher (A1:A30;6)
22/06/2007, 14h40
zazaraignée

Arrondi --> fonctionv VB --> Round. Pour connaître la syntaxe exacte --> F1

Formule de cellule RechercheV et F1. Enregistrement de macro avec cette formule peut révéler la syntaxe en VBA.
22/06/2007, 14h56
tonton fred

A noter que round arrondi au plus pres, pas a l'inferieur. Si tu as vraiment besoin d'arrondir a l'inferieur il ne me semble pas qu'il y ait de fonction VBA mais il est possible d'en creer une (En tronquant si l'arrondi est plus grand que le nombre original).

Pour ta recherche, fait une recherche sur le forum ;) Rien que le mot clef For en choisissant uniquement le forum VBA Excel devrait te donner la reponse.
22/06/2007, 16h04
edelweisseric

Bonjour àtous

Essaie ceci

Citation:

arrondi_inf = WorksheetFunction.RoundDown(Range("e17"), 1)

"e17" étant la cellule à arrondir inf

Eric
22/06/2007, 16h15
random
Code:

1 2 =ent(b10*10)/10
22/06/2007, 17h21
edelweisseric

Re

en fonction, il y a aussi :

Code:

=ARRONDI.INF(E17;1)

Eric
23/06/2007, 12h30
Lavip

Merci à tous

Merci pour vos réponses ca m'a bcp aidé.

A bientôt.
23/06/2007, 14h11
AlainTech

Si ton problème est résolu, un petit clic sur le bouton du même nom, sous la discussion?

Merci
07/03/2008, 16h06
Lameth

Code:

Round(0.5, 0)

Ca renvoie 0...
Au plus pres, il me semble que ca devrait renvoyer 1 ou bien je me pose de serieux doutes quant a mes souvenirs d'ecole primaire...
Non?

Edit: Et la meme formule dans Excel renvoie bien 1...
07/03/2008, 17h14
SilkyRoad

bonjour

Citation:

Round(0.5, 0)Ca renvoie 0...
Au plus pres, il me semble que ca devrait renvoyer 1 ou bien je me pose de serieux doutes quant a mes souvenirs d'ecole primaire...
Non?

Edit: Et la meme formule dans Excel renvoie bien 1...

c'est normal car la fonction VBA Round n'eest pas identique à la fonction de la feuille de calcul:
http://support.microsoft.com/default...b;en-us;225330

bon week end
michel
07/03/2008, 18h27
Lameth

Citation:

The expression contains an even numbered integer ending in the decimal .5.

Tu as raison, merci bien...
Incomprehensible pour ma logique, mais on va faire avec.
Merci!

Citation:

Envoyé par Lameth

Tu as raison, merci bien...
Incomprehensible pour ma logique, mais on va faire avec.
Merci!

Et tu as bien raison d'en faire la remarque, Lameth...

J'ai il y a quelque temps cherché à comprendre le pourquoi de la chose ...

Ma conclusion ? un poil dans la main d'un développeur à Chicago ...;)

Il a à mon avis joué au malin pour faire "plus court" et ... voilà le type de résultat :
Code:

1 2 3 4 5 6 7 8 Private Sub Command1_Click() titi = Array(5.1, 4.2, 4.4, 5.5, 4.5, 5.6) For i = 0 To UBound(titi) Dim toto As Single toto = titi(i) MsgBox titi(i) & " =====>>" & Int(toto) + (toto Mod Int(toto)) Next End Sub
Lance et observe bien ==>> tu verras que tout va bien sauf lorsque ... la partie entière est paire et que la partie décimale est = 5

Pile poil son bug (le coquin, va ...:lol:)

Commentaires ?

07/03/2008, 19h17
Lameth

Pas mal...

En effet, j'ai a plusieurs reprise remarquer ce bug sans pour autant le comprendre (paire / impaire) du coup ca oblige a faire des hypotheses pour debusquer et contourber les bugs.
07/03/2008, 19h25
ucfoutu

The very big problem, maintenant, pour l'équipe de Bill ?

Comment corriger ce bug (car c'en est un) sans compromettre les applications déjà développées et distribuées ? ===>> pas possible !!!

Que fait-il alors ? ===>> invite à passer par Excel au lieu de VBA ... (elle est bien bonne !!)

J'ai voulu faire cette nuit une petite fonction d'arrondi au nombre le plus proche.

La voilà :
Code:

1 2 3 4 5 6 Private Function arrondissons(nb As Double, precis As Integer) As Double Dim t1 As Single, t2 As Long t1 = Abs(nb * (10 ^ precis)) t2 = Fix(t1) arrondissons = ((t2 - ((t1 - t2) >= 0.5)) / (10 ^ precis)) * Sgn(nb) End Function
où
- nb est le nombre à traiter (en numérique et avec le . comme séparateur de décimales)
- precis est le nombre de décimales après arrondissement

Cette fonction arrondit également les nombres négatifs
Ele est par contre limitée en matière de grandeur du nombre traité

J'avais trouvé la fonction :
Code:

1 2 3 Public Function MyRound2(Number As Double, iDigit As Integer) As Double MyRound2 = (Int((Number * (10 ^ iDigit)) + 0.5)) / (10 ^ iDigit) End Function
Mais elle bug aussi alors que la même formule décomposée en plusieurs lignes ne bug pas .... faut-il encore dire merci à MS ?
Code:

1 2 3 4 5 6 7 Public Function MyRound(Number As Double, iDigit As Integer) As Double ' Fonction écrite parce que la fonction Round de VBA est bugée. MyRound = Number * (10 ^ iDigit) MyRound = MyRound + 0.5 MyRound = Int(MyRound) MyRound = MyRound / (10 ^ iDigit) End Function
Quand je teste les fonctions avec Number = 0.335205 et iDigit = 5 j'ai
MyRound2 = 0,33520
MyRound = 0,33521

Merci pour l'idée des fonctions Abs et Sign pour que cela fonctionne aussi avec les nombres négatifs, je vais les ajouté dans ma fonction.