une condition dans fichier excel Fermé

Question

Bonjour, est il possible de calculer une fonction avec des condition dans le fichier excel exemple c un code que j'ai crée dans vba, maintenant je veux excueter ce code mais dans le fichier excel If re1 <= 2300 Then TextBox_regime.Value = "laminaire" k1 = 64 / re1 End If If re1 >= 2300 Then TextBox_regime.Value = "Turbulent lisse" Dim r1 As Currency k1 = 0 r1 = 0 '-------------------------- '-------------------------- While r1 <= 1 k1 = k1 + 0.0001 r1 = (2 * ((Log(re1 * Sqr(k1))) / Log(10)) - 0.8) * Sqr(k1) Wend End If If re1 >= 100000 Then TextBox_regime.Value = "turbulent rugueux" k1 = 0 r1 = 0 '-------------------------- psi = TextBox_rugosite.Value '-------------------------- While r1 <= 1 k1 = k1 + 0.0001 r1 = (-2 * (Log((psi / (3.7 * d1)) + (2.52 / (Sqr(k1) * re1)))) / (Log(10))) * Sqr(k1) Wend exemple: re1 = range ("A1") comment juste dans la feuil excel on peut calculer la valeur de K1 sans passer par vba ? et surtout est ce que ce genre de conditions est faisable dans lexcel ( sans vba )

jordane45 · Answer

bonjour, Ta question n'est pas très claire..... Je pense que ce que tu demande c'est comment utiliser un code VBA comme une formule ? Dans ce cas il suffit d'écrire des FUNCTION au lieu de SUB Par exemple Function test(re1 As Range) Dim k1 Dim r1 As Currency If re1.Value >= 100000 Then TextBox_regime.Value = "turbulent rugueux" k1 = 0 r1 = 0 '-------------------------- psi = TextBox_rugosite.Value '-------------------------- While r1 <= 1 k1 = k1 + 0.0001 r1 = (-2 * (Log((psi / (3.7 * d1)) + (2.52 / (Sqr(k1) * re1)))) / (Log(10))) * Sqr(k1) Wend ElseIf re1.Value >= 2300 Then If re1 >= 2300 Then TextBox_regime.Value = "Turbulent lisse" k1 = 0 r1 = 0 '-------------------------- '-------------------------- While r1 <= 1 k1 = k1 + 0.0001 r1 = (2 * ((Log(re1 * Sqr(k1))) / Log(10)) - 0.8) * Sqr(k1) Wend Else 'if re1 <= 2300 then TextBox_regime.Value = "laminaire" r1 = 64 / re1 End If 'retourne le resultat test = r1 End Function NB: Pour poster du code sur le forum, merci de le faire en utilisant LES BALISES DE CODE (et en y précisant le langage) Explications disponibles ici : https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code

Une condition dans fichier excel

1 réponse