Formule du prix fractionnée et du prix decimal

bonjour,
je cherche à créer une fonction du prix fractionnée et une fonction du prix decimal sur VBA, et j'ai besoin des formules de chacune et merci
NB: ces fonctions sont disponible sur excel

non, je cherche à créer des fonctions sur vba (de prix fractionnée et du prix decimal) et de l'appliqué sur excel. lorsque on utilise ces fonctions dans un exemple on trouvera les meme resultats si on utilise la fonctions du prix fractionnée et la fonction du prix decimal existant sur excel

Bonsoir,

@Vaucluse salut à toi, j'espère que tu profites du soleil éclatant ! ;-)

@ayoubayoze
Effectivement, je comprends enfin ce que tu veux faire mais pas l'utilité.

Les fonctions excel sont crées en langage compilé et donnent un résultat garanti.
Le VBA permet de créer des procédures adaptées à des traitements non réalisables par fonctions (boucles de traitement, automatisation de présentations, etc).
Reprogrammer une fonction excel n'a je pense aucun intérêt car en vba elle ira nécessairement moins vite et risque de présenter des bugs dû à l'absence de tests poussés. Cependant, j'ai essayé de te faire le prix décimal qui devrait être conforme à la fonction excel.

Public Function gb_dec(mnt As Double, fct As Integer)
    If mnt - Int(mnt) = 0 Then gb_dec = mnt: Exit Function
    If fct = 1 Then gb_dec = mnt: Exit Function
    If fct = 0 Then gb_dec = "#DIV/0!": Exit Function
    If fct < 0 Then gb_dec = "#NOMBRE!": Exit Function
    gb_dec = Int(mnt) + (mnt - Int(mnt)) / fct * IIf(fct > 10, 100, 10)
End Function

Elle s'utilise de la même façon :

=gb_dec(A1;A2)

par exemple.

Bonjour,

j'ai pas compris le mot "int"
Tu sélectionnes le mot et tu fais F1 : tu auras toutes les explications dans l'aide ;-)

j'ai besoin aussi de la fonction du prix fractionnée
Comme ce n'est que l'inverse, je pensais que tu allais faire l'effort de réaliser ton besoin mais puisque ce n'est pas le cas ;-)

Public Function gb_frac(mnt As Double, fct As Integer)
    If fct = 0 Then gb_frac = "#DIV/0!": Exit Function
    If fct < 0 Then gb_frac = "#NOMBRE!": Exit Function
    If mnt - Int(mnt) = 0 Then gb_frac = mnt: Exit Function
    If fct = 1 Then gb_frac = mnt: Exit Function
    gb_frac = Int(mnt) + (mnt - Int(mnt)) / IIf(fct > 10, 100, 10) * fct
End Function