Inserer une variable dans la macro

Bonjour,

Je cherche à inserer une variable dans une formule mais je dois avoir un problème d'écriture je pense:

Voir une partie de ma macro ci-dessous:

Dim Angle As Double

Dim Number_of_parts As Single

Number_of_parts = InputBox("Number of parts in a circle")

Angle = 360 / Number_of_parts

Range("AJ2").Select

ActiveCell.FormulaR1C1 = "=(0.021*0.021*PI()*45)/360"

Mais je veux mettre le 45 en variabe d'angle et j'ai essayé avec la formule:

Range("AJ2").Select

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

Merci pour votre aide !

Bonjour,

Essaie :

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

A+

Bonjour,

J'essaierai

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

Super merci beaucoup !