Discussion :

[james2013]

bjr
je dois effectuer un calcul avec une fraction saisie en texte (forme xx/yyy) sachant que numerateur et dénominateur sont de longueur variable (de 1 à 99 ou 1 à 999)
je dois donc récuperer soit les valeurs du numerateur et du denominateur, soit directement le coefficient correspondant au résultat de la division.
merci de votre aide.

[madefemere]

Bonjour,

Une petite fonction qui devrait faire l'affaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Public Function calculdiv(parstr As String) As Double
Dim PosNum As Integer
Dim StrNumerat As String, StrDenomin As String
PosNum = InStr(parstr, "/")
StrNumerat = Left(parstr, PosNum - 1)
StrDenomin = Mid(parstr, PosNum + 1)
calculdiv = Format(CDbl(StrNumerat) / CDbl(StrDenomin), "###.#000000")
Debug.Print StrNumerat, StrDenomin, calculdiv
End Function

Il faudrait rajouter dans le calcul la vérification si le dénominateur est égale à 0 et autres exceptions d'une division.

Bonne continuation.