Microsoft 365 Arrondir une valeur avant de la coller

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 22 Novembre 2024

• #2

Bonsoir Pat,
Essayez avec :

VB:

Sheets("[B]Feuil1[/B]").Range("R16") = Int(Sheets("[B]Feuil2[/B]").Range("$M$25") / 100) * 100

En effet si A=168536
Alors A/100=1685.36
Donc Int donne 1685
et on *100 : 168500

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 22 Novembre 2024

• #3

Bonsoir Sylvanu,

merci pour votre aide,

mais si A=168100 et que je souhaite arrondir à 168000, ça fonctionne aussi ? mais j'aurai 168100, alors je préfère arrondir à 168000 ce sera plus simple

merci

 

Dernière édition: 22 Novembre 2024

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 22 Novembre 2024

• #4

Re,
Ben non ....
168100 donnerait 168100
Donnez plus de détails sur ce que vous voulez.

Si la règle est si le nombre se termine avec 2 zéros on arrondi au millier inférieur sinon à la centaine inférieure, alors une approche possible avec une fonction :

Code:

Function Arrondi(N)
    If Int(N / 100) * 100 = N Then D = 1000 Else D = 100
    Arrondi = Int(N / D) * D
End Function

Son utilisation serait alors du genre :

Code:

Sub Essai()
    Sheets("Feuil1").Range("R16") = Arrondi(Sheets("Feuil2").Range("$M$25"))
End Sub

 

Dernière édition: 22 Novembre 2024

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 22 Novembre 2024

• #5

re,

C'est parfait, j'ai juste modifié Else D = 100 par Else D = 1000 pour arrondir au millier inférieur

pour être complet, pourriez vous m'indiquer comment arrondir au millier supérieur, afin que si :
A < 168500 donne 168000
A > 168600 donne 169000

en tout cas, merci beaucoup Sylvanu

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 22 Novembre 2024

• #6

Re,
Vous ne pourriez pas donner toutes les infos d'un coup, cela éviterait de reworker en permanence.
Essayez ça :

VB:

Function Arrondi(N)
    If CInt(Right(N, 3)) > 500 Then Ajout = 1 Else Ajout = 0
    Arrondi = (Ajout + Int(N / 1000)) * 1000
End Function

Donc c'est arrondi au milieu inférieur ou supérieur. ( donc rien à voir avec la première demande )
de 168000 à 168500 donnera 168000
de 168501 à 168999 donnera 169000

 

Vote positif 0 Vote négatif

Solution

P

pat66

XLDnaute Impliqué

• 23 Novembre 2024

• #7

Bonjour le forum
Bonjour Sylvanu,

C'est nickel !!

cela répond à toutes mes attentes et je vous promets de bien réfléchir et d'être plus clair pour les prochaines fois

Un grand merci

bonne journée

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Novembre 2024

• #8

Bonjour le forum,

Plus simple avec Round :

VB:

Function Arrondi(N)
Arrondi = 1000 * Round(N / 1000)
End Function

Sub a()
MsgBox Arrondi(168100)
MsgBox Arrondi(168501)
End Sub

A+

 

Vote positif 0 Vote négatif