Dessiner une forme, connaissant ses sommets

Ptibel - 5 août 2018 à 04:12 - Dernière réponse : Ptibel 1 Messages postés dimanche 5 août 2018Date d'inscription 7 août 2018 Dernière intervention
- 7 août 2018 à 23:46
Bonjour,
J'ai les coordonnées (X,Y) des sommets de la forme que je souhaite dessiner
Pour le faire bêtement, je donne

    With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, Cells(1,1), Cells(1, 2))
        .AddNodes msoSegmentLine, msoEditingAuto, Cells(1,3), Cells(1,4)
        .AddNodes msoSegmentLine, msoEditingAuto, Cells(1,5), Cells(1,6)
        .AddNodes msoSegmentLine, msoEditingAuto, Cells(1,7), Cells(1,8)
        .ConvertToShape.Select
    End With

Ceci, dans le cas où je n'ai que 4 sommets, ce qui est loin d'être toujours le cas ;-)
Intelligent, je donne

    With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, Cells(1,1), Cells(1, 2))
        For j = 3 To 7 Step 2
        .AddNodes msoSegmentLine, msoEditingAuto, Cells(1, j), Cells(1, j + 1)
        Next j
       .ConvertToShape.Select
    End With

Mauvaise nouvelle, je ne suis pas si intelligent que ça puisque ça plante!
Impossible de faire une boucle au sein d'un "With" ?
Quelqu'un a une solution?
Merci d'avance
Afficher la suite 

Votre réponse

2 réponses

Patrice33740 7250 Messages postés dimanche 13 juin 2010Date d'inscription 15 août 2018 Dernière intervention - 5 août 2018 à 22:39
Commenter la réponse de Patrice33740
Ptibel 1 Messages postés dimanche 5 août 2018Date d'inscription 7 août 2018 Dernière intervention - 7 août 2018 à 23:46
0
Merci
Merci de m'avoir ré-orienté
Slts
Commenter la réponse de Ptibel

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.