Bonjour,

je travaille sur un projet de calculateur pour la vidéo et je suis tombé sur un petit problème avec les nombres périodiques que je ne peux résoudre je me suis dis que certains d'entre vous sauraient peut-être comment.

Voici le code(simplifié):

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub findratio()
 
Dim searchint As Single
searchint = 0
 
Do
searchint = searchint + 1
Loop Until Int(Range("F3") * searchint) / (Range("F3") * searchint) = 1
 
MsgBox searchint * Range("F3") & "/" & searchint
 
End Sub
En vidéo les ratios sont souvent exprimé comme un nombre au lieu d'une fraction. il est cependant plus facile de visualiser le ratio lorsqu'il est en fraction, le code ci-dessus est comment je suis parvenu à identifier la fraction à partir du nombre. Lorsque le nombre en F3 est 1.5 la boîte de dialogue affiche 3/2, tout vas bien. Cependant lorsque le nombre est périodique (1.3333.....) la boucle est évidemment sans fin, pourtant un ratio de 1.333333.... donne 4/3.

Comment modifier mon code afin d'éviter une boucle sans fin?

merci de considérer mon problème et merci à ceux qui tenteront de le résoudre