Discussion :

[needlesurfer]

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

[issoram]

et en jouant sur les formats...?

Code :

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

MsgBox Excel.WorksheetFunction.Text(Range("D1").Value, "?/?")

[needlesurfer]

Pour ceux que ça intéresse ou qui chercherais une solution dans le futur, il suffit d'avoir une tolérance, très faible et d'arrondir le résultat.

Voici le code qui en résulte:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub findratio()
 
Dim searchint As Single
searchint = 0
 
Do
searchint = searchint + 1
Loop Until Int(Range("F3") * searchint) / (Range("F3") * searchint) >= 0.99 And Int(Range("F3") * searchint) / (Range("F3") * searchint) <= 1.01
 
searchint = Round(searchint)
 
MsgBox Round(searchint * Range("F3")) & "/" & searchint
 
End Sub

Donc une résolution de 1024x768 qui donne un ratio de 1.333333... (que l'on retrouvera en F3 selon mon code), retournera une fraction de 4/3, une résolution de 1920x1080 (1.777777...) retournera une résolution de 16/9 et ainsi de suite.