Condition case sur string qui ne marche pas
bonsoir,
la portion de code dessous ne marche pas. La fonction me retourne 0. Par contre avec un boucle du type
f nuance = "CuFe194" Then
Set knowny_nuance = Worksheets("HEI_DATA").Range("E16:M16")
ElseIf nuance = "Laiton arsenié" Then
Set knowny_nuance = Worksheets("HEI_DATA").Range("E17:M17")
End if
Savez-vous pourquoi ?
Merci pour l'aide
Function calcul_FM(epaisseur_tube_mm As Double, nuance As String) As Double
Dim epaisseur_tube_inch As Double
Dim kownx_epaisseur As Range, knowny_nuance As Range
epaisseur_tube_inch = 0.039370079 * epaisseur_tube_mm
If epaisseur_tube_mm <= 0.5 Then
epaisseur_tube_inch = 0.02
ElseIf epaisseur_tube_inch > 0.107 Then
calcul_FM = CVErr(xlErrNA): Exit Function
End If
Set kownx_epaisseur = Worksheets("HEI_DATA").Range("E15:M15")
Select Case nuance
Case "CuFe194"
Set knowny_nuance = Worksheets("HEI_DATA").Range("E16:M16")
Case Else
Set knowny_nuance = Worksheets("HEI_DATA").Range("E18:M18")
End Select
calcul_FM = interpoL(epaisseur_tube_inch, kownx_epaisseur, knowny_nuance)
End Function
Bonsoir,
Aucune idée ! Il n'y a pas de raison à conditions rigoureusement identiques par ailleurs...
c'est fou cette histoire car j'utilise mes fonctions dans une feuille excel et donc je ne peux pas me tromper en passant des mauvaises valeurs...et pourtant dès que je mets mon code conditionnel en
select case
End select
ça marche pas mais il retourne systématiquement une valeur. Bon comme j'ai contourné le problème ca va rester un mystère.....
merci quand même pour la réponse
Si tu mets un fichier dans lequel la formule peut s'appliquer, car c'est assez spécifique comme calcul, on peut essayer de voir ce qui peut causer cette anomalie...
Mais a-priori c'est une anomalie, ça apparait bien ainsi du moins.
Bon weekend