Autres Inserer une formule a base de LOG dans un TextBox

Legendre · 13 Juillet 2020

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 · 13 Juillet 2020

Bonjour,

Essaie :

VB:

Mylog = 10 * (Application.Log10(n)

Cordialement.

Daniel

danielco · 13 Juillet 2020

Bonjour,

Essaie :

VB:

Mylog = 10 * (Application.Log10(n)

Cordialement.

Daniel

Dranreb · 13 Juillet 2020

Bonjour.
Vouys pouvez aussi vous écrire :

VB:

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

pierrejean · 13 Juillet 2020

Bonjour
A tester:

VB:

    Mylog = 10 * Log(n, 10)

Legendre · 14 Juillet 2020

danielco à dit:
Bonjour,

Essaie :

VB:

Mylog = 10 * (Application.Log10(n)

Cordialement.

Daniel

Merci, Cela fonctionne bien

danielco · 14 Juillet 2020

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

Autres Inserer une formule a base de LOG dans un TextBox

Legendre

XLDnaute Nouveau

danielco

danielco

XLDnaute Accro

Dranreb

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

Legendre

XLDnaute Nouveau

danielco

XLDnaute Accro

Discussions similaires