Discussion :

[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)

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

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

[edelweisseric]

Bonjour àtous

Essaie ceci

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

"e17" étant la cellule à arrondir inf

Eric

[random]

Code :

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

1
2
 
=ent(b10*10)/10

[edelweisseric]

Re

en fonction, il y a aussi :

Code :

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

=ARRONDI.INF(E17;1)

Eric

[Lavip]

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

A bientôt.

[AlainTech]

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

Merci

[Lameth]

Code :

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

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

[SilkyRoad]

bonjour

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

[Lameth]

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!

[ucfoutu]

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 :

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

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

Commentaires ?

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

[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 !!)

[ucfoutu]

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

La voilà :

Code :

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

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é

[fpoll]

J'avais trouvé la fonction :

Code :

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

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 :

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

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.