Savoir si une forme a été selectionnée dans une feuille

[zephir94]

Bonjour à tous,

Il y a t'il un moyen de savoir si une forme a été sélectionnée dans une feuille ?

j'ai essayé comme ceci mais il ne trouve pas la forme !

If Worksheets("menu").Shapes("dede").Select Then

J'ai crée des formes qui me servent de redirection vers des pages

Merci par avance pour vos réponses

Bien cordialement

Zephir

 

[fhoest]

Re : Savoir si une forme a été selectionnée dans une feuille

Bonsoir,
sur ce que je comprends tu souhaites utilisé l'évènement click de la form shape,
doubleclick dessus tu seras dans le code et tu traites le reste.
à moins que je n'ai pas compris et que tu connais déjà ça.
A+

 

[zephir94]

Re : Savoir si une forme a été selectionnée dans une feuille

Un grand merci à toi, quand on a la tête dans le guidon on voit plus la route !

 

[zephir94]

Re : Savoir si une forme a été selectionnée dans une feuille

Un grand merci ça fonctionne, quand on la tête dans le guidon on ne voit plus la route !
Mille merci

 

[job75]

Re : Savoir si une forme a été selectionnée dans une feuille

Bonjour zephir94, fhoest,

doubleclick dessus tu seras dans le code et tu traites le reste.

Pourquoi un double-clic ?

Avec un objet "Formulaire" le clic lance la macro qui lui est affectée.

Avec un objet "ActiveX" le clic crée l'évènement Click qui lance la macro correspondante.

A+

 

[job75]

Re : Savoir si une forme a été selectionnée dans une feuille

Re,

Cela dit pour répondre strictement a ceci :

Il y a t'il un moyen de savoir si une forme a été sélectionnée dans une feuille ?

Sub TestSelection()
Dim F As Object
Application.ScreenUpdating = False
Set F = ActiveSheet
Worksheets("menu").Activate
If TypeName(Selection) <> "Range" Then
  MsgBox "Objet '" & Selection.Name & "' sélectionné"
End If
F.Activate
End Sub

A+

 

[fhoest]

Re : Savoir si une forme a été selectionnée dans une feuille

Bonjour Job75,
oui tu as totalement raison,mais le but étant d'éclairer zéphir94 par rapport a sa question
j'ai écrit "sur ce que je comprends"
je dirais que c'est ok vu que zephir94,à écrit "Un grand merci ça fonctionne"
merci à toi pour le complément d'information au sujet de ces contrôles
A bientôt