XL 2013 crée une shape polygone je pige pas le truc

[patricktoulon]

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

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

 

[patricktoulon]

oupss autant pour moi "As Single " à la place de "As Long"

 

[sylvanu]

Bonjour Patrick,

j'ai regardé dans l'aide (l'exemple )

J'ai fait pareil. Ca marche mieux avec :

Dim tabl(1 To 13, 1 To 2) As Single

Sorry, un peu à labour !!! Maudit rafraichissement.

 

[patricktoulon]

re
Bonjour @sylvanu
c'est pas grave merci quand même