problème de format fraction sous vba

[Roland_M]

Bien le bonjour à tous,

Comment transformer sous vba une valeur en format fraction comme sur cellule,
si je tape 1,5 avec le format fraction "# ?/?" j'obtiens '1 1/2'

par contre en vba
M$ = Format(1.5,"# ?/?") ça ne fonctionne pas !? J'obtiens '1 ?/?'


Merci d'avance

EDIT: j'ai solutionné comme ceci: (en attendant mieux)

Public Function FChaineFraction(V!) As String
Dim I1%, I2%, V1%, V2!
FChaineFraction = "": V1 = Int(V!): V2 = V! - V1
For I1 = 1 To 99: For I2 = 1 To 99
 If I1 / I2 = V2 Then FChaineFraction = V1 & " " & I1 & "/" & I2: Exit Function
Next: Next
End Function

 

[ROGER2327]

Re : problème de format fraction sous vba

Suite...


Version corrigée, avec un affichage plus soigné.


ℝOGER2327
#8067

Jeudi 19 Haha 143 (*Saint Raphaël, apéritif et philistin - fête Suprême Quarte)
2 Brumaire An CCXXIV, 4,0909h - céleri
2015-W43-6T09:49:05Z