[Résolu]Evènement BeforeDoubleClick sur sur une Shape

[dcnfurter]

Bonjour,

Je souhaite faire une macro, qui lorsque l'on double clique surune forme donne les propriétés de cette forme.

J'ai donc collé des instructions dans l'évènement BeforeDoubleClick de ma feuille.

Quand je double clique sur une cellule, l'évènement se déclenche bien. Mais lorsque je créé une forme et que je double clique dessus, l'évènement ne se déclenche pas.

Y a t-il une astuce pour le déclencher, sachant que je souhaite pouvoir crée toutes les formes que je veux sans avoir à associer une macro à chaque forme créée.

Par avance, merci pour vos réponses.

 

[Guest]

Re : Evènement BeforeDoubleClick sur sur une Shape

Bonjour et bienvenue sur le forum,

Les objets de type Shape n'ont pas d'évènement double_click, ni aucun autre d'ailleurs, au contraire des cellules et certains objets ActiveX. Seul l'appel d'une macro par click est possible.

Mais tu peux leur attribuer un nom de macro commun:

Option Explicit
Sub InitShapes()
    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
        shp.OnAction = "machin"
    Next
End Sub
Sub machin()
    If TypeName(Application.Caller) = "String" Then
        ActiveSheet.Range("A" & Rows.Count).End(xlUp)(2) = Application.Caller
    End If
End Sub

A+

 

[dcnfurter]

Re : Evènement BeforeDoubleClick sur sur une Shape

Merci Hasco pour cette super astuce
Bonne journée