Macro arrondir prix

[roidurif]

Bonjour,

En colonne AH de mon tableau, j'ai des prix qui doivent ecrit avec deux decimals maxi apres la virgule ( ex: 12.36)
SEULEMENT, il existe parfois des prix au dessus de deux decimal (ex : 12.3333... etc)

Y'a t il un moyen d'arrondir les prix par une macro, pour n'avoir que deux decimal apres le séparateur et pas plus?


Merci de votre aide

 

[mromain]

Re : Macro arrondir prix

bonjour roidurif,

voici la fonction "arrondi" :

Round([I][B]<leNombre>[/B][/I], [I][B]<nombreDecimales>[/B][/I])

a+

 

[CISCO]

Re : Macro arrondir prix

Bonjour

Faut il forcément passer par une macro ?

Si non, une possibilité avec une formule, qui n'est d'ailleurs pas un vrai arrondi... Tout dépend ce que tu veux utiliser ...
=ARRONDI(A1;2)

@ plus

 

[roidurif]

Re : Macro arrondir prix

merci, j'ai adapter cela a mon fichier mais je bloque.
Petite aide svp
merci

Sub Arrondir()
For Each cell In Sheets("Feuil1").Range("AH2:" & Sheets("Feuil1").Range("AH65536").End(xlUp).Address)
Round(cell, 2)
Next cell
End Sub

 

[mromain]

Re : Macro arrondir prix

re,

essaye avec ça :

Sub Arrondir()
For Each cell In Sheets("Feuil1").Range("AH2:" & Sheets("Feuil1").Range("AH65536").End(xlUp).Address)
[B]cell.Value[/B] = Round(cell.Value, 2)
Next cell
End Sub

a+

 

[roidurif]

Re : Macro arrondir prix

Merci cela m aide bcp, dites y a t il une possibilité que ce soit plus rapide car lorsqu il y a 8000 prix c un peu long.

Merci encore

 

[ROGER2327]

Re : Macro arrondir prix

Bonsoir roidurif

Essayez ceci :

Sub Arrondir()
Dim oDat(), i As Long
    oDat = Sheets("Feuil1").Range("AH2:" & Sheets("Feuil1").Range("AH65536").End(xlUp).Address).Value
    For i = 1 To UBound(oDat, 1)
        If IsNumeric(oDat(i, 1)) Then oDat(i, 1) = Round(oDat(i, 1), 2)
    Next i
    Sheets("Feuil1").Range("AH2:" & Sheets("Feuil1").Range("AH65536").End(xlUp).Address).Value = oDat
End Sub

Bonne soirée.
ROGER2327

 

[tora]

Re : Macro arrondir prix

mon grain de mauvais sel ...

1/selection plage a traiter
2/clic droit souris
3/format cellule > Onglet Nombre > categorie = Nombre Décimales = 2

ca le fais pas ? Sans macros sans formules ... quasi au naturel quoi ...

 

[JNP]

Re : Macro arrondir prix

Bonjour le forum 🙂,
Je ne penses pas, Tora. Imagine le chou à 1.254€ noté 1.25€, tu accepteras d'en payer 2 à 2.51€ 😉?
Bonne journée 😎

 

[tora]

Re : Macro arrondir prix

Bonjour le forum 🙂,
Je ne penses pas, Tora. Imagine le chou à 1.254€ noté 1.25€, tu accepteras d'en payer 2 à 2.51€ 😉?
Bonne journée 😎

Très juste JNP ... a lala XL ....