Création d'une fonction personnalisée

Résolu
sikasika Messages postés 74 Statut Membre -  
sikasika Messages postés 74 Statut Membre -
Bonjour tout le monde,

j'ai besoin d'aide s'il vous plaît, voici mon problème
j'ai créer un fonction qui me permet d'effectuer une simple division ( oui elle est faisable sur excel mais j'aimerai la créer)
le code suivant est une simplification de ce que j'aimerai faire:
Function coeffN(tri11 As Double, tri12 As Double) As Double

Application.Volatile

tri11 = Range("E269").Value
tri12 = Range("E70").Value

coeffN = tri11 / tri12

End Function

mon problème se pose au niveau de l'application: quand j'applique la formule au niveau d'une cellule, elle me sort une erreur "#VALEUR!"

3 réponses

  1. sikasika Messages postés 74 Statut Membre 3
     
    En fait je vais m'expliquer autrement,
    ce que je recherche c'est de créer une fonction qui me permettra sans avoir de cellules d'entrée d'effectuer une division
    j'ai réfléchi à ça ( mais pas de succès)
    Function coeffN() As Double
    Dim tri11 As Variant
    Dim tri12 As Variant

    Application.Volatile

    tri11 = Range(E269).Value
    tri12 = Range(E270).Value

    coeffN = tri11 / tri12

    End Function
    donc j'aimerai qu'elle prenne directement les valeur des deux cellules que j'ai indiqué et qu'elle me fasse le calcul ( est ce que c'est possible)

    je vous pris de bien vouloir m'aider
    0
  2. Frenchie83 Messages postés 2254 Statut Membre 339
     
    Bonjour
    Function coeffN(tri11, tri12)
    Application.Volatile
    coeffN = tri11 / tri12
    End Function
    Exemple d'utilisation:
    pour obtenir le résultat de la division de A1 par B1, dans C1, tapez
    =coeffN(A1;B1)

    cdlt
    0
  3. sikasika Messages postés 74 Statut Membre 3
     
    Merci beaucoup pour la réponse :D
    0