Menu contextuel sur une forme (shape)

[Airone784]

Bonsoir,

Dans ma feuille, j'ai créé un menu contextuel qui s'active quand je fais un clic droit n'importe où sur la feuille. Je voudrais pouvoir utiliser le menu contextuel lorsque je fais un clic droit sur une des formes.
Puis dans ce menu, si je clique sur supprimer la forme, la forme où j'ai cliqué est effacée. Je vous joins un fichier pour que vous tentiez de m'aider.

Merci beaucoup 😀.

Air'one

 

[Lone-wolf]

Re : Menu contextuel sur une forme (shape)

Bonsoir Airone784,

c'est tout simple.

Tu renomme le premier shape "monshape", ensuite affecte la macro 'Sub monshape_Clic ()' et copie le codage existant du menu.

Fichier joint.



A+ 😎

 

[Airone784]

Re : Menu contextuel sur une forme (shape)

Merci beaucoup lone wolf pour l'aide. Par contre, plus tard je veux mettre des liens hypertextes sur mes shapes. Et du coup, ton code ne fonctionne plus. C'est pour ça que je souhaite utiliser le bouton droit comme un menu contextuel. Ouai, je sais ça se corse...

 

[Lone-wolf]

Re : Menu contextuel sur une forme (shape)

Re Airone,

fait un essai en mettant les liens hypertextes dans le module de la feuille, et tu appel la macro (Liens) dans le menu contextuel.



A+ 😎

 

[Airone784]

Re : Menu contextuel sur une forme (shape)

Bonne idée Lonewolf, cela résous mon problème de lien.

Ce qui me fait arriver à un autre problème. Si ma première shape s'appelle monshape, et que dans mon classeur j'ai une feuille monshape, je voudrais que la feuille de classeur monshape soit sélectionnée lorsque je choisis "entrer" dans mon menu contextuel.

Et si dans le menu contextuel je clique sur supprimer la forme, ma forme et la feuille qui a le même nom que la forme cliquée soient supprimés.

 

[Lone-wolf]

Re : Menu contextuel sur une forme (shape)

Bonjour Airone,

je te conseil de ne pas donner le même nom à la feuille, risque de conflit.

Dans la macro "Entrer" tu écrit ceci, c'est un exemple:

Sub Liens()
Sheets("MesShapes").Select
ActiveSheets.Shapes("monshape").Select
End Sub

Sub Entrer()
Sheets("MesShapes").Delete
ActiveSheets.Shapes("monshape").Delete
End Sub

A+ 😎

 

[Airone784]

Re : Menu contextuel sur une forme (shape)

Désolé, j'ai pas compris là Lone wolf 😕

 

[Lone-wolf]

Re : Menu contextuel sur une forme (shape)

Voilà Airone,

je ne comprend pas pourquoi tu veux supprimer la feuille avec la shape qui contient la macro, mais bon...
J'ai copié la shape essai dans la feuille messhapes (ancien: monshape).

Sub supp()
'effacer la forme sur laquelle j'ai fait un clic droit
Sheets("messhapes").Shapes("essai").Delete
Application.DisplayAlerts = False
Sheets("messhapes").Delete
End Sub

Sub entrer()
'Sélectionne la feuille qui s'appelle comme ma shape cliquée
Sheets("messhapes").Select
End Sub

C'est bien ça que tu cherche à obtenir?



A+ 😎

 

[Airone784]

Re : Menu contextuel sur une forme (shape)

Désolé mais c'est pas encore ça car je voudrais pouvoir soit entrer dans la feuille dont la forme cliquée s'appelle truc ou supprimer la forme cliquée et la feuille qui a le même nom que la forme cliquée.

Je te remets un fichier qui t'aidera peut être à mieux comprendre.

Sur le fichier tu verras, j'ai 3 formes (dupont, durand, martin), si je clique dans mon menu sur entrer, je veux sélectionner la feuille dont le nom est le même que la forme cliquée. Si je clique dans mon menu sur supprimer, je veux supprimer la feuille dont le nom est le même que la forme cliquée ainsi que la forme que je viens de cliquer.


Concrètement, cette feuille me permet de faire un suivi de personnel mais le personnel change, je veux pouvoir à tout moment supprimer la feuille d'une personne qui quitte l'entreprise. Pour aller plus loin dans mon explication, le code que je te demande est précédée sur mon fichier final par un autre code qui permet de créer une bulle avec le nouveau nom d'un employé, mais aussi une nouvelle feuille de classeur avec le nouveau nom d'un employé et enfin le lien hypertexte se génère tout seul aussi suivant une variable qui est en fait le nom de mon employé.

Exemple : si je veux créer DENIS sur mon fichier final, j'ai un bouton qui ouvre une UF et ou je tape denis, je clique sur ok et à partir de là j'ai une forme denis qui est créée sur la feuille 1 de mon classeur puis une feuille qui s'appelle denis est créée dans mon classeur et enfin si je clique sur la bulle denis qui est sur la feuille 1, j'accède directement à sa fiche (donc à la feuille denis de mon classeur).

En espérant que tu comprennes mes (pas trop j'espère) longues explications.

 

[Lone-wolf]

Re : Menu contextuel sur une forme (shape)

RE,


Vois si ça te convient.


A+ 😎

 

[Airone784]

Re : Menu contextuel sur une forme (shape)

Voir où?????? 😉

 

[Lone-wolf]

Re : Menu contextuel sur une forme (shape)

Clique sur le nouveau fichier joint v1-3 😉

je l'avait retiré, pour modifications.



A+ 😎

 

[Lone-wolf]

Re : Menu contextuel sur une forme (shape)

Pour automatiser un peu plus le fichier, je te propose ceci:
Note: j'ai du corriger le code suite à un bug.

'Créer une feuille selon texte dans une cellule et shape avec même nom

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Ws As Worksheet
Sheets("test").Activate

If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
If Selection = "" Then Exit Sub

For Each Ws In Worksheets
If Ws.Name = Target Then MsgBox "Ce nom de feuille existe déjà !": Exit Sub
Next Ws
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = Target
End If
Sheets("test").Shapes.AddShape(msoShapeOval, 10, 10, 60, 50).Name = Target
Sheets("test").Select
End Sub

A+ 😎

 

[Airone784]

Re : Menu contextuel sur une forme (shape)

Pas mal, par contre on est d'accord que ton code m'oblige à recréer une macro à chaque fois que je vais créer une nouvelle forme pour une nouvelle personne et l'affecter à la nouvelle forme???

 

[Lone-wolf]

Re : Menu contextuel sur une forme (shape)

Non, comme tu supprime durand par exemple, tu affecte la macro de durand au nouveau nom.

Edit: tu peux aussi remplacer dupont_Clic() par: dupont()



Modifications dernier code:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Ws As Worksheet
Sheets("test").Activate

If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
If Selection = "" Then Exit Sub

For Each Ws In Worksheets
If Ws.Name = Target Then MsgBox "Ce nom de feuille existe déjà !": Exit Sub
Next Ws
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = Target
End If
With Sheets("test").Shapes.AddShape(msoShapeOval, 10, 10, 142, 50)
.Name = Target
.TextFrame.Characters.Text = Target       'celle-ci t'évite d'écrire le nom da la shape vide
End With
Sheets("test").Select
End Sub

A+ 😎