G
gerome1980
Guest
Bonjour,
j'ai un problème avec la fonction ci-dessous.
Les paramètres de ma fonction sont n et t.
Je souhaite reproduire un tableau de valeur avec trois lignes: S355, S420 et S460,et plus
généralement S(n).
Mes colonnes sont à choisir suivant les valeurs de t, par exemple colonne 1 correspond à un t
compris entre 8 et 16, colonne 2 correspond à un t compris entre 16 et 40...etc J'avais pensé
à définir une array avec ces bornes.
Le code ci-dessous ne marche pas.
Function fy(n, t As Double)
Dim S355, S420, S460 As Variant
S355 = Array(355, 345, 335, 325, 315, 295)
S420 = Array(420, 400, 390, 370, 360, 340)
S460 = Array(460, 440, 430, 410, 400, 'PM')
If t >= 8 And t = borne(i) And t <= borne(i + 1) Then
'If nuance = 355 Then cas = S355(i)
'Else
'If nuance = 420 Then cas = S420(i)
'Else
'If nuance = 460 Then cas = S460(i)
'Else
'cas = 'error'
'End If
'Else: cas = 'error'
'End If
'fy = cas
End Function
Pourriez-vous m'aider?
Merci,
Jerome
j'ai un problème avec la fonction ci-dessous.
Les paramètres de ma fonction sont n et t.
Je souhaite reproduire un tableau de valeur avec trois lignes: S355, S420 et S460,et plus
généralement S(n).
Mes colonnes sont à choisir suivant les valeurs de t, par exemple colonne 1 correspond à un t
compris entre 8 et 16, colonne 2 correspond à un t compris entre 16 et 40...etc J'avais pensé
à définir une array avec ces bornes.
Le code ci-dessous ne marche pas.
Function fy(n, t As Double)
Dim S355, S420, S460 As Variant
S355 = Array(355, 345, 335, 325, 315, 295)
S420 = Array(420, 400, 390, 370, 360, 340)
S460 = Array(460, 440, 430, 410, 400, 'PM')
If t >= 8 And t = borne(i) And t <= borne(i + 1) Then
'If nuance = 355 Then cas = S355(i)
'Else
'If nuance = 420 Then cas = S420(i)
'Else
'If nuance = 460 Then cas = S460(i)
'Else
'cas = 'error'
'End If
'Else: cas = 'error'
'End If
'fy = cas
End Function
Pourriez-vous m'aider?
Merci,
Jerome