Formule du prix fractionnée et du prix decimal

Résolu/Fermé
ayoubayoze Messages postés 8 Date d'inscription vendredi 16 juin 2017 Statut Membre Dernière intervention 21 juin 2017 - 16 juin 2017 à 07:05
ayoubayoze Messages postés 8 Date d'inscription vendredi 16 juin 2017 Statut Membre Dernière intervention 21 juin 2017 - 19 juin 2017 à 06:27
svp je veux la formule de calcule du prix frationnée et celle du prix decimal et merci

2 réponses

gbinforme Messages postés 14935 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 632
16 juin 2017 à 08:58
Bonjour,

Bienvenue sur le forum

C'est quoi les notions que tu veux calculer ?
0
ayoubayoze Messages postés 8 Date d'inscription vendredi 16 juin 2017 Statut Membre Dernière intervention 21 juin 2017
16 juin 2017 à 18:08
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
0
Vaucluse Messages postés 26495 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 8 avril 2022 6 275
16 juin 2017 à 18:14
Bonjour
et salut GB
pas bien clair tout ça, vous voulez parler de formule ou de format d'affichage d'un nombre?
si c'est le cas, c'est dans format de cellule > fraction
crdlmnt

0
ayoubayoze Messages postés 8 Date d'inscription vendredi 16 juin 2017 Statut Membre Dernière intervention 21 juin 2017
16 juin 2017 à 18:39
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
0
gbinforme Messages postés 14935 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 632
Modifié le 16 juin 2017 à 22:25
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.
0
ayoubayoze Messages postés 8 Date d'inscription vendredi 16 juin 2017 Statut Membre Dernière intervention 21 juin 2017 > gbinforme Messages postés 14935 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020
16 juin 2017 à 22:53
bonsoir gbinforme
ouii je sais qu'il n'a aucun intérêt, c'est juste un travail à faire et j'ai pas compris comment le faire.
svp j'ai pas compris le mot "int" et j'ai besoin aussi de la fonction du prix fractionnée et merci pour vos efforts
0
gbinforme Messages postés 14935 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 632
17 juin 2017 à 08:46
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
0
ayoubayoze Messages postés 8 Date d'inscription vendredi 16 juin 2017 Statut Membre Dernière intervention 21 juin 2017 > gbinforme Messages postés 14935 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020
17 juin 2017 à 17:11
bonjour,
j'ai pas trouvé l'explication du "int", prière de me dire s'il est possible pour mieux appliquer ces fonction sur excel et merci
0