déclaration fonction dans macro

déclaration fonction dans macro - VB/VBA/VBS - Programmation

Marsh Posté le 19-05-2006 à 15:19:37    

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 :
  1. '''''''''''''''macro qui calcule les y_i et les p_i
  2. '''''
  3. 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)
  4. Select Case Typesolm
  5. Case 1 ''''''''''''''''''''''''''''''''''''SAND''''''''''''''''''''''''''''''''''''
  6.     Dim A As Double
  7.     Dim C1 As Double
  8.     Dim C2 As Double
  9.     Dim C3 As Double
  10.     Dim K As Double
  11.     Dim Pus As Double
  12.     Dim Pud As Double
  13.     'calcul des y
  14.     If Profm < 0 Then
  15.         Y_1m = "'"
  16.         Y_2m = "'"
  17.         Y_3m = "'"
  18.         Y_4m = "'"
  19.         Y_5m = "'"
  20.         Y_6m = "'"
  21.     Else
  22.         Y_1m = 0
  23.         Y_2m = 0.005
  24.         Y_3m = 0.01
  25.         Y_4m = 0.1
  26.         Y_5m = 1
  27.         Y_6m = 10.2
  28.     End If
  29.     'calcul des p
  30.     If Profm < 0 Then
  31.         P_1m = "'"
  32.         P_2m = "'"
  33.         P_3m = "'"
  34.         P_4m = "'"
  35.         P_5m = "'"
  36.         P_6m = "'"
  37.     Else
  38.     A = Max(0.9, 2 * Dextm)
  39.     C1 = -0.000008739 * Phim ^ 4 + 0.0012922441 * Phim ^ 3 - 0.060552117 * Phim ^ 2 + 1.2625796596 * Phim - 9.2681222143
  40.     C2 = -0.0000025746 * Phim ^ 4 + 0.0002053321 * Phim ^ 3 - 0.0015220899 * Phim ^ 2 - 0.0384439393 * Phim + 1.7430641448
  41.     C3 = 0.0003405674 * Phim ^ 4 - 0.0299960994 * Phim ^ 3 + 1.0922389049 * Phim ^ 2 - 17.8322568311 * Phim + 114.0237384002
  42.     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
  43.    
  44.     Pus = (C1 * Profm + C2 * Dextm) * Gammam * Profm
  45.     Pud = C3 * Dextm * Gammam * Profm
  46.    
  47.     End If

 

Reply

Marsh Posté le 19-05-2006 à 15:19:37   

Reply

Marsh Posté le 19-05-2006 à 15:23:04    

Application.Max

Reply

Marsh Posté le 19-05-2006 à 15:27:48    

merci

Reply

Marsh Posté le 19-05-2006 à 15:33:32    

euh en fait ça marche pas: j'ai mis application.max au début de ma macro et il me met toujours que max est non défini...

Message cité 1 fois
Reply

Marsh Posté le 19-05-2006 à 15:40:20    

elgobi a écrit :

j'ai mis application.max au début de ma macro


????
 
Il faut remplacer max(...) par application.max(...)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed