Discussion :

[almc.rzo]

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

[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.

[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

[almc.rzo]

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 :

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

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