WORKSHEET_CHANGE et INTERSECT avec SHAPES

Bonjour à tous,

Contexte:

J'ai une flèche "DIR_H_CT_VAL" que je sélectionne avec le code suivant:

Activesheet.Shapes.Range(Array("DIR_H_CT_VAL")).Select

Problème:

Je souhaiterai faire une mise à jour de l'onglet à chaque fois que je modifie la flèche.

Question:

Comment combiner une macro du type:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("...")) Is Nothing Then 
       Me.calculate
    End If
End sub

avec un objet de type Shape ?

J'ai testé plusieurs solutions, hélas sans succès.

D'avance merci pour vos contributions.

Cordialement

Bonjour

pdm a écrit :

je modifie la flèche

Donc tu sélectionnes la flèche, affectes la une macro

Bonjour Banzai64,

Merci pour votre réponse, cependant elle semble ne pas me convenir complètement.

En effet si j'affecte ma macro à un évènement du type "Clik", la mise à jour se fait avant que j'ai eut le temps de modifier la flèche et pas après.

Vous auriez une idée plus précise de comment je pourrai faire ?

Cordialement

Bonjour

Pas d'autre idée

Désolé