Discussion :

[Shoupine]

Bonsoir,

Voila, je souhaiterais que lorsque ma macro s'exécute elle génère un bouton sur ma feuille Excel dans une cellule donnée, et que ce bouton soit en réalité une image (symbole +) qui, lorsqu'on clique sur cette image lance une nouvelle macro. J'espère que c'est assez clair, en bref voici le code que j'ai déjà effectué:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    Sheets("Coffre").Shapes("Ajout").Copy
    Cells(LastRow + 7, 29).Select
    ActiveSheet.Paste
    ActiveSheet.Shapes("Ajout").Name = "Ajout" & Nom.Value
    ActiveSheet.Shapes("Ajout" & Nom.Value).OnAction = "AddCharge"

Ma feuille "Coffre" contient mon image de base et "AddCharge" est le sub que je souhaiterais lancer lorsqu'on clique sur l'image.
Mais bien évidemment si je met un message ici, c'est que cela ne fonctionne pas. J'ai bien mon image qui apparaît comme je le souhaite mais elle reste une image, même si je clique dessus ça la sélectionne et ne lance pas la macro.

Comment faire pour y remédier? Je suis également preneuse si vous avez d'autres méthodes totalement différentes pour arriver au même but
Merci

[patricktoulon]

re
bobsoir ton bouton en forme de "+" tu peux le fabriquer directement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
   Dim Cel as range,shap as shape
    Set cel = Cells(LastRow + 7, 29):    cel.Select
    Set shap = ActiveSheet.Shapes.AddShape(11, cel.Left, cel.Top, cel.Height, cel.Height)
    With shap
        .Name = "ajout"  &  Nom.Value
        .OnAction = "AddCharge"
        .DrawingObject.Interior.ColorIndex = 3
        .Line.Weight = 0
    End With

[Shoupine]

Merci pour ta réponse!

Finalement j'ai trouvé également une solution "toute bête", j'ai directement affecté ma macro à mon image sur ma feuille "Coffre" si bien qu'en faisant Copier/Coller sur une autre feuille cela a conservé le lien vers la macro!
Bon à savoir