J
Jo_VBA
Guest
Bonjour,
Dans l'une de mes macros, j'invite l'utilisateur à entrer via un inputbox, un nombre sous forme de fraction (ex: 16/9, 3/4, 5/4, etc...).
Je penssais que ma variable "Ratio" ferait directement le calcul pour enregistrer un nombre à virgule.
Malheureusement, lors du test, ça plante au niveau du Inputbox lorsque je valide avec OK, défaut de type...
Quelqu'un aurait une idée ?
Merci d'avance !
Dans l'une de mes macros, j'invite l'utilisateur à entrer via un inputbox, un nombre sous forme de fraction (ex: 16/9, 3/4, 5/4, etc...).
Je penssais que ma variable "Ratio" ferait directement le calcul pour enregistrer un nombre à virgule.
Malheureusement, lors du test, ça plante au niveau du Inputbox lorsque je valide avec OK, défaut de type...
Quelqu'un aurait une idée ?
Code:
Dim Ratio As Single
...
If dWidth / dHeight * 9 = 16 And dHeight / dWidth * 16 = 9 Then
Ratio = 16 / 9
ElseIf dWidth / dHeight * 10 = 16 And dHeight / dWidth * 16 = 10 Then
Ratio = 16 / 10
ElseIf dWidth / dHeight * 3 = 4 And dHeight / dWidth * 4 = 3 Then
Ratio = 4 / 3
ElseIf dWidth / dHeight * 4 = 5 And dHeight / dWidth * 5 = 4 Then
Ratio = 5 / 4
ElseIf dWidth / dHeight * 2 = 3 And dHeight / dWidth * 3 = 2 Then
Ratio = 3 / 2
Else
Protect_Unprotect False, 18
[B]Ratio = InputBox(Worksheets(18).Range("GZ" & LanguageSet).Value, Worksheets(18).Range("HA" & LanguageSet).Value, Worksheets(18).Range("HB" & LanguageSet).Value)[/B]
Protect_Unprotect True, 18
End If
...Merci d'avance !
Dernière modification par un modérateur: