patricktoulon
XLDnaute Barbatruc
bonjour a tous
je voudrais créer une shape polygone
j'ai regardé dans l'aide (l'exemple )
et ca se fait donc avec un tableau de coordonnées x/y sur 2 dimensions
j'essaie de faire comme l'Aide en partant d'un axe de cercle et j'ajoute à la fin le meme point que le premier
mais pourtant l'erreur me dit que les données du tableau ne sont pas valide
je voudrais créer une shape polygone
j'ai regardé dans l'aide (l'exemple )
et ca se fait donc avec un tableau de coordonnées x/y sur 2 dimensions
j'essaie de faire comme l'Aide en partant d'un axe de cercle et j'ajoute à la fin le meme point que le premier
mais pourtant l'erreur me dit que les données du tableau ne sont pas valide
VB:
Sub test()
Dim tabl(1 To 13, 1 To 2) As Long,XX#, YY#, x0#, y0#, i&,Pi#
'l'axe du cercle
Set Rng = [g5:j15]
rayon = (Application.Min(Rng.Width, Rng.Height) / 2)
X0 = Rng.Left + rayon
Y0 = Rng.Top + rayon
Pi = 3.1415 '4* Atn(1)
For i = 1 To 12
xx = X0 + (rayon) * Cos((2 * Pi / 12) * (i))
yy = Y0 + (rayon) * Sin((2 * Pi / 12) * (i))
tabl(i, 1) = Int(xx): tabl(i, 2) = Int(yy)
Debug.Print "----"
Debug.Print tabl(i, 1) & "|| " & tabl(i, 2)
Next
tabl(13, 1) = tabl(1, 1): tabl(13, 2) = tabl(1, 2)
ActiveSheet.Shapes.AddPolyline (tabl)
End Sub