Discussion :

[Adrien31]

Bonjour,

Je créé à l'aide d'une macro un schéma contenant des shapes, et j'aimerais bien les relier par des traits.

Cependant je rencontre plusieurs problème, tout d'abord les shapes ont le même nom (car il s'agit d'une shape de base dans la légende que je copie/colle), ensuite les coordonnées des shapes dépendes du cas que je traite et je n'arrive pas à les récupérer quand je les copie/colle, enfin je ne sais pas comment dire au trait que je copie/colle aussi, une fois qu'il est copié, qu'il se déplace jusqu'au coordonnée du bas et faisant une ligne droite du coup.

Merci de votre aide, pour ce qui est du fichier excel concerné il faut que je regarde si je peux vous le mettre ici.

[ARTURO83]

Bonjour,

Déjà pour renommer les "Shapes", Les sélectionner une par une, dans la zone de changement de nom, a droite de la barre de formule, modifier le nom de la forme et validez par la touche ENTREE.

Pour les traits de liaison, utilisez l'enregistreur de macros pour déplacer vos traits et les ajuster comme bon vous semble, puis récupérez la macro obtenue et adaptez là selon vos besoins.

Cdlt

[Invité]

Bonjour,

Une réponse pour relier deux shapes avec un objet connectable dans cette discussion : Tracer-automatiquement-trait-entre-shapes
Dans votre fichier, sauf erreur de ma part, vos modèles de câble ne sont pas connectables.

[boisgontierjacques]

Bonjour,

Exemple

Code :

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

1
2
3
4
5
6
7
8
 
Sub connectionShapes()
  Set f = Sheets("feuil1")
  nomCnn = "Cnn"
  f.Shapes.AddConnector(msoConnectorElbow, 10, 10, 10, 10).Name = nomCnn
  f.Shapes(nomCnn).ConnectorFormat.BeginConnect f.Shapes("Droc"), 3
  f.Shapes(nomCnn).ConnectorFormat.EndConnect f.Shapes("Bouchez"), 1
End Sub

Boisgontier

[Adrien31]

Merci de prendre le temps de m'aider ARTURO83, sauf que le problème c'est que je veux tout automatiser donc pas passer par le renommage des shapes et ensuite je ne peux pas utiliser l'enregistreur pour mes câbles car chaque cas est différent.

[Adrien31]

Merci Eric KERGRESSE pour ta réponse, c'est bien ce qu'il me semble aussi après mes heures de recherche, j'étais déjà tombé sur cette discussion mais en effet ils se servent des lignes des cases pour tracer les lignes et moi j'utilise des traits ce qui me semble aussi impossible à faire.

[Adrien31]

Merci boisgontierjacques, je vais tester la solution proposée.

Je viens de regarder avec ta solution qui marche parfaitement pour ce que je veux faire sauf qu'il me manque un truc, c'est au niveau des noms des shapes, j'ai vu que tu les as renommées sauf que je n'arrive pas à le faire à l'aide d'une macro, quelqu'un sait-il le faire?

Je viens de trouver comment faire je fais multiples test qui risquent de me prendre du temps.

Merci à tous ce code fonctionne très bien!!