Pythagore cellules VBA

[Edd93]

Bonjour,

Je vous mets en PJ mon fichier, je cherche à traduire sous VBA comme quoi une cellule doit être = à X mètre, par exemple, 1 mètre

et je cherche à calculer tous les hypothénus en même temps (flèches puisque ce sont des triangles rectangles) de la zone sélectionnée, mais pour ça j'ai besoins d'un code qui compte les cellules en opposé et en adjacent puis qui traduit ces cellules en mètre puis ensuite faire la somme horizontale et verticale en mettant à la suite au carré les deux pour en faire la somme qui correspond à l'hypothénus. Et au final je dois avoir quelque chose qui fait la somme de tous les hypothénus de la zone sélectionnée pour calculer le flux total en mètre parcouru


J'espère que vous comprendrez mon problème avec le fichier que je vous mets à disposition.

 

[Hieu]

Slt,
En regardant le titre de ton post, ça ne me parait pas compliqué ; en regardant ton fichier, bah...

Peux-tu donner un exemple :
- les cellules que tu selectionnes
- le resultat attendu

++

 

[Edd93]

Rebonjour, je vous ai mis en PJ une photo vous comprendrez largement mieux

 

[pierrejean]

Re

A tester:

remplacer:
debx = cel.Left + cel.Width / 2
deby = cel.Top
finx = porteext1.Left + porteext1.Width / 2
finy = porteext1.Top + porteext1.Height

ActiveSheet.Shapes.AddConnector(msoConnectorStraight, debx, deby, finx, finy).Select
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadOpen

par
debx = cel.Left + cel.Width / 2
deby = cel.Top + cel.Height / 2
finx = porteext1.Left + porteext1.Width / 2
finy = porteext1.Top + porteext1.Height / 2
lg = Sqr(((finx - debx) / cel.Width) * ((finx - debx) / cel.Width) + ((finy - deby) / cel.Height) * ((finy - deby) / cel.Height))
lgtot = lgtot + lg

ActiveSheet.Shapes.AddConnector(msoConnectorStraight, debx, deby, finx, finy).Select
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadOpen

et en fin de sub

msgbox(lgtot)

NBour simplifier les flèches partent et arrivent aux centres des cellules

 

[Edd93]

Rebonjour Monsieur pierrejean, je vous remercie beaucoup vous êtes très doué, ça marche, comment avez-vous fait pour dire que une cellule correspond à 1 mètre ? quelle est dans ce que vous avez écrit l'unité de la cellule ? la largeur et la hauteur vaut-elle 1 ? je vous remercie !

 

[pierrejean]

Re
1) pour le futur S T P oublie le Monsieur ,cela m'est vraiment 'inconfortable'
2) L'unité n'est pas spécifiée : le nombre obtenu est le nombre calculé selon ta formule Racine((nb cellules horizontales )2+(nb cellules verticales)2))
3) Pour être rigoureux il faudrait que tes cellules soient carrées . Alors le résultat exact sera en mètres pour peu que tu ais respecté l’échelle (cotés de cellule =1 mètre)

 

[pierrejean]

Re
La nuit portant conseil : Oubliez le point 3 (les échelles respectives horizontale et verticale peuvent être différentes)

 

[Edd93]

Bonjour pierrejean ! Donc on a la possibilité de changer l'échelle de la cellule sachant que initialement c'est 1x1 ? sachant que une palette fait 1.20m*1 dans mon cas, si il est possible de changer l'échelle ça serait fantastique

 

[Edd93]

au pire des cas j'intègrerai directement l'échelle dans la formule je pense que c'est faiseable ! peace

 

[pierrejean]

Re

Effectivement la solution est dans la modification de la formule :multiplier les Width par 1,2 si la palette est horizontale ,multiplier les Height dans le cas contraire
Edit
Euh j'ai peut-etre un peu vite,je regarde !!!!
Teste ceci:
lg = Sqr(((finx - debx) / cel.Width) * 1.2 * ((finx - debx) / cel.Width) * 1.2 + ((finy - deby) / cel.Height) * ((finy - deby) / cel.Height))

 

[Edd93]

merci beaucou pierre jean.

J'ai un petit problème, y a quelques flèches qui doivent passer par un point avant d'aller à fin

en gros deb - intermediaire - fin au lieu de deb - fin directement. Que faire dansce cas là sachant que on a ici :

debx = cel.Left + cel.Width / 2
deby = cel.Top + cel.Height / 2
finx = porteext2.Left + porteext2.Width / 2
finy = porteext2.Top + porteext2.Height / 2

debx = porteext2.Left + porteext2.Width / 2
deby = porteext2.Top + porteext2.Height / 2
finx = porte72.Left + porte72.Width / 2
finy = porte72.Top + porte72.Height / 2


lg = Sqr(((finx - debx) / (0.8 * cel.Width)) * ((finx - debx) / (0.8 * cel.Width)) + ((finy - deby) / cel.Height) * ((finy - deby) / cel.Height))
lgtot = lgtot + lg


Je te remercie !

 

[Edd93]

mince je me suis trmpé, je voulais essayé ce que j'ai mis en code dans mon dernier message ici mais ça marche pas

 

[pierrejean]

Rapidement:
s'il y a un point intermédiaire il faut tout simplement calculer
1 ) début intermédiaire
2) intermédiaire fin
3) faire la somme

 

[Edd93]

J'ai créé deux conditions If et ça marche aussi apparemment