XL 2021 VBA - Comment détecter la sélection d'une Shape

[Dudu2]

Bonjour,

Quel évènement ou technique utiliser pour détecter qu'une Shape a été sélectionnée.

1. Worksheet_SelectionChange() ne fonctionne pas (fait toujours référence à une Target Range dans ses paramètres)
2. Worksheet_BeforeDoubleClick() ne fonctionne pas (fait toujours référence à une Target Range dans ses paramètres) - Impossible de tester TypeOf Selection !
3. Worksheet_BeforeRightClick() ne fonctionne pas (fait toujours référence à une Target Range dans ses paramètres) - Impossible de tester TypeOf Selection !

 

[Xl60PassionFr]

Bonsoir Dudu2
Que souhaitez vous faire exactement, à défaut de fichier, avez-vous une capture d'écran ?
a+

 

[Dranreb]

Bonsoir.
Les possibilités des Shape sont limitées. La seule exécution que je connaisse c'est celle d'une macro affectée à sa propriété OnAction.
Une même macro peut être affectée à plusieurs Shape et Application.Caller permet de connaitre son nom et donc le Shape concerné. Les Image en OLEObject sont un peu mieux mais moins sophistiquées (.png non supportés)

 

[Dudu2]

Voilà un fichier.
@Dranreb, en effet, ça m'était sorti de l'esprit le OnAction. Merci du rappel.

 

[crocrocro]

Bonjour à tous
Avec le code suivant

Sub SelectionDeQuoi()
Dim objSelection As Object
Set objSelection = Selection
If Not TypeOf objSelection Is Range Then
If objSelection.ShapeRange.Type = msoAutoShape Then
MsgBox "Shape : " & TypeName(objSelection)
Else
MsgBox "Pas Shape : " & TypeName(objSelection)
End If
Else
MsgBox TypeName(objSelection)
End If
End Sub

TypeName a pour valeur Si la sélection est :
une plage : Range
une ou plusieurs formes de même type (par exemple un rectangle) : Rectangle
des formes de type différents) : DrawingObjects
une ou plusieurs images : Picture
...
Je n'ai pas trouvé la valeur de TypeOf Selection pour une Shape, seulement Range
ShapeRange.Type a pour valeur
pour les formes : msoAutoShape (1)
pour les images : msoShapeTypeMixed (2)
...
Et bien sûr Selection.Count si on veut tester si un ou plusieurs objets sont sélectionnés.

 

[Dranreb]

Bonjour.
La valeur de TypeOf est un type genre Excel.Shape. La bibliothèque définissant ce type peut en effet être précisée pour en distinguer de complètement différents mais de mêmes noms dans MSForms et dans Excel.

 

[Dudu2]

Bonjour,
Le problème, même si on peut déterminer que l'objet sélectionné est bien une Shape avec un Selection.ShapeRange, c'est qu'il n'y a aucun évènement SelectionChange() déclenché lorsqu'on sélectionne une Shape. La seule méthode est le OnAction (rappelé par @Dranreb) qui évidemment implique un clic sur la Shape.

 

[Dranreb]

L'objet ayant déclenché l'exécution n'est pas forcément sélectionné.
Pour le récupérer faire Set Obj = ActiveSheet.Shapes(Application.Caller)

 

[crocrocro]

Quel évènement ou technique utiliser pour détecter qu'une Shape a été sélectionnée.

J'avais mal interprété la question posée, dans mon esprit c'était "qu'une Shape a été sélectionnée et non autre chose"

 

[Dudu2]

Un exemple....

Sub a()
    Dim ShapeRange As ShapeRange
    Dim Shape As Shape
    Dim i As Integer
    
    On Error Resume Next
    Set ShapeRange = Selection.ShapeRange
    On Error GoTo 0
    
    If ShapeRange Is Nothing Then
        MsgBox "Aucune Shape sélectionnée"
        Exit Sub
    End If
    
    For Each Shape In ShapeRange
        MsgBox Shape.Name
    Next Shape
    
    'Ou encore
    For i = 1 To ShapeRange.Count
        MsgBox ShapeRange(i).Name
    Next i
End Sub

 

[Dudu2]

L'objet ayant déclenché l'exécution n'est pas forcément sélectionné.
Pour le récupérer faire Set Obj = ActiveSheet.Shapes(Application.Caller)

En effet, je viens de le vérifier. Merci du tuyau.
Le clic déclenchant un OnAction de la Shape ne sélectionne pas la Shape.

 

[patricktoulon]

bonjour
et alors il est ou le problème?
dans la macro affectée
ActiveSheet.Shapes(Application.Caller).Select

tant que la shape est sélectée la macro ne se déclenche plus car la shape est en mode edition

terminé
Patrick