XL 2016 Allez à la cinqcentaine supérieure

Dranreb

XLDnaute Barbatruc

• 19 Septembre 2023

• #2

Bonjour.

Code:

=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)

 

Vote positif 0 Vote négatif

E

Eric KERGRESSE

XLDnaute Occasionnel

• 19 Septembre 2023

• #3

Bonjour,

Une autre solution avec une fonction

VB:

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

 

Pièces jointes

• Submarine22 Passer aux 500 supérieurs.xlsm

  14.5 KB · Affichages: 1

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Septembre 2023

• #4

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

VB:

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

 

Vote positif 0 Vote négatif

A

ALS35

XLDnaute Impliqué

• 19 Septembre 2023

• #5

Bonjour à tous,

VB:

=PLAFOND.MATH(A1;500)

fait très bien le job aussi.
Cordialement

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 19 Septembre 2023

• #6

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 19 Septembre 2023

• #7

submarine22 à dit:

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

Cliquez pour agrandir...

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 .... 😁

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 19 Septembre 2023

• #8

Bonjour @patricktoulon😉 ,

patricktoulon à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro

• 19 Septembre 2023

• #9

Bonjour,

VB:

'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

 

Dernière édition: 19 Septembre 2023

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Septembre 2023

• #10

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"

 

Vote positif 0 Vote négatif

S

submarine22

XLDnaute Junior

• 19 Septembre 2023

• #11

patricktoulon à dit:

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 .... 😁

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

S

submarine22

XLDnaute Junior

• 19 Septembre 2023

• #12

Dranreb à dit:

Bonjour.

Code:

=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)

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro

• 19 Septembre 2023

• #13

Au poste #9

 

Vote positif 0 Vote négatif

S

submarine22

XLDnaute Junior

• 19 Septembre 2023

• #14

ALS35 à dit:

Bonjour à tous,

VB:

=PLAFOND.MATH(A1;500)

fait très bien le job aussi.
Cordialement

ALS35 à dit:

Bonjour à tous,

VB:

=PLAFOND.MATH(A1;500)

fait très bien le job aussi.
Cordialement

Cliquez pour agrandir...

Bonjour ALS35

Cliquez pour agrandir...

Merci cela fonctionne très bien
Bonne soirée

 

Vote positif 0 Vote négatif

Solution

Dranreb

XLDnaute Barbatruc

• 19 Septembre 2023

• #15

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

 

Vote positif 0 Vote négatif