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
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
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
'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
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"
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
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