Autres Inserer une formule a base de LOG dans un TextBox

[Legendre]

Bonjour à tous,
Je souhaiterais appliquer la formule ci-dessous en en double cliquant sur le Textbox 20
=10*(LOG10(Y2*1000000))+Z2
Y2=TextBox5
Z2=TextBox6
TextBox20 est le résultat de la la formule.

Mon code de débutant est le suivant:
Private Sub TextBox20_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim n
Dim m
Dim Mylog
n = TextBox5.Value * 1000000
m = TextBox6.Value
Mylog = 10 * (Log10(n))
TextBox20.Value = Mylog + m
End Sub

Ce code m'affiche un message "erreur de compilation LOG10".
Si je supprime le chiffre 10 de la formule le code s’exécute mais le résultat est faux
Pouvez-vous m'aider ?
Merci par avance
Jacques

 

[danielco]

Bonjour,

Essaie :

Mylog = 10 * (Application.Log10(n)

Cordialement.

Daniel

 

[Dranreb]

Bonjour.
Vouys pouvez aussi vous écrire :

Function Log10(ByVal X as Double) As Double
   Const InvLog10 = 103910846 / 239263565
   Log10 = Log(X) * InvLog10
   End Function

 

[pierrejean]

Bonjour
A tester:

    Mylog = 10 * Log(n, 10)

 

[Legendre]

Bonjour,

Essaie :

Mylog = 10 * (Application.Log10(n)

Cordialement.

Daniel

Merci, Cela fonctionne bien

 

[danielco]

Oups, je vois que je n'ai pas donné l'explication. "Log10" n'est pas une fonction VBA (comme Log), mais une fonction Excel. Il faut donc la faire précéder de "Application" ou de "WorkSheetFunction".

Daniel