Macro arrondir prix

mromain

XLDnaute Barbatruc

• 26 Mars 2009

• #2

Re : Macro arrondir prix

bonjour roidurif,

voici la fonction "arrondi" :

Code:

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

a+

 

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 26 Mars 2009

• #3

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

 

Vote positif 0 Vote négatif

R

roidurif

XLDnaute Occasionnel

• 26 Mars 2009

• #4

Re : Macro arrondir prix

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

Code:

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

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 26 Mars 2009

• #5

Re : Macro arrondir prix

re,

essaye avec ça :

Code:

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+

 

Vote positif 0 Vote négatif

R

roidurif

XLDnaute Occasionnel

• 26 Mars 2009

• #6

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

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 26 Mars 2009

• #7

Re : Macro arrondir prix

Bonsoir roidurif

Essayez ceci :

Code:

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

 

Vote positif 0 Vote négatif

T

tora

XLDnaute Occasionnel

• 27 Mars 2009

• #8

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

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 27 Mars 2009

• #9

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 😎

 

Vote positif 0 Vote négatif

T

tora

XLDnaute Occasionnel

• 27 Mars 2009

• #10

Re : Macro arrondir prix

JNP à dit:

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 😎

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif