Insertion rapide flèche

Bonjour à tous,

Afin d'améliorer un document qui me sert pour mon travail, j'aurai voulu savoir s'il était possible de faire la chose suivante.

Mise en situation :

J'insère dans une feuille excel le plan d'une pièce mécanique sur lequel apparaissent ses dimensions. Pour repérer certaines de ces dimensions, je souhaite insérer une forme (bulle) à laquelle j'associe une lettre (Ici ce sera la bulle A). Et pour finir je veux lier cette bulle insérée à une cote du plan par l'intermédiaire d'une flèche (insérée elle aussi).

SI j'ai été clair jusque la, ma question est la suivante :

Est il possible de cliquer proche de la cote en question pour faire apparaître une flèche, qui soit liée à la fois à la bulle et à la cote. Cela m'éviterai de devoir insérer une nouvelle flèche, la lier à la bulle et l'étirer pour la positionner...

Je gagnerai un temps précieux sachant que j'ai parfois plus d'une centaine de cotes à repérer sur des plans...

Je vous remercie d'avance et j'espère m'être exprimé clairement

Bonjour,

voici un exemple essayer,

Sub Fleche_Rouge()
With Selection
   BeginX = .Left
   BeginY = .Top
   EndX = .Left + (.Width / 2)
   EndY = .Top
End With

Set fleche = ActiveSheet.Shapes.AddConnector(msoConnectorStraight, BeginX, BeginY, EndX, EndY)

With fleche.Line
    .EndArrowheadStyle = msoArrowheadOpen
    .BeginArrowheadStyle = msoArrowheadOval
    .Visible = msoTrue
    .Weight = 2
    .Visible = msoTrue
    .ForeColor.RGB = RGB(255, 0, 0)
    .Transparency = 0
End With
End Sub

en voici un autre, pour une flèche pointant à 315 degré

Sub Fleche_Rouge_315_degré()
With Selection
   BeginX = .Left
   BeginY = .Top
   EndX = .Left + (.Width / 2)
   EndY = .Top + .Height
End With

Set fleche = ActiveSheet.Shapes.AddConnector(msoConnectorStraight, BeginX, BeginY, EndX, EndY)

With fleche.Line
    .EndArrowheadStyle = msoArrowheadOpen
    .BeginArrowheadStyle = msoArrowheadOval
    .Visible = msoTrue
    .Weight = 2
    .Visible = msoTrue
    .ForeColor.RGB = RGB(255, 0, 0)
    .Transparency = 0
End With
End Sub

Merci pour la recherche !

J'ai testé et effectivement une flèche apparaît c'est un bon début.

Mais moi ce que j'aimerait c'est :

• 1) Insérer une bulle
• 2) Cliquer à un endroit sur mon plan
• 3) La flèche relierai automatiquement la bulle à l'endroit où j'ai cliqué.

Serait ce réalisable ?

Serait ce réalisable ?

oui, en autant que tu as l'information

BeginX, BeginY, EndX, EndY

par exemple pour déterminer la valeur de BeginX pour la bulle Shapes(1)

adresse = ActiveSheet.Shapes(1).TopLeftCell.Address
BeginX = Range(adresse).Top + ActiveSheet.Shapes(1).Height

Je m'excuse mais la je sèche un peu...

Je n'arrive pas à me servir de ce bout de code..

oui, en autant que tu as l'information

BeginX, BeginY, EndX, EndY

par exemple pour déterminer la valeur de BeginX pour la bulle Shapes(1)

CODE : TOUT SÉLECTIONNER

adresse = ActiveSheet.Shapes(1).TopLeftCell.Address

BeginX = Range(adresse).Top + ActiveSheet.Shapes(1).Height

Bonjour,

pouvez-vous joindre un fichier (excel) en exemple ?

Bonjour,

Mon fichier étant trop volumineux, je l'ai placé sur une plateforme de partage.

Le lien : https://www.cjoint.com/c/HBohCf46mJx

Je veux intégrer les bulles fléchées sur les feuilles appelées "Plan-X"

Merci !

Bonjour,

il n'y a pas de plan sur les feuilles appelées "Plan-X"

J'ai écrit X pour ne pas dire 1 2 3 4....9

Les feuilles sont cachées elles apparaissent selon le besoin dans le fonctionnement de mon document 😊

oui, j'ai bien vue ces feuilles masquées et je l'ai ai tous affichées, mais aucune feuille ne contient un plan !

J'ai donné le document vierge. Demain je vais intégrer un plan pour donner un exemple !

Voici le lien vers un document partiellement rempli. Je n'ai pas pu tout remplir pour cause de confidentialité...

Donc pour présenter la situation très simple ici :

- En page 1 j'ai cote A, B, C, D et E de renseignées. On retrouve ces cotes sur le plan qui est en deuxième page.

- En page 2 Je scanne habituellement un plan que j'ai fléché avec une tampon à encre. La qualité n'étant pas optimale, j'aimerai supprimer l'étape du tampon manuel et du scan en intégrant à mon fichier un système de fléchage rapide comme je l'ai décrit plus haut.

Si besoin de plus amples explications je suis là !

Merci encore

Bonjour,

je ne pense pas que ce soit possible, en tous il n'il n'y aurait pas de gain de temps par rapport à le faire manuellement

D'accord,

Si ce n'est pas possible dans ce cas j'aimerai savoir s'il était possible de créer une macro d'insertion d'une bulle fléchée avec dedans une zone de texte.

Premier clique une bulle fléchée apparaît avec dedans la lettre A, deuxième clique, une bulle fléchée apparaît avec dedans la lettre B... etc

Est ce réalisable ?

Bonjour,

voici un exemple,