Discussion :

[rasator]

Bonjour,

Je voudrais pouvoir générer avec une macro les parcelles par les quelles passe une canalisation dans une zone.

La canalisation passe d'un centre de parcelle à un autre .

Les parcelles sont des carrés égaux

Merci d'avance pour toute aide ..

[Jean-Philippe André]

bonjour,
euh tu peux nous expliquer ce que tu cherches à faire avec la macro ?
quel est le but de ces parcelles ? C'est un peu hyper flou pour ma part...

[rasator]

La canalisation passe en ligne ... Et Traverse des parcelles ...

Le but de ma macro est d'extraire à partir de chaque canalisation dans chaque zone , les parcelles sous les quels elle passe .

[cafeine]

Hello,

il faut que tu fasses une boucle imbriquée en VBA

Code :

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

1
2
3
4
5
for i=xDepart to xArrivee
   for j=yDepart to yArrivee
      ' écrit ici une formule rechercheV ...
   next j
next i

[random]

Tu commences par calculer la pente
Valeurx valeury
Depart 2 2
Arrivée 6 10

Tu calcules ensuite ta pente

(yarrivée-ydépart)/(xarrivée-xdépart)

attention en cas de division par zéro ta conduite est perpendiculaire à l'axe des x
(erreur à gérer puis cas normal 3)

pente=(10-2)/(6-2)=2

on va calculer l'ordonnée à l'origine
departy-(departx*pente)=2-(2*2)=-2

si la pente est égale à 0 on est dans le cas normal 2

sinon cas général

pour un carré on est concerné si le tuyau entre dans la parcelle et en sort

soit une zone

valeur x 3.5,4
valeur y 4,5

les résultats donnent

valeurx 3.5 4
valeury 4.25 5

valeur y 4 5
valeurx 3.33333333 4



Avec valeury=x*pente +ordonnée
Et valeurx =(valeury/pente)-ordonnée


Dans cet exemple on trouve 3 points d'intersections dont deux sont confondus le tuyau passe


Cas pente nulle
Sont concernées les zones ayant le même y que début et un x entre x début et x fin
Cas pente division par zéro
Sont concernées les zones ayant le même x que début et un y entre y début et y fin

[rasator]

Je te remercie Random ... Mais, je n'arrives pas à traduire ça en VB ...

[random]

je peux t'aider si tu t'aides un peu

commence par écrire la fonction pente et ordonnée

et montre ce que ca donne