Discussion :

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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"

[Didier Gonard]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Didier Gonard]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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