[VBA-E] Tracé de flèche entre cellules

Version imprimable

20/04/2006, 15h10
truman

[VBA-E] Tracé de flèche entre cellules

Bonjour !

Je développe actuellement un outil qui génère des diagrammes Excel. J'ai une cellule A et une cellule B. Comment tracer une flèche entre ces deux cellules ? La seule chose que j'ai trouvé à ce sujet c'est la méthode Addline mais avec cette dernière, il faut connaître les coordonnées x et y des points de départ et d'arrivée de la flèche par rapport au coin supérieur gauche de la feuille, assez peu pratique. Existe-t-il une autre méthode de tracé de flèche (l'idéal étant une méthode qui prenne directement des coordonnées de cellules :p) ? Ou sinon, comment puis-je obtenir les coordonnées du centre de chacune de mes cellules ? :?

Merci d'avance pour votre aide.
20/04/2006, 15h13
Vesta

Centre de cellule = cell.left +cell.width ; cell.top + cell.height/2

en ce qui concerne la fleche fais un enregistrement de macro et crée une fleche, ensuite va voir dans le code...

Si je me rapelle bien c'est avec addline et un parametre pour dire que c une fleche...
20/04/2006, 15h24
truman

Salut.

Ce que tu me donnes là c'est le centre de la cellule par rapport à elle-même si je ne me trompe pas. Ca ne me donne pas les coordonnées par rapport à la feuille.

Voici ce que l'aide raconte sur Addline :

Citation:

Cette méthode crée une ligne. Elle renvoie un objet Shape qui représente la nouvelle ligne.
Syntaxe
expression.AddLine(BeginX, BeginY, EndX, EndY)
expression Obligatoire. Expression qui renvoie un objet Shapes.
BeginX, BeginY Argument de type Single obligatoire. Position (en points) du début de la ligne par rapport au coin supérieur gauche du document.
EndX, EndY Argument de type Single obligatoire. Position (en points) de la fin de la ligne par rapport au coin supérieur gauche du document.
20/04/2006, 15h32
Vesta

Non, Cell.top te donne la position du dessus de la cellule et j'aoute la moitié pour etre au centre

AddLine(cell(1,1).left +cell(1,1).width, cell(1,1).top + cell(1,1).height/2, cell(1,2).left +cell(1,2).width, cell(1,2).top + cell(1,2).height/2)

Essaie ca et tu verra :p
20/04/2006, 16h38
truman

Ca marche. Merci beaucoup ! ;)
20/04/2006, 16h52
Vesta

Héhé de rien

J'ai une autre petite question.

A priori, ce code devrait dessiner une ellipse au beau milieu de ma cellule :
Code:

1 2 3 4 5 6 7 8 9 Cells(ligne, pos_dep).Select ActiveSheet.Shapes.AddShape(msoShapeOval, ActiveCell.Left + _ (ActiveCell.Width / 2), ActiveCell.Top + _ (ActiveCell.Height / 2), 9, 9).Select Selection.ShapeRange.Fill.Visible = msoTrue Selection.ShapeRange.Fill.Solid Selection.ShapeRange.Fill.ForeColor.SchemeColor = 56 Selection.ShapeRange.Fill.Transparency = 0# Selection.ShapeRange.Line.Weight = 0.75
Pourtant force est de constater que sur le diagramme ce n'est absolument pas le cas (elle est bien située sur la cellule mais sûrement pas au milieu). :roll:

ca dépent...

Comment l"élipse se dessine... A partir du coté gauche et de son sommet?
Il faut alors retrancher la hauteur souhaitée /2 ainsi que largeur

Code:

1
2
3
4
5
6
7
8
9
10
11
 
vHeight = 9
vWidth = 9
Shapes.AddShape(msoShapeOval, ActiveCell.Left + _
        (ActiveCell.Width / 2) - (vWidth / 2), ActiveCell.Top + _
        (ActiveCell.Height / 2) - (vHeight / 2), vWidth, vHeight).Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 56
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75

Allé apres tu cherche hein :p

21/04/2006, 09h48
truman

Merci je vais essayé ça.

Moi et les maths... :mouarf: