Logarithme népirien en VBA

Question

Bonjour,
je cherche la formule qui me permet de calculer le logarithme népirien dans le langage VBA

exemlpe:
private sub Log()

if range(A2").Value > 0 then
    range("A5").Value = Log(Range(A2").Value)
    Else:
          Msgbox ("Le Nombre doit être Positif")
End if
End sub

en exécutant la macro je reçois le message: " Incompatibilité de type"

Pouvez vous m'éclaircir le chemin

Merci à l'avance

pilas31 · Answer

Bonjour,

Voici la syntaxe correcte :

Sub Logn()

If Range("A2").Value > 0 Then
    Range("A5").Value = Log(Range("A2").Value)
Else
    MsgBox ("Le Nombre doit être Positif")
End If

End Sub


Attention ne pas utiliser le même nom de fonction (Log) que la fonction VBA

A+

michel_m · Answer

Bonjour
 Log est un mot réservé et de simples fautes de frappe:
Sub Log_neper()
If Range("A2").Value > 0 Then
Range("A5").Value = Log(Range("A2").Value)
Else:
MsgBox ("Le Nombre doit être Positif et supérieur à 0")
End If


pourquoi Private sub ?

michel_m · Answer

Et bing, une bosse! salut, Pilas

Logarithme népirien en VBA

3 réponses

Discussions similaires

Newsletters