Je ne sais pas si je suis sur le bon site. Je prends une chance.

Il y a plusieurs années (30 ans) j'avais appris à programmer en Basic. Malheureusement, j'ai tout oublié. `>A ce moment, j'avais fait un petit programme qui indiquait à mon fils luthier à quel endroit précis poser les fret sur un manche d'intrument à corde. Voici ce programme :

100 Input "Longueur de manche"; L

110 Input "Combien de frets"; F

120 For I = 1 to F

130 P=L*(2^ (1/12))^ -I

140 imprimer P, : pause .5

150 L=P

160 Next

170 REM La formule est : Fn=L(12√2)^-n

Si quelqu'un comprend quoi que ce soit dans ce charabia, saurait-il (elle) convertir ce langage de sorte que je pourrais l'ituliser en excel?

Salut

à cette heure la je promets rien mais ça pourrait donner un truc du genre :

Sub test()

L = InputBox("Longueur de manche")
F% = InputBox("Nombre de frets")

Set usf = ThisWorkbook.VBProject.VBComponents.Add(3)

With usf
.Properties("Caption") = "Position des frets :"
.Properties("scrollbars") = 2
.Properties("ScrollHeight") = F * 16
For i% = 1 To F
Set lbl = usf.Designer.Controls.Add("forms.label.1")
With lbl
.Caption = " Position du fret n° " & i & "= " & L - (L / (2 ^ (i / 12)))
.Top = 15 * i: .Width = 165
End With
Next
End With

VBA.UserForms.Add(usf.Name).Show

ThisWorkbook.VBProject.VBComponents.Remove usf

End Sub

Bérilion,

Merci de ta contribution. Après que j'ai mis ce post, il m'est venu à l'idée d'en mettre un autre ailleurs.

Va voir ici : http://forum.pcastuces.com/inserer_une_formule_dans_excel-f23s19703.htm?page=1&#2873221

j'ai repris sur l'autre topic