VBA - Puissance et Racine Carré

Bonjour^^

Je viens vers vous car je rencontre un problème en VBA. Je dois faire des calculs dans un fichier EXCEL sous EXCEL 2016 FR et j'ai besoin d'utiliser SQR et ^ mais avec des ActiveCell.Offset. Mon problème est que mon calcul ne fonctionne pas. le seul moyen que j'ai trouvé est de passé par de ActiveCell.FormulaR1C1 en faisant une macro et en faisant le calcul via Excel. Cela me donne : ActiveCell.FormulaR1C1 = "=(SQRT((POWER(R[-1]C[-1]-R[-2]C[-1],2)-POWER(R[-1]C[-1],))))+R[-1]C"

Cela fonctionne, c'est sur, mais je voudrais faire le même calcul en VBA avec SQR et ^ en sachant que mon ActiveCell est sur B5.

Quelqu'un pourrait-il m'aider ? D'avance merci.

Cordialement,

Norck

bonjour

pourquoi faire compliqué avec VBA alors que c'est si simple avec Excel ?

Euh, merci... Ça ne répond pas vraiment à ma question mais effectivement, dans l'absolu, si je laisse tel quel ça marche...

Néanmoins, je voudrai bien savoir comment faire proprement la chose. Je sais quoi utiliser, SQR et ^ mais je n'y parviens pas.

Cette "solution" me dépanne simplement. Le but c'est de pas le faire via Excel justement.

re

ton but est de faire un calcul, pas d'utiliser tel ou tel outil (comme si tu t'obligeais à planter un clou avec un tourne-vis)

dès lors pourquoi t'imposer la méthode la plus difficile ?

Bonjour,

Je dois rendre un projet VBA et j'ai besoin d'utiliser des racine et des puissance.

Je ne veux pas perdre des points car je n'ai pas su trouver par moi même. Donc je demande de l'aide.

Je me moque de savoir si c'est plus compliqué ou non. Je ne cherche pas à aller au plus vite mais à bien faire les choses. Et surtout tel qu'on me les demandes. Bref, quel que soit la raison, pourriez vous m'aider ?

D'avance merci.

Cordialement,

Norck

ah, il s'agit d'un devoir scolaire

mébon, je suis nul en VBA, je passe la parole à plus qualifiés que moi

Bonjour,

A tester.

Cdlt.

Public Sub DEMO()
Dim x As Double
    With ActiveSheet
        x = VBA.Sqr((.Cells(4, 1) - Cells(3, 1)) ^ 2 - 1) + .Cells(4, 2)
        .Cells(5, 3).Value = x
    End With
End Sub
Rechercher des sujets similaires à "vba puissance racine carre"