Lancer une macro par clic sur une shape

Version imprimable

22/03/2015, 09h16
modus57

Lancer une macro par clic sur une shape

Bonjour à tous. :) :lun:

Peut-on exécuter une macro par un ou double clic sur une shape ?

Pour lancer la macro avec un bouton cela ne me pose aucun souci, un clic ou double clic sur la shape serait plus pratique.

J'ai fait une recherche mais rien trouvé en ce sens mais j'ai peut-être mal formulé ma recherche.

Avez-vous une solution à mon problème ?

Merci d’avance pour votre aide.

Cordialement
22/03/2015, 09h35
modus57

Re :roll:

J'ai envoyé ce message précipitamment, il suffit d'affecter la shape à une macro

Question : comment procéder pour supprimer ce message

Merci d'avance pour la réponse

Bonjour,

Deux solutions, clic droit sur le shape puis "Affecter une macro..." ou par code avec l'instruction "OnAction" dont voici un exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Sub Test()
 
    Dim S As Shape
 
    Set S = Worksheets("Feuil1").Shapes("Rectangle 1")
 
    'ici sans aucun argument !
    'S.OnAction = "MaMacroTest"
 
    'et ici, avec plusieurs arguments !
    'Atteition, il faut tripler les guillemets pour les arguments String, Double, Single, Date et Boolean
    S.OnAction = "'MaMacroTest """ & Worksheets("Feuil1").Name & """,""" & S.Name & """,""" & Date & "'"
 
End Sub
 
Sub MaMacroTest(NomFeuille As String, NomShape As String, DateDuJour As Date)
 
    MsgBox "Le nom de la feuille est : " & NomFeuille & vbCrLf & _
           "Le nom du Shape est : " & NomShape & vbCrLf & _
           "Nous sommes le : " & DateDuJour
 
End Sub

Hervé.

22/03/2015, 10h28
modus57

Bonjour et merci Theze.

Tes 2 solutions vont bien.

Je réitère ma question : Est-ce possible de supprimer un message ?
22/03/2015, 11h04
Theze

Aucune idée ? Voir avec les modérateurs, mais pourquoi le supprimer ? Une personne pourra effectuer un jour une recherche et tomber dessus ce qui l'aidera probablement !

Hervé.
22/03/2015, 12h14
modus57

Re merci et bon dimanche