Modéliser une fleche d'apres un angle sur un cercle

[polobeg]

Bonjour,

J'aimerai comme le titre l'indique modéliser une fleche sur un cercle d'apres un angle bien defini
j'ai eu beau regarder sur internet je ne trouve pas chaussures à mon pied.

Je vous laisse un fichier qui me semble sera plus parlant que du blabla
Si quelqu'un peut m'eclairer sur la marche à suivre.

Merci beaucoup à vous par avance.
( Novice dans le code ... mais soif d'apprendre )

 

[phlaurent55]

Re : Modéliser une fleche d'apres un angle sur un cercle

Bonjour polobeg, et bienvenue sur le forum

un exemple très simple sans code en pièce jointe

à+
Philippe

 

[polobeg]

Re : Modéliser une fleche d'apres un angle sur un cercle

Bonjour PhLaurent,

Merci de ta réponse hélas ce n'est pas ce que je recherche.

Il me faut vraiment ce foutu cercle et plusieurs flèches selon les angles demandés, avec l'angle d'indiqué.

Cordialement

 

[mécano41]

Re : Modéliser une fleche d'apres un angle sur un cercle

Bonsoir à tous,

Tu peux utiliser cette appli. mais ce n'est pas très simple...c'est un graphique (je n'ai pas d'autre solution).

Alors, si ensuite tu n'as besoin que d'une image fixe (pour un rapport par ex) tu utilises l'appareil photo d'EXCEL comme je l'ai fait pour avoir une copie sur la feuille Photo.

Cordialement

 

[job75]

Re : Modéliser une fleche d'apres un angle sur un cercle

Bonsoir polobeg, Philippe, mecano41,

Il ne m'a pas été trop difficile d'adapter la solution donnée sur ce fil :

https://www.excel-downloads.com/threads/trace-dune-fleche-selon-un-angle.171018/

Voyez le fichier joint et les macros dans le code de la feuille.

Les flèches sont repositionnées à chaque modification de cellule.

A+

 

[mapomme]

Re : Modéliser une fleche d'apres un angle sur un cercle

Bonjour à tous,

Mon p'ti essai imparfait sans doute. Modifier une des valeurs d'angle et le dessin est mis à jour.
Attention saisir des nombres et ne pas ajouter le symbole ° (le format de cellule s'en charge)

Le cercle s'appelle "cercle". S'il est nommé différemment, il faut changer son nom dans la procédure Sub Worksheet_Change dans le module de code de la feuil "Feuil1".

 

[polobeg]

Re : Modéliser une fleche d'apres un angle sur un cercle

Mecano Job et ma pomme

Merci beaucoup à vous 3.
Oui Job comme tu dis c'est à peut prés similaire j'ai essayé de travailler dessus mais je n'arrivais pas à avoir le résultat escompté.

C'est exactement ce qu'il me fallait pour le travail merci beaucoup.

Dernière petite chose est il possible que les noms ( acier, bois ) ici dans l'exemple soit variable ?
je précise si dans ma cellule je passe de acier à pvc est ce que cela peut se changer tout seul prés de la fléche ?

 

[mapomme]

Re : Modéliser une fleche d'apres un angle sur un cercle

Bonsoir polobeg,

(...) Dernière petite chose est il possible que les noms ( acier, bois ) ici dans l'exemple soit variable ? (...) je précise si dans ma cellule je passe de acier à pvc est ce que cela peut se changer tout seul prés de la fléche ?

Pour mon essai, il suffit de changer la zone de test de modification de la feuille dans le module de code de "Feuil1". Remplacer :

If Not Intersect(Range("a37:d37"), Target) Is Nothing Then

Par :

If Not Intersect(Range("a36:d37"), Target) Is Nothing Then

 

[job75]

Re : Modéliser une fleche d'apres un angle sur un cercle

Bonjour polobeg, mapomme, le forum,

Dernière petite chose est il possible que les noms ( acier, bois ) ici dans l'exemple soit variable ?

Il faut que le nom de chaque flèche, Label, ou nom défini soit immuable.

Pour le repérage il faut donc stocker le nom de chaque flèche quelque part.

Le plus simple me paraît de le stocher dans un commentaire : M_1 et M_2 en F36 et G36.

Voir ce fichier (2).

Bonne journée.

 

[job75]

Re : Modéliser une fleche d'apres un angle sur un cercle

Re,

Une dernière chose : en F38 et G38 mettre le format personnalisé Standard"°"

Dans la macro j'ai complété avec Adegre.Text

Il suffira d'entrer uniquement des nombres...

Fichier (3).

A+

 

[job75]

Re : Modéliser une fleche d'apres un angle sur un cercle

Re,

Autre solution pour le stockage : nommer M_1 et M_2 les cellules F36 et G36.

Fichier (4).

A+

 

[polobeg]

Re : Modéliser une fleche d'apres un angle sur un cercle

Re,

Je reviens à la charge, j'ai travaillé sur le fichier de Job75, compris le fonctionnement de la chose.

Or quand je veux le refaire sur un autre fichier cela ne fonctionne pas est ce que quelqu'un aurait une idée du pourquoi ? ( Je dois le faire sur 20 feuilles du même type )

Ensuite j'ai essayé de faire en sorte que lorsque je rentre mes valeurs dans une feuille mon cercle se remplisse automatiquement hélas cela ne fonctionne pas --'

Et pour finir lorsque mon angle est à 0° je le voudrais invisible j'ai vu la fonction .visible dans les propriétés comme vous m'avez conseillé Job hélas je ne vois pas comment l'intégrer à ma macro.

Cordialement

 

[job75]

Re : Modéliser une fleche d'apres un angle sur un cercle

Bonjour polobeg,

C'est très simple, pour les flèches comme pour les Labels :

'---------
  .Visible = A <> 0
End With

Pour le reste vous avez très bien su construire les 3ème et 4ème flèches ainsi que les Labels, alors ???

Faites pareil pour les autres feuilles.

Comme les noms sont définis dans le classeur il faut poursuivre la séquence des numéros.

A+

 

[polobeg]

Re : Modéliser une fleche d'apres un angle sur un cercle

Merci,

Oui c'est vrai j'ai compris le principe mais lorsque je tente de le faire sur un autre fichier.
Cela ne fonctionne plus soit il me ligne la ligne :

nomfleche = nom.Name.Name 'stocké dans le nom de la cellule

ou bien ma fleche se met à 0° mais ne veux plus tourner ... pourtant je renomme tout bien (il me semble)

 

[polobeg]

Re : Modéliser une fleche d'apres un angle sur un cercle

Voici mon souci :/

fait deux jour que je tente plein de chose mais rien 'ny fait ....


Cordialement