Création shape connector entre cellules

Version imprimable

31/07/2009, 04h10
almc.rzo

Création shape connector entre cellules

Bonjour,

Je désire créer dans une macro en VBA un Shape type Connector avec un Begin connect et un Endconnect portant non pas sur un autre shape (cela marche très bien entre 2 rectangles par exemple) mais sur 2 cellules.

J'ai essayé en créant un commentaire dans les 2 cellules et en essayant de créer le connector entre les 2 shapes comment mais sans succès.

Le but est d'avoir des liens entre les cellules qui soient correctement conservés même si l'on modifie le tableau (insertion, suppression, masquage de lignes ou de colonnes, changement de formes etc...)

Merci d'avance
31/07/2009, 07h47
ouisansdoute

Bonjour et bienvenue sur le forum,

Il me semble que les connecteurs ne peuvent pas s'attacher à une cellule mais à un objet. Une solution pourrait être de créer des objets invisibles (rectangle sans bordure ni remplissage ou tout autre objet sans remplissage ni bordure) sur les cellules que tu veux relier visuellement puis de positionner tes connecteurs.
31/07/2009, 21h34
almc.rzo

Merci pour ta réponse,

malheureusement ta suggestion n'est pas satisfaisante.

Si je crée une forme ou Shape (même invisible et translucide) elle est créée en références par rapport à la feuille et toute modification de la feuille (insertion de ligne, de colonne ou de cellule) influe sur cette Shape.
De plus je cherche à la créer dans une macro VBA lors du remplissage de la cellule concernée dont la position est variable.
Le seul type que j'arrive à lier à une cellule est un commentaire qui est bien reconnu comme Shape mais je n'arrive pas à définir le beginconnect s'un connecteur sur cette forme ni le Endconnect sur une autre.

Donc j'espère une autre solution.

Merci d'avance

début de réponse ?

On n'est jamais aussi bien servi que par soi-même.

Faute de trouver un moyen d'utiliser un connecteur
(j'espère que quelqu'un trouvera un jour),
voici la méthode pour tracer un simple trait:
Dans ce code les points de début et de fin du trait sont aux centres
des cellules de départ et d'arrivée mais suivant le besoin il est aisé de définir
d'autres positions.
On ne sait jamais cela peut servir à quelqu'un d'autre sur le forum

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub Macro1()
 
    Call DrawLine(Range("B5"), Range("E7"))
 
End Sub
'
 
Sub DrawLine(FromCell As Range, ToCell As Range)
 
    With FromCell.Parent.Shapes.AddLine(1, 1, 1, 1)  ' on crée une forme
                                                     'On définit le trait comme une diagonale de rectangle
                                                     'On détermine d'abord le point haut gauche du rectangle
        .Left = FromCell.Left + (FromCell.Width / 2) ' la gauche du début est définie par la position gauche de
                                                     ' la cellule de départ plus la moitié de sa largeur
        .Top = FromCell.Top + (FromCell.Height / 2)  ' la hauteur du début est définie par la position haute
                                                     ' de la cellule de départ plus la moitié de sa hauteur
        .Width = (ToCell.Left + (ToCell.Width / 2)) - .Left ' la largeur du rectangle est définie par
                                                            ' la position gauche de la cellule d'arrivée
                                                            ' + la moitié de la largeur de la cellule d'arrivée
                                                            ' - la position gauche du rectangle
                                                            ' (ou du point de départ du trait)
        .Height = (ToCell.Top + (ToCell.Height / 2)) - .Top ' la hauteur du rectangle est définie par
                                                            ' la position haute de la cellule d'arrivée
                                                            ' + la moitié de la hauteur de la cellule d'arrivée
                                                            ' - la position haute du rectangle
                                                            ' (ou du point de départ du trait)
    End With
 
 
 
 
End Sub