[XL-2003] Log10 en VBA ne fonctionne pas

[HERBINE]

Bonjour
j'ai réalisé une fonction personnalisée le log10 décimal qui n'existe pas dans excel VBA.
Je souhaiterai l'insérer dans mon code sub principal, mais ça ne marche pas j'obtiens que des 0 dans mon tableau.
merci pour votre aide bien cordialement
herbine

[Theze]

Bonsoir,

Il faudrait que tu poste ton code.

Hervé.

[kiki29]

Salut, le Log de base 10 sous VBA ?

Code :

Application.WorksheetFunction.Log10(12.555)

car effectivement sans plus d'explications, difficile de faire mieux

[Theze]

Bonjour,

Si mes souvenirs sont bons, le Log de base 10 n'existe sous Excel 2003 (il existe bien sûr sous 2007 et +), pour ça j'utilisais la fonction suivante :

Code :

1
2
3
4
5
6
 
Function Log10(Valeur As Double) As Double
 
    Log10 = Log(Valeur) / Log(10#)
 
End Function

Hervé.

[kiki29]

Salut,à priori c'est faux, car même sous 97, l'exemple donné plus haut :

Code :

Application.WorksheetFunction.Log10(12.555)

fonctionne

[Theze]

Alors autant pour moi !
Désolé d'avoir dis une bêtise

Hervé.

[kiki29]

Salut, pas grave car même si chez moi cela fonctionne ( j'ai quand même 97 2002 et 2007 qui cohabitent ) et donc j'ai bien écrit "à priori"

[Ormonth]

Bonjour,

Log 10 existait bien sous 97, il est employé p42 ici :
Programmer efficacement avec Excel en VBA http://bidou.developpez.com/tutoriels/ExcelVBA/ - tagué 97 "Cet article contient du code compatible avec les versions Excel 97 et supérieures."

et il est cité dans un livre sur Excel 97 de Corinne Hervo

cordialement,

Didier

[Theze]

Bonjour à toutes et tous,

La question que je me pose, c'est pourquoi Herbine réinvente la roue ?
Je n'ai plus VB6 installé pour vérifier, cette fonction existait-elle dans VB6 ?

Hervé.

[kiki29]

Salut, seul Log ( Log Népérien Ln ou Log de Base e ) existait sous VB6

[Theze]

OK kiki29, il me semblai bien que cette fonction n'existait pas à un moment donné et j'ai mélangé VB (VB6) et VBA.

Je te remercie pour la précision.

Hervé.

[Pierre Fauconnier]

Salut.

Juste pour la précision, LOG10 n'existe pas en VBA pur.

Code :

application.worksheetfunction.log()

est l'utilisation en VBA d'une fonction EXCEL et nécessite que la librairie Excel soit cochée. C'est naturel avec Excel, mais ce code ne fonctionnera pas en VBA Access, VBA Word ou VB6 (sans cocher une référence à Excel).

Pour info, en Excel ( et donc aussi en VBA avec worksheetfunction), LOG(x) ou LOG10(x), c'est la même chose puisque LOG(), qui admet un second paramètre facultatif pour spécifier la base, prend 10 par défaut.

Par contre, la contrepartie Excel de LOG() VBA est LN().

En en VBA pur, la solution de Theze ( Log(Valeur) / Log(10#) ) me semble la meilleure alternative.

[kiki29]

Salut,bref après toutes ces digressions logarithmiques on attend toujours le code d'Herbine

[Ormonth]

Envoyé par Theze

La question que je me pose, c'est pourquoi Herbine réinvente la roue ?

Oui, la question est là car VBA pur ou non, le fonction voulue est native sous 2003 (vérifié) et le code qui suit est OK sous 2003 (vérifié)

Code :

1
2
3
4
Sub Loglog()
 
MsgBox Application.WorksheetFunction.Log10(365)
End Sub

Donc soit elle bloque dans un contexte particulier qui reste à préciser, soit comme le dit Hervé...

cordialement,

Didier