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
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,
excfl
Code : Sélectionner tout - Visualiser dans une fenêtre à part =ENT((A1)/500)*500
Re,
Si tu cherchais arrondi à 500 le plus proche :
excfl
Code : Sélectionner tout - Visualiser dans une fenêtre à part =ENT((A1+250)/500)*500
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
Partager