Dessiner une forme, connaissant ses sommets

-
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

Messages postés
7452
Date d'inscription
dimanche 13 juin 2010
Dernière intervention
18 décembre 2018
Commenter la réponse de Patrice33740
Messages postés
1
Date d'inscription
dimanche 5 août 2018
Dernière intervention
7 août 2018
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.