Excel équation

Fermé

Formule

remibarbier Messages postés 237 Date d'inscription lundi 21 avril 2008 Statut Membre Dernière intervention 30 mai 2013 - Modifié par remibarbier le 19/04/2012 à 02:06
Elvis229 - 13 févr. 2023 à 07:44

Bonjour,

Je voudrais faire résoudre par Excel l'équation de Colebrook-White :
https://fr.wikipedia.org/wiki/Cyril_Frank_Colebrook
Afin de trouver lambda : le coefficient de perte de charge linéaire qui est des 2 cotés !

Mais avec le solver cela ne se fait pas automatiquement pour toutes les cases et en plus je ne sais pas comment l'utiliser pour faire ça !

comment peut-on faire ?

merci

A voir également:

Formule de colebrook excel
Formule excel - Guide
Liste déroulante excel - Guide
Formule moyenne excel - Guide
Formule excel si et - Guide
Formule excel si contient texte alors texte ✓ - Forum Excel

5 réponses

Réponse 1 / 5

Raymond PENTIER Messages postés 58393 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 23 avril 2024 17 096
19 avril 2012 à 05:58

Sacrée question !

Mais à mon avis, il te suffit de chercher pour quelle valeur de lambda tu auras zéro comme résultat du calcul :
=1/RACINE(Lambda)+2*LOG(2,51/Re/RACINE(Lambda)+Epsilon/3,7/D)
cette formule étant recopiée dans les cellules de la colonne H
et en définissant
* les noms D, Epsilon et Re pour les cellules contenant leurs valeurs,
* le nom Lambda pour la colonne G dans laquelle on fera varier les valeurs de lambda par des incrémentations successives.
Tu as ta bonne valeur lorsque le résultat en H atteint zéro.
On peut ainsi se passer du solveur ...
Version 2007 https://www.cjoint.com/?BDtf2YMheGc
Version 2003 https://www.cjoint.com/?BDtf4kqSKmW

Très cordialement.

remibarbier Messages postés 237 Date d'inscription lundi 21 avril 2008 Statut Membre Dernière intervention 30 mai 2013 16
19 avril 2012 à 12:08

Merci pour l'explication du fichier, mais...
Le problème c'est que pour chacune de mes lignes, j'ai un Re, D, et ? différent, et donc lambda différent !
C'est super compliquer de trouver une solution, c'est pour ça que je demande.
Où peut être que j'ai pas compris la solution ?
en tout cas, merci quand même.

Elvis229 > remibarbier Messages postés 237 Date d'inscription lundi 21 avril 2008 Statut Membre Dernière intervention 30 mai 2013
13 févr. 2023 à 07:44

Salut, j'aimerais que tu le fais pars de ta solution !

Réponse 3 / 5

Raymond PENTIER Messages postés 58393 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 23 avril 2024 17 096
19 avril 2012 à 15:19

Salut, remibarbier !

Je suis assez content de mon fichier, même si toi, tu ne le considéreras pas si efficace que ça ... J'ai trouvé une méthode sans macro et sans solveur, juste en jouant à la toupie, alors je suis satisfait !
https://www.cjoint.com/?BDtppHbipgE

Bonne journée.

remibarbier Messages postés 237 Date d'inscription lundi 21 avril 2008 Statut Membre Dernière intervention 30 mai 2013 16
19 avril 2012 à 15:27

Merci,
mais epsilon doit être de l'ordre de 1*10^-6 et D doit être mis en mètre : 12*10^-3
Re peut faire bien plus de 10000 et lambda est compris entre 0.0001 et 0.1.

je suis partie pour essayer d'automatisé le solveur à la place je n'ai jamais fait de macro, on verra !

Réponse 4 / 5

remibarbier Messages postés 237 Date d'inscription lundi 21 avril 2008 Statut Membre Dernière intervention 30 mai 2013 16
Modifié par remibarbier le 19/04/2012 à 17:05

j'ai réussi a faire ma macro pour résoudre le problème, elle utilise le solver :
cela pourra servir a d'autre !
je me suis aider de ce site pour les macro :

https://jml85.pagesperso-orange.fr/Pages/cours_VBA.htm

Sub Solverauto() 
' 
' Solverauto Macro 
' 
' Touche de raccourci du clavier: Ctrl+ù 
' 
 Dim i As Integer 
 Dim Cel As Range 
 Dim Cel2 As Range 
 Set Cel = Range("$M$5") 
 Set Cel2 = Range("$N$5") 
 Dim nombre As Integer 
  
 nombre = Cel.End(xlDown).Row 
  
 For i = 0 To nombre - 5 
If Cel.Offset(i) <> "" Then 
 Cel2.Offset(i) = 0.05 
  
SolverOk SetCell:=Cel.Offset(i), MaxMinVal:=3, ValueOf:="0", ByChange:=Cel2.Offset(i) 
    SolverSolve (True) 
End If 

Next i 
     
     
     
End Sub

M5 est la cellule a définir a 0 et N5 est la cellule variable dont on cherche la valeur sur le solveur.
i permet de bouclé le solveur avec "nombre" le nombre de ligne que l'on a a partir de m5 a résoudre.
on connais la fin avec Cel.End(xlDown).Row

Discussions similaires

help ! copie de formule excel à l'horizontale

Excel distance entre 2 adresse googlemap

Extraire valeurs d'une colonne sans doublons

Excel - Insérer une formule dans un graphique

EXCEL : Lien hypertexte avec formule

Excel Fonction SI ET 2 critères 2 conditions

Discussions similaires

Newsletters