elgobi | Bonjour,
J'ai un problème , je souhaite faire appelle à la fonction Max(,) dans une macro et j'ai un message d'erreur qui me dit que la fonction n'est pas déclarée. (dans mon code c'est vers la fin "A=max(0.9,2*Dextm)"
Comment dois je la déclarer ?
Merci d'avance
Code :
- '''''''''''''''macro qui calcule les y_i et les p_i
- '''''
- Sub macro_py(Typesolm As Integer, Profm As Double, Dextm As Double, Cm As Double, Gammam As Double, Jm As Double, Epsilon50m As Double, Phim As Double, Drm As Double)
- Select Case Typesolm
- Case 1 ''''''''''''''''''''''''''''''''''''SAND''''''''''''''''''''''''''''''''''''
- Dim A As Double
- Dim C1 As Double
- Dim C2 As Double
- Dim C3 As Double
- Dim K As Double
- Dim Pus As Double
- Dim Pud As Double
- 'calcul des y
- If Profm < 0 Then
- Y_1m = "'"
- Y_2m = "'"
- Y_3m = "'"
- Y_4m = "'"
- Y_5m = "'"
- Y_6m = "'"
- Else
- Y_1m = 0
- Y_2m = 0.005
- Y_3m = 0.01
- Y_4m = 0.1
- Y_5m = 1
- Y_6m = 10.2
- End If
- 'calcul des p
- If Profm < 0 Then
- P_1m = "'"
- P_2m = "'"
- P_3m = "'"
- P_4m = "'"
- P_5m = "'"
- P_6m = "'"
- Else
- A = Max(0.9, 2 * Dextm)
- C1 = -0.000008739 * Phim ^ 4 + 0.0012922441 * Phim ^ 3 - 0.060552117 * Phim ^ 2 + 1.2625796596 * Phim - 9.2681222143
- C2 = -0.0000025746 * Phim ^ 4 + 0.0002053321 * Phim ^ 3 - 0.0015220899 * Phim ^ 2 - 0.0384439393 * Phim + 1.7430641448
- C3 = 0.0003405674 * Phim ^ 4 - 0.0299960994 * Phim ^ 3 + 1.0922389049 * Phim ^ 2 - 17.8322568311 * Phim + 114.0237384002
- K = (-0.000000000376 * Drm ^ 6 + 0.000000242182 * Drm ^ 5 - 0.000036449036 * Drm ^ 4 + 0.002111128193 * Drm ^ 3 - 0.027701302473 * Drm ^ 2 + 0.340801913983 * Drm + 5.440458496038) * 0.4535924 / (0.0254 ^ 3) * 0.00980665
-
- Pus = (C1 * Profm + C2 * Dextm) * Gammam * Profm
- Pud = C3 * Dextm * Gammam * Profm
-
- End If
|
|
