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 )

 

[job75]

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

Bonjour polobeg,

Vous êtes têtu mais bon :

1) dans la macro Rotation remplacez (3 fois) ActiveSheet par Me

2) dans le code de Plage 1 placez cette macro :

Private Sub Worksheet_Change(ByVal Target As Range)
Feuil1.MAJ 'CodeName de l'autre feuille
End Sub

Mais si vous savez tester vous verrez que la mise à jour des Shapes n'est pas parfaite quand elle se fait à partir d'une autre feuille.

Il y a un très léger décalage.

A+

 

[polobeg]

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

Bonjour,

J'ai bien réussi à modifier le code pour un onglet ( soit une page ) mais je n'arrive pas à l'effectuer sur plusieurs onglets
de ma feuil16 à 35 je ne sais pas comment il faut l'écrire dans ce code :

Private Sub Worksheet_Change(ByVal Target As Range)
Feuil1.MAJ 'CodeName de l'autre feuille
End Sub

De plus j'ai besoin de créer un ligne supplémentaire dans mon tableau.
J'ai bien compris que : il fallait passer c(3) à c(4)

Private Sub Worksheet_Activate()
Dim c As Range
For Each c In [D41:H41] 'plage à adapter
If c <> "" Then Rotation c, c(4) 'c <> "" si cellules fusionnées
Next
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In [J41:K41] 'plage à adapter
If c <> "" Then Rotation c, c(4) 'c <> "" si cellules fusionnées
Next
End Sub

Mais le souci est que maintenant mon nom de flèche ne fonctionne plus ....

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

Cordialement

 

[polobeg]

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

Bonjour,

J'ai bien réussi à modifier le code pour un onglet ( soit une page ) mais je n'arrive pas à l'effectuer sur plusieurs onglets
de ma feuil16 à 35 je ne sais pas comment il faut l'écrire dans ce code :

Private Sub Worksheet_Change(ByVal Target As Range)
Feuil1.MAJ
Feuil2.MAJ 'CodeName de l'autre feuille
End Sub

Pour cette partie j'ai trouvé chaussure à mon pied il suffit de mettre les feuilles les unes en dessous des autres.
Pour que tout fonctionne bien.


Cordialement