À l'aide nommées cellules dans une fonction VBA

J'ai une feuille de calcul où je l'ai défini les noms de certaines cellules. Ces cellules seront utilisées dans la fonction et je les appelle par leur nom.

Cependant, je reçois 0 comme un retour de la fonction, quand je l'appelle avec Excel, comme si les noms n'étaient pas liés ou a une valeur de 0.

Ci-dessous le code que j'ai écrit. "Sum_Len_1", "L_W_2" ans "L_W_1" sont les noms que j'ai donné à la source des cellules.

Function min_w(depth)

    If depth < Sum_Len_1 Then
        min_w = L_W_1 * 0.868 * depth / 1000
    Else
        min_w = L_W_1 * 0.868 * Sum_Len_1 / 1000 + L_W_2 * 0.868 * (depth - Sum_Len_1) / 1000
    End If

End Function

Comment puis-je résoudre le problème?

Pouvez-vous donner un exemple pour lequel les valeurs de profondeur, L_W_1, L_W_2 et Sum_Len_1 pourrait avoir?
L_W_1 = 105 L_W_2 = 96 Sum_Len_1 = 37

OriginalL'auteur user2453446 | 2013-06-21

  1. 9

    Si vous venez d'écrire min_w = L_W_1 * 0.868 * depth /1000 vba pense L_W_1 c'est variable (de type variant avec la valeur=0).
    Vous devez le faire comme ce Range("L_W_1").Value pour faire référence à la cellule nommée.

    Cela devrait fonctionner si vous le remplacez par:

    Function min_w(depth As Long)
If depth < Range("SUM_LEN_1").Value Then
    min_w = Range("L_W_1").Value * 0.868 * depth / 1000
Else
    min_w = Range("L_W_1").Value * 0.868 * Range("SUM_LEN_1").Value / 1000 + Range("L_W_2").Value * 0.868 * (depth - Range("SUM_LEN_1").Value) / 1000
End If
End Function
    Merci cela fonctionne très bien !

    OriginalL'auteur MiVoth

  2. 4

    Vous pouvez simplement les mettre entre parenthèses les marquer comme une plage:
    [Sum_Len_1].Valeur, [L_W_2].Valeur et [L_W_1].Valeur

    OriginalL'auteur robotik