Discussion :

[developpeur82]

Bonjour,

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

Code :

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

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 :

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

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

. Est ce que c'est possible?

Merci d'avance pour votre aide.

[edelweisseric]

Bonjour à tous

Si j'ai bien compris :

Code :

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

1
2
3
4
Sub rac_carre()
  Dim nb As Integer
      nb = Sqr(Range("c9"))
End Sub

Eric

[developpeur82]

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 :

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

1
2
3
4
Function rac_carre(Val As Double)
Dim Res As Double
Res = Sqr(Val)
End Function

Merci

[Guiiand]

Bonjour à toi,

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

Code :

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

1
2
3
4
 
Function rac_carre(Val As Double)
rac_carre = Sqr(Val)
End Function

Bonne journée