Discussion :

[flac1]

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

[excfl]

Bonsoir le forum,

Code :

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

=ENT((A1)/500)*500

excfl

Re,

Si tu cherchais arrondi à 500 le plus proche :

Code :

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

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

excfl

[flac1]

Merci
Flac1

[Thautheme]

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 :

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

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