Multiplication des solution dans une chaine

Question

Bonjour,
Je cherche actuellement avec ce code source,
Sub solveur_perso()


Dim i As Double
Dim f As Object
Dim x As Double
Dim y As Double
Dim b As Double
Dim ii As Double


Set f = Sheets("Feuil1")


y = f.Range("B1").Value
y = Format(y, "#0.000")
x = 1


i = -1000
Do While f.Range("B1").Value > " "


    If 2 * i - 2 = y Then
        x = b
    Exit Do
    End If
    
i = i + 0.001
b = i
Loop
f.Range("B3").Value = x
Set f = Nothing
End Sub
A faire que     If 2 * i - 2 y ou une autre solution, la deuxième solution étant dans une plage de valeur de + ou moin 5% arrondie au 0,001 de la valeur y. Exemple y 400 que la solution soit y=400 ou y = une plage contenant les valeurs 5 % au dessus et 5% en dessous de 400.

J'ai penser monter une deuxième boucle mais je n'y arrive pas.
Merci par avance.

econs · Answer

Salut,

En pseudocode, çà donnerait ceci :




If (premiereCondition) Or (DeuxiemeCondition) Then
 ... Ton code
End If




Avec DeuxiemeCondition qui serait :




y>=400*0.95 And y<=400*1.05









Manu


--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.

Multiplication des solution dans une chaine

1 réponse

Votre réponse

Discussions similaires