VBA calcul distance cellules

[Edd93]

Bonjour,

J'aimerai avoir une macro qui permet de calculer la distance entre les cellules (ici les palettes colorées) qu'on sélectionne à la souris , et une autre cellule unique qu'on indique dans un textbox ou je ne sais quoi, et j'aimerai que toutes les distances (pour chaque palette) soit indiquées sur une feuille ou un objet.

Est-il possible ? jusqu'à maintenant pour calculer la distance entre une cellule et sa destination théorique j'utilise :

Case "A1106"
debx = R.Left + R.Width / 2
deby = R.Top + R.Height / 2
finx = porte112.Left + porte112.Width / 2
finy = porte112.Top + porte112.Height / 2
lg = Sqr(((finx - debx) / (0.8 * R.Width)) * ((finx - debx) / (0.8 * R.Width)) + ((finy - deby) / R.Height) * ((finy - deby) / R.Height))
lgtot = lgtot + lg
Call affichage(debx, deby, finx, finy)

et pour afficher la flèche qui relie les deux cellules
Sub affichage(debx, deby, finx, finy)
ActiveSheet.Shapes.AddConnector(msoConnectorStraight, debx, deby, finx, finy).Select
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadOpen

End Sub

Mon fichier est en PJ

 

[pierrejean]

Re

Vois si cela te convient