VBA calcul distance entre cellules
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