A voir également:
- Arrondir au Multiple en VB.net
- Ecran multiple pc - Guide
- Excel cellule choix multiple - Guide
- Copier coller multiple - Guide
- Arrondir js ✓ - Forum Javascript
- Publication multiple instagram format - Guide
1 réponse
Bonjour,
On peut toujours essayer d'écrire une fonction
Et pour tester
On peut toujours essayer d'écrire une fonction
Function ARRONDIR_AU_MULTIPLE(Nombre As Double, Q_reel As Double) As Double
Dim Q_entier As Long
Q_entier = Int(Q_reel)
If Q_entier < Q_reel Then Q_entier = Q_entier + 1
ARRONDIR_AU_MULTIPLE = Nombre * Q_entier
End Function
Et pour tester
Sub test()
Dim Prix As Double, Qte As Double
Prix = 100
Qte = 3
MsgBox (ARRONDIR_AU_MULTIPLE(Prix, Qte)) 'resultat 300
Qte = 3.1
MsgBox (ARRONDIR_AU_MULTIPLE(Prix, Qte)) 'resultat 400
End Sub