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

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 :

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+

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...

Cordialement

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

polobeg à dit:

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

Cliquez pour agrandir...

Cliquez pour agrandir...

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