Discussion :

[modus57]

Bonjour à tous.

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

[modus57]

Re

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

[Theze]

Bonjour,

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

Code :

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

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é.

[modus57]

Bonjour et merci Theze.

Tes 2 solutions vont bien.

Je réitère ma question : Est-ce possible de supprimer un message ?

[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é.

[modus57]

Re merci et bon dimanche