Microsoft 365 formule logarithmique

[jessica.girard31]

Bonjour à tous,
Savez-vous rentrer une formule logarithmique ?
Cf le fichier en PJ.
Merci beaucoup pour votre aide !
Jessica

 

[Dranreb]

Bonjour.
=LOG10($A11)

 

[jessica.girard31]

Merci pour votre retour. Cela ne convient pas. J'ai mis la courbe pour avoir une idée, mais c'est pas une base 10. La base est celle que j'ai indiquée au début.
En gros pour 100.000 pièces on devrait être à 0,1% et pour 4.000.000 peut être 2,4%.
Pouvez-vous s'il vous plait reprendre la formule ?

 

[Dranreb]

Et pour 0 pièces ça tendrait vers -∞ ?
Peut être =B$6+(B$7-B$6)*LOG10($A11/$A$6)/LOG10($A$7/$A$6)

 

[jessica.girard31]

et non pour 0 = 0%

 

[Dranreb]

Sinon j'utilise beaucoup cette fonction perso pour mes trucs :

Function IntpoHyp(ByVal X As Double, ByVal X1 As Double, ByVal Y1 As Double, _
                                     ByVal X2 As Double, ByVal Y2 As Double, _
                                     ByVal X3 As Double, ByVal Y3 As Double) As Double
   Dim dX As Double, dY As Double: dX = X3 - X1: dY = Y3 - Y1: If dY = 0 Then IntpoHyp = Y1: Exit Function
   IntpoHyp = Y1 + dY * F0à1xyInt((X - X1) / dX, (X2 - X1) / dX, (Y2 - Y1) / dY)
   End Function
Function F0à1xyInt(ByVal X As Double, ByVal XInt As Double, ByVal YInt As Double) As Double
   Dim Dét As Double, A As Double, B As Double
   Dét = XInt - YInt
   If Abs(Dét) > 2.3283064365387E-10 Then
      A = XInt * (YInt - 1) / Dét
      B = YInt * (XInt - 1) / Dét
      If X <> -A Then F0à1xyInt = B - (A * B) / (X + A)
   Else
      F0à1xyInt = X: End If
   End Function

mais elle n'est pas logarithmique.
Édition: Tout comme ce qu'il vous faut, de toute évidence, puisque votre courbe y tend pour 0.

 

[jessica.girard31]

pouvez-vous svp essayer de la mettre dans le fichier et me le renvoyer ?

 

[Dranreb]

Voici la formule à 3 points.
Des solutions existeraient pour aller jusqu'à 5 points si la pente varie toujours dans le même sens.

 

[jessica.girard31]

Oh non 3 points c'est parfait 🙂
On y est presque...
Pourquoi lorsque j'adapte la formule, cela m'indique #NOM ?

 

[Dranreb]

Vous n'avez pas du équiper le projet VBA de votre classeur du module contenant la programmatioin de la fonction.

 

[jessica.girard31]

Je suis désolée savez vous comment faire ?
J'ai rajouté developpeur mais ça ne fonctionne toujours pas !

 

[Dranreb]

Faite déjà Alt+F11 pour aller dans le Visual Basic Editor
Dans l'explorateur de projets, clic doit, Insersion… Module.
Collez dans la fenêtre de code ce que j'ai indiqué au poste #6.
N'oubliez pas de l'enregistrer comme Classeur prenant en charge les macros (.xlsm)

 

[jessica.girard31]

Ca fonctionne merci beaucoup 🙂