Formule vba avec variable et texte

[Sly le globe trotter]

Bonjour,

Je ne sais pas vraiment comment formuler simplement mon problème, ce qui ne facilite pas les recherches sur le net.

Dans un bout de code en vba, je cherche à appliquer une formule au contenu d'une cellule de mon classeur Excel. Dans cette formule, je veux à la fois faire appel à des valeurs calculées et à une cellule de mon classeur.

J'ai tenté ceci :

Sub test()
Dim rayon, angle As Double
rayon = 10
angle = 3.1

Cells(1, 1) = "=" & rayon * angle & "+Feuil1!A4"

End Sub

qui fonctionne mais si je modifie les valeurs des variables rayon ou angle en mettant plus d'une décimale, ça ne fonctionne plus...
Qui plus est, ce que je veux réellement, c'est utiliser la fonction cosinus qui me génère également une erreur.

Je sèche complètement et suis preneur de toute idée !
Merci pour votre aide.

 

[job75]

Re : Formule vba avec variable et texte

Bonjour Sly,

Sub test()
Dim rayon As Double, angle As Double
rayon = 10.15
angle = 3.12

Cells(1, 1).[COLOR="Red"]FormulaLocal[/COLOR] = "=" & rayon * Cos(angle) & "+Feuil1!A4"

End Sub

J'ai mis un cosinus...

A+

 

[vbacrumble]

Re : Formule vba avec variable et texte

Bonjour

Sub test2()
Dim rayon As Single, angle As Single, sc As Single
rayon = 10#
angle = 3.58
sc = FormatNumber(rayon * angle, -1)
Cells(1, 1) = 2
Cells(1, 2).Formula = "=" & Replace(CStr(sc), ",", ".") & "+A1"
End Sub

EDITION: rehoups pour la recollision , job75 😉

 

[Sly le globe trotter]

Re : Formule vba avec variable et texte

job75, ta réponse fonctionne nickel !
vbacrumble, je n'ai pas testé ta solution, celle de job75 étant plus simple.

Une belle épine que vous m'enlevez là !

Merci à vous deux !