Discussion :

[micwiss]

Salut,
Je suis comment dire, néo-débutant, complètement ignare des codes, il m'en faut pourtant un, voilà donc pourquoi je m'adresse à la communauté. (Il me semble d'ailleur que le code ne doit pas etre réellement compliqué)

Voici mon problème:
J'ai deux volumes (V1 et V2) connus et renseignés dans des cellules Excel (B1 et b3 par exemple) et je souhaite réaliser cette opération:
Si 5*V1+(n+1)*RACINE(100/6)<V2 avec n=2 alors on note dans le cellule B5 le nombre n
sinon on réalise la meme opération avec n=3 , puis avec n=4,... ainsi de suite jusqu'à ce que l'opération soit vérifiée.

en fait je souhaite atteindre une dilution /100 du volume V1 avec une première dilution par 6, en utilisant de façon optimale un volume d'eau V2.

Merci d'avance

[RLX]

Salut micwiss,

voici une solution avec les formules si ça t'intéresse
valeur de V1 en C4
valeur de V2 en C5
valeur de n en C6
formule en E6
=5*$C$4+(C6+1)*SQRT(100/6)
2 eme formule en F6
=IF(E6<$C$5,"INFERIEUR","SUPERIEUR")

voila et avec la souris tu sélectionne la cellule de n (C6) tu click sur le petit carré en bas à droite de la cellule et en appuyant sur CTRL tu descend la souris et quand tu lache le bouton il te rempli toute les cellules avec les différentes valeur de n. Tu fais la meme chose avec les 2 formules et tu as les résultats!!!!!

[illight]

Voici mon problème:
J'ai deux volumes (V1 et V2) connus et renseignés dans des cellules Excel (B1 et b3 par exemple) et je souhaite réaliser cette opération:
Si 5*V1+(n+1)*RACINE(100/6)<V2 avec n=2 alors on note dans le cellule B5 le nombre n
sinon on réalise la meme opération avec n=3 , puis avec n=4,... ainsi de suite jusqu'à ce que l'opération soit vérifiée.

Tu peux aussi faire une macro :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub macro1 ()
Dim v1 As Double
Dim v2 As Double
Dim resultat As Double
n = 1
'initialisation des variables a la valeur des volumes de tes cellules B1 et B3
v1 = Range("B1").Value
v2 = Range("B3").Value
'on met ton calcul dans une variable
resultat = 5 * v1 + (n + 1) * Sqr(100 / 6)
While resultat > v2
    'tant que le resultat est superieur au volume v2 on rajoute 1 à n
    n = n + 1
    resultat = 5 * v1 + (n + 1) * Sqr(100 / 6)
    'on réinitialise le calcul
Wend
Range("B5").Value = n  'en B5 on aura la valeur de n
End Sub

Alors après pour la boucle, je sais pas si c'est supérieur ou inférieur j'ai un affreux doute

[micwiss]

merci beaucoup!
ca marche avec les deux méthodes.
Pour la méthode avec la macro je vais fouiller dans le forum pour créer un bouton pour faire la tourner.

Pour info ma formule était mauvaise
Pour connaitre le volume nécessaire pour obtenir une dilution par 100 avec une première dilution par 6, l'équation est la suivante
=5*volume1+(100/6)^(1/(n-1))*volume1*(n-1) avec n nombre de dilution

[illight]

Oui après c'est a toi de la mettre en forme, je t'ai juste donné l'idée

[micwiss]

etant donné qu'avec certains volumes v1 et v2 la boucle était infinie, j'ai utilisé le "Do While ... Loop" avec un "If n > 10 Then Exit Do", pour finir la boucle s'il fallait plus de 10 rinçages successifs

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub rinçage()
Dim v1 As Double
Dim v2 As Double
Dim resultat As Double
n = 2
'initialisation des variables a la valeur des volumes de tes cellules B3 et B5
v1 = Range("B3").Value
v2 = Range("B5").Value
'on met ton calcul dans une variable
resultat = 5 * v1 + (100 / 6) ^ (1 / (n - 1)) * v1 * (n - 1)
Do While resultat > v2
    'tant que le resultat est superieur au volume v2 on rajoute 1 à n
    n = n + 1
    resultat = 5 * v1 + (100 / 6) ^ (1 / (n - 1)) * v1 * (n - 1)
    If n > 10 Then Exit Do 'on arrète la boucle si n<10
    'on réinitialise le calcul
Loop
 
If n < 10 Then
Range("B7").Value = n  'en B7 on aura la valeur de n
Else
Range("B7").Value = "Cuve d'eau claire trop petite"
End If
 
If n < 10 Then
Range("B10").Value = (100 / 6) ^ (1 / (n - 1)) * v1 'en B10 on aura le volume pour chaque rinçage à partir du second
Else
Range("B10").Value = "Cuve d'eau claire trop petite"
End If

sinon j'ai dessiner un bouton, et je lui ai affecté la macro. Tout simplement avec un click droit sur le dessin et affecter macro...

Maintenant, ça marche du tonnerre!!!!!!!

Merci