Problème d'application d'une variable

Bonjourà tous,

J'ai un problème dans une formule de ma macro, je vous met une partie de celle-ci:

Dim area As Double

area = Range("AJ3")

Range("AJ" & j).Select

ActiveCell.FormulaR1C1 = "=SQRT((360*" & area & ")/(PI()*" & Angle & "))"

J'obtiens une erreur et après quelques tests j'ai vu que la formule marche si "area" correspond à un entier... alors que ma variable est déclarée as Double !

Merci pour votre aide !

Bonjour,

si area est un "double", c'est du numerique et range("AJ3") est un range !!

un peu de lecture sur les variables !

https://www.excel-pratique.com/fr/vba/variables.php

P.

hum ok je vois mais le cours sur les variables ne m'aide pas pour mon problème, je ne sais pas comment déclarer ma variable.

Du coup j'ai essayé d'aller chercher drectement la cellule dans ma formule mais je dois avoir un problème d'écriture je pense :

Range("AJ" & j).Select

ActiveCell.FormulaR1C1 = "=SQRT((360* " & Cells(Range("AJ3")) & " )/(PI()*" & Angle & "))"

Tu saurais me dire soit comment déclarer ma variable, soit me dire ce qui ne va pas avec ma formule?

Merci d'avance !

Bonjour,

Un essai avec une fonction personnalisée.

Cdlt.

Public Function UDF(area, angle)
Dim pi As Double
    pi = 4 * VBA.Atn(1)
    UDF = VBA.Sqr((360 * area) / (pi * angle))
End Function

Bonjour,

J'obtiens une erreur

mais encore ?

On ne voit pas pas où tu déclares et définis angle (?)

area est un mot clé vba, essaie avec autre chose des fois que ça le perturbe.

eric

En fait "Angle" est définis dans une autre partie de la macro et le problème ne venait pas de cette partie. Et je pense que le problème venait de l'utilisation de décimales puisque que un nombre entier ne posait pas de problème...

Enfin bref, j'ai finalement réussi avec la formule de Jean-Eric :

Dim pi As Double

pi = 4 * VBA.Atn(1)

UDF = VBA.Sqr((360 * area * z) / (pi * angle))

Range("AJ" & j) = UDF

Je l'ai un peu modifier pour qu'elle puisse fonctionner dans ma boucle mais tout marche nickel.

Merci à tous pour vos réponses et bonne continuation !