Condition If avec 2 variables

Question

J'ai problème pour faire cette macro. J'ai 2 variables : D5 et A20 Suivant leur valeur je dois faire un calcul dans la cellule A 38 J'ai fait le code suivant sans succés car A38 ne se modifie pas correctement! Dim A38 As Integer A = Range("A20").Value Re = Range("D5").Value B = Range("A38").Value If A &gt; 0.55 Then If Re &gt; 200000 Then B = 1 Else: B = 0.3164 * 64 / (Re) ^ (1 / 4) End If If A &lt; 0.55 Then If Re &gt; 40000 Then B = 1 Else: B = 0.3164 * 45 / (Re) ^ (1 / 4) End If Range("A38") = B End Sub Merci d'avance pour votre aide pading...

Demeb · Answer

Je ne comprends pas ton calcul, peux-tu expliquer ce que tu cherche à obtenir comme résultat

J'ai corriger ton code, sans être certain de comprendre

Cordialement

Sub ESSAI_2()

Dim A38 As Integer ' ne sert à rien puisque non utilisé

Dim A As Single

Dim Re As Single

Dim B As Single

A = Range("A20").Value

Re = Range("D5").Value

B = Range("A38").Value 'ne sert à rien puisque la valeur est remplacée dès le premier calcul

If A > 0.55 Then

If Re > 200000 Then

B = 1

Else

B = 0.3164 * 64 / (Re) ^ (1 / 4)

End If

Else

If Re > 40000 Then

B = 1

Else

B = 0.3164 * 45 / (Re) ^ (1 / 4)

End If

Range("A38") = B

End Sub

Nad-Dan · Answer

Je ne vois pas l'utilité de mettre des variables (A, B et Re) dans ton code. Pourquoi ne pas utiliser directement Range("A38"), Range("A20") et range("A5"). Ce serait nettement plus lisible. Amicalement dan...