Racine carrée d'une variable dans un code vba

Bonjour,

Je souhaite avoir votre aide pour appliquer la racine carré a un nombre. Dans mon code vba j'ai:

Code:

---

Sheets("Tank Sheet Report").Cells((Sheets("Scratch Pad").Cells(15, 4).Value) + 10, 2).Value = TotalWRStdDev / CountNbWaterRate2

---

En fait ce n'ai pas TotalWRStdDev / CountNbWaterRate2 que je veux calculer mais plutot sa racine carré. Je veux eviter stocker cette valeur sur une cellule puis calculer sa racine carré grace a:

Code:

---

'ActiveCell.FormulaR1C1 = "=SQRT(RC)"

---

. Est ce que c'est possible?

Merci d'avance pour votre aide.

Bonjour à tous

Si j'ai bien compris :

Code:

---

1 2 3 4

Sub rac_carre() Dim nb As Integer nb = Sqr(Range("c9")) End Sub

---

Eric

Merci,

J'ai ajusté le code puisque le nombre est no,bre decimal et j'ai rajouté un argument a ma fonction (le nombre que je souhaite obtenir sa racine carré) mais ca ne marche pas.

Finalement, betement, j'ai utilisé les maths dans mon code vba et j'ai remis le nombre que je souhaite obtenir sa racine carre a la puissance 1/2. Je ne savais pas que je pouvais faire ca. ca marche..

Mais pour mes connaissances savais vous ce qui ne va pas avec la fonction ci dessous?

Code:

---

1 2 3 4

Function rac_carre(Val As Double) Dim Res As Double Res = Sqr(Val) End Function

---

Merci

Bonjour à toi,

ton code code ne marche pas, tout simplement car ta fonction ne renvoie aucune valeur.

Code:

---

1 2 3 4

Function rac_carre(Val As Double) rac_carre = Sqr(Val) End Function

---

Bonne journée