Discussion :

[Nemerle]

Salut, j'aimerais mettre en place une petite "zone" graphique dans un sheet on l'action d'un bouton tracerait des droites & des cercles.

Quel est le moyen le plus rapide? Je n'ai pas besoin que ce soit un chart...

[ouskel'n'or]

Mets un bouton de la barre d'outils contrôles et, en mode création, deux clics sur le bouton te permettent de mettre le code que tu veux. Ex :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
    ActiveSheet.Shapes.AddLine(260.25, 337.5, 432#, 407.25).Select
    Selection.ShapeRange.Flip msoFlipVertical
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, 551.25, 219#, 176.25, 106.5). _
        Select
    ActiveSheet.Shapes.AddShape(msoShapeOval, 554.25, 410.25, 180#, 75#).Select
    ActiveSheet.Shapes.AddShape(msoShapeExplosion1, 267#, 207#, 162#, 113.25) _
        .Select
End Sub

Explication :

ActiveSheet.Shapes.AddShape(Type, Left, Top, Width, Height)

où... en rouge le type de graphique, en vert les position X et Y et, les autres les dimensions Longueur et Hauteur

Mais je me doute de la prochaine question et cépapareil
A+

[Nemerle]

Mais je me doute de la prochaine question et cépapareil
A+

Merci pour l'info; j'ai ~ 5000 petites lignes à afficher, ça risque as d'être un peu lent?

[ouskel'n'or]

Tiens, comme je me doute que tu auras d'autres difficultés, regarde déjà comment c'est fabriqué, si ça peut t'inspirer des choses. Pièce jointe 28286
On peut facilement simplifier le code (ou le compliquer à loisir) c'est juste pour le principe.
Bon courage

NB - Saisir les dimensions avant de demander la figure, sans quoi ça ne dessine rien

[Nemerle]

Merci, je vais regarder