XL 2016 Allez à la cinqcentaine supérieure

[submarine22]

Bonjour à tous, quelqu'un connaîtrait il une formule pour passer à la cinquantaine supérieure?
Exemple:
301 devient 500
501 devient 1000
1267 devient 1500
Merci par avance

 

[Dranreb]

Bonjour.

=500*ENT((A1+499)/100)

(j'ai supposé, bien que vous ne l'ayez dit, que :
500 reste 500,
1000 reste 1000,
et 1500 reste 1500, ne passant, donc, au multiple supérieur de 500)

 

[Eric KERGRESSE]

Bonjour,

Une autre solution avec une fonction

Function CinqCentsSup(ByVal Nombre As Long) As Long

Dim I As Long

    CinqCentsSup = 0
    For I = 500 To Nombre + 500 Step 500
        
        If Nombre <= I Then
           CinqCentsSup = I
           Exit Function
        End If
    Next I

End Function

 

[Dranreb]

@Eric KERGRESSE, ça peut quand même s'écrire plus simplement :

Function CinqCentsSup(ByVal Nombre As Long) As Long
   CinqCentsSup = 500 * ((Nombre + 499) \ 500)
   End Function

 

[ALS35]

Bonjour à tous,

=PLAFOND.MATH(A1;500)

fait très bien le job aussi.
Cordialement

 

[mapomme]

Bonjour à chacun,
Plafond le fait aussi, me semble-t-il : =PLAFOND(A1;500)

 

[patricktoulon]

Bonjour à tous, quelqu'un connaîtrait il une formule pour passer à la cinquantaine supérieure?
Exemple:
301 devient 500
501 devient 1000
1267 devient 1500
Merci par avance

Bonjour à tous
perso je reviens sur la question passer à la cinquantaine supérieure
301 devient 500
501 devient 1000
1267 devient 1500

la cinquantaine supérieure pour moi c'est
301 devient 350
501 devient 550
1267 devient 1300

je dis ça moi je dis rien hein ....
Ok je sorts .... 😁

 

[mapomme]

Bonjour @patricktoulon😉 ,

je dis ça moi je dis rien hein ....

Tu n'as pas tenu compte de l'inflation qui rajoute un 0 partout ! Regarde bien tes factures, impôts et taxes.
😜🤪

 

[dysorthographie]

Bonjour,

'301 devient 350
'501 devient 550
'1267 devient 1300
v=301
debug.print (abs(cbool(v mod 50)) + (v -( v mod 50))/50)*50
'301 devient 500
'501 devient 1000
'1267 devient 1500
v=301
debug.print (abs(cbool(v mod 500)) + (v -( v mod 500))/500)*500

 

[Dranreb]

Hé, les gars, serait ce sous prétexte qu'il n'existe pas que vous n'avez tenu compte du mot "cinqcentaine" dans le titre de la discussion ? 🙄
Il est vrai que le demandeur aurait plutôt pu choisir "demi-millier"

 

[submarine22]

Bonjour à tous
perso je reviens sur la question passer à la cinquantaine supérieure
301 devient 500
501 devient 1000
1267 devient 1500

la cinquantaine supérieure pour moi c'est
301 devient 350
501 devient 550
1267 devient 1300

je dis ça moi je dis rien hein ....
Ok je sorts .... 😁

Bonsoir patricktoulon
désolé mais je parlais bien de cinq centaine supérieure qui est un principe de calcul pour les dégagements en établissement recevant du publique.
Cordialement

 

[submarine22]

Bonjour.

=500*ENT((A1+499)/100)

(j'ai supposé, bien que vous ne l'ayez dit, que :
500 reste 500,
1000 reste 1000,
et 1500 reste 1500, ne passant, donc, au multiple supérieur de 500)

Bonjour Dranreb
Merci beaucoup pour votre formule qui marche très bien j'ai juste modifié 500 par 100 alors pour que cela fonctionne bien, sauf que lorsque l on passe de 601 à 999 et idem pour 1601 à 1699 et pareil pour les autres, cela ne fonctionne plus, auriez vous une solution ?
Cordialement

 

[dysorthographie]

Au poste #9

 

[submarine22]

Bonjour à tous,

=PLAFOND.MATH(A1;500)

fait très bien le job aussi.
Cordialement

Bonjour à tous,

=PLAFOND.MATH(A1;500)

fait très bien le job aussi.
Cordialement

Bonjour ALS35

Merci cela fonctionne très bien
Bonne soirée

 

[Dranreb]

Ben non, c'était bien par 500 qu'il fallait diviser l'expression interne.