Arrondir au 500 inférieur

Bonjour,
Excel 2003
Comment, en vba, pourrais-je arrondir un nombre à la limite 500 inférieure.
Exemple l'arrondissement de 3714 deviendrait 3500
L'arrondissement de 3306 deviendrait 3000

Merci

Flac1

Bonsoir le forum,

Code:

---

=ENT((A1)/500)*500

---

excfl

Re,

Si tu cherchais arrondi à 500 le plus proche :

Code:

---

=ENT((A1+250)/500)*500

---

excfl

Merci
Flac1

Bonsoir le fil, bonsoir le forum,

Une proposition VBA. Si tes données sont dans la colonne A, la formule est placée en colonne B (à adapter) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Macro1() Dim O As Object 'déclare la variable o (Onglet) Dim DL As Integer 'déclare la variable DL (Dernière Ligne) Dim PL As Range 'déclare la variable PL (PLage)   Set O = Sheets("Feuil1") 'définit l'onglet O DL = O.Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière lign eéditée Dl de la colonne 1 (=A) de l'onglet O Set PL = O.Range("A1:A" & DL) 'définit la plage PL For Each cel In PL 'boucle sur toutyes les cellules CEL de la plage PL 'si la cellule n'est pas vide, place la formule dans la cellule adjacente colonne B If cel.Value <> "" Then cel.Offset(0, 1).Formula = "=QUOTIENT(" & cel.Value & ",500)*500" Next cel 'prochaine cellule de la boucle End Sub

---