Tracé d'une flèche selon un angle

[pascal82]

Bonjour à tous,

J'aimerai visualiser par tracé d' une flèche la direction du vent en automatique mais je ne sais pas comment procéder ni par ou commencer.
PS: Je n'ai pas besoin d'une très grande précision, juste un aspect visuel

Merci pour votre aide

 

[job75]

Re : Tracé d'une flèche selon un angle

Bonjour pascal82,

Pour manipuler un objet, il n'y a que les propriétés Top Left Height Width.

Pas trop de problème avec les coordonnées cartésiennes.

Mais si l'on fait des rotations, il faut convertir des coordonnées polaires en coordonnées cartésiennes.

Et retourner éventuellement l'objet par la propriété .Flip msoFlipHorizontal.

C'est pas mal la galère mais c'est tout à fait faisable, je verrai ça si j'ai le temps.

A+

 

[hoerwind]

Re : Tracé d'une flèche selon un angle

Bonjour, salut job,

Le menu Format - Cellule - Alignement te permet la rotation de ta flèche, évidemment ce n'est pas automatique.

 

[pierrejean]

Re : Tracé d'une flèche selon un angle

Bonjour pascal82

Salut job75 🙂 🙂
Salut hoerwind 🙂 🙂

J'ai un debut prometteur mais ...
Help !!!
Je ne suis pas fichu de transposer le cercle trigo avec decalage 90° et tournant à l'envers

 

[pierrejean]

Re : Tracé d'une flèche selon un angle

Re

Eureka !

Il suffisait de l'ecrire en gaulois pour trouver la formule
modifier la cellule B1

 

[pascal82]

Re : Tracé d'une flèche selon un angle

Bonjour à tous,

Je m'épuise depuis un moment pour comprendre et tester en vain la solution de JOB75.
Pierrejean a un début prometteur mais je n'ai pas trouvé de fichier.
Je relance donc ma demande, si quelqu'un avait une idée !!!

Merci

 

[pierrejean]

Re : Tracé d'une flèche selon un angle

Re

Et pourtant la fleche tourne !!!! (tiens ça me rappelle quelque chose)
D'ailleurs mon excellent ami tototiti semble avoir trouvé (et apprecié) le fichier

 

[pascal82]

Re : Tracé d'une flèche selon un angle

Oups,

Merci pierrejean, il semble que nos posts se sont croisés. Ta solution est parfaite comme d'habitude.
Encore un grand merci.

 

[pascal82]

Re : Tracé d'une flèche selon un angle

Re bonjour pierrejean,

Je me suis emballé en regardant la flèche tourner, mais sans vouloir abuser serait-il possible d'inverser le sens de la flèche.
la macro est complexe et je doute pouvoir y arriver sans aide

Merci

 

[pierrejean]

Re : Tracé d'une flèche selon un angle

Re

La pointe de la fleche toujours au centre du cercle ?
Peux-tu en mettre une autre la ou tu souhaites qu'elle soit pour 300° ?

 

[pascal82]

Re : Tracé d'une flèche selon un angle

Pierrejean,

Il me faudrait la pointe de la flèche toujours au centre.

Merci

 

[pierrejean]

Re : Tracé d'une flèche selon un angle

Re

Voila

 

[pascal82]

Re : Tracé d'une flèche selon un angle

Bonjour pierrejean,

Un grand merci pour ta réponse, j'ai remarqué que pour inverser le sens de la flèche tu avais modifié :

Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle

par

Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadTriangle

Je n'y serais jamais arrivé !!!.

Encore un grand merci pour la qualité de ton travail

 

[job75]

Re : Tracé d'une flèche selon un angle

Bonjour pascal82, pierrejean,

Voici une solution avec les retournements évoqués au post #2.

Avec la flèche de votre fichier (connecteur), les retournements ne se faisaient pas.

J'ai recréé la flèche avec la barre d'outil Dessin (Trait).

L'orientation de la flèche est mémorisée dans le nom défini Quart.

A+

 

[job75]

Re : Tracé d'une flèche selon un angle

Re,

Il y avait une erreur dans le calcul de Q, j'ai édité le fichier.

A+