Discussion :

[lamina008]

Bonjour à toutes et à tous,

je sollicite l'aide précieuse de la communauté pour le problème suivant:

-par macro, je copie-colle une image qui me sert de bouton de navigation dans une feuille Excel;
-après avoir créée et positionnée cette image comme souhaité dans la feuille Excel, je souhaite affecter une macro appelée ola qui soit activée quand on clique sur l'image.

les images sont créées dynamiquement d'où l'utilisation d'un compteur "j"

j'ai essayé avec .OnAction comme ci-dessous mais je récuère une erreur 1004

Code :

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

ActiveSheet.Shapes("Image" & j).OnAction = "ola"

A l'aide !! je ne trouve pas de solution à mon problème

Merci d'avance

[jfontaine]

Bonjour,

Ci dessous une solution, mais en utilisant l'objet image (activeX) et non shape

J'utilise VBComponent pour créer la macro évènement click de l'objet image

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 AjouteMacro(NomObject As String)
 
 
Dim VbMod As VBComponent
 
Dim i As Integer
 
Set VbMod = ThisWorkbook.VBProject.VBComponents.Item("Feuil1")
 
 
                                '#################
                                '### Ajoute le code ###
                                '#################
 
 
With VbMod.CodeModule
    i = .CountOfLines
    .InsertLines i + 1, "Private Sub " & NomObject & "_Click()"
    .InsertLines i + 2, "   Call Feuil1.m1 "
    .InsertLines i + 3, "End Sub"
End With
 
End Sub

On appel cette macro en lui fournissant le nom de l'objet

Code :

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

AjouteMacro "Image1"

[Theze]

Bonsoir,

Ce qui plus bas fonctionne chez moi (Excel 2007), le nom du Shape est passé en argument. Je vois que tu n'as pas mis d'espace entre "Image" et le numéro, c'est peut être de là que vient l'erreur :

Code :

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

1
2
 
ActiveSheet.Shapes("Image" & j).OnAction = "ola"

au lieu de :

Code :

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

1
2
 
ActiveSheet.Shapes("Image " & j).OnAction = "ola"

Teste ceci :

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
 
Sub Image()
 
    Dim Shp As Shape
    Dim I As Integer
 
    I = 1
    Set Shp = ActiveSheet.Shapes("Image " & I)
 
    Shp.OnAction = "'AfficherNom""" & Shp.Name & "'"
 
End Sub
 
 
Sub AfficherNom(NomShape As String)
 
    MsgBox NomShape
 
End Sub

Hervé.

[SfJ5Rpw8]

Quel est ton code de création d'image .?

[lamina008]

rebonjour à tous les 3,

merci beaucoup pour vos messages et vos suggestions de solutions.

Pour répondre à la question de bbil,
je copie colle une image (Contrôle ActiveX) préexistante dans la feuille et je la positionne par code VBA à l'endroit souhaité dans la feuille.

J'ai essayé les codes de JP et Theze.

-Pour la proposition de code de jpfontaine :

j'ai du au préalable activer "Microsoft Visual Basic for Applications Extensibility 5.3."
Y-a-t-il d'autres références à activer ?"
J'ai copié-collé le code dans un Module mais la ligne de code suivante pose problème
Set VbMod = ThisWorkbook.VBProject.VBComponents.Item("Feuil1")

comme test, j'ai essayé un Msgbox pour récupérer la propriété Name de ThisWorkbook.VBProject.VBComponents.Item("Feuil1")
mais ca ne marche pas.

Des suggestions jp ?

-Pour la proposition de Thèze,

j'ai essayé d'intégrer ton code mais je récupère une erreur 1004.

[jfontaine]

Je te joint un fichier exemple
Affecter une macro par code (VBCOMPONENT).xls

[SfJ5Rpw8]

....
Pour répondre à la question de bbil,
je copie colle une image (Contrôle ActiveX) préexistante dans la feuille et je la positionne par code VBA à l'endroit souhaité dans la feuille.
...

on as pas vu ce code VBA ....
toutes tes images doivent-elles appeler le même code ?

[Theze]

Bonjour,

Au début tu parle de Shape avec OnAction et maintenant tu parle de contrôle ActiveX, ce n'est pas la même chose.
En double cliquant sur ton image, tu te retrouve dans le module de la feuille où se trouve le contrôle image avec le squelette de l'évènement Click.
Il te suffit de "pré écrire" le code dans le module et une fois l'image collée, si tu clique sur cette dernière la proc évènementielle sera exécutée.

Hervé.

[lamina008]

rebonjour,

et merci de vos précédentes réponses:

Pour Jérôme, j'ai essayé de faire la macro du fichier que tu m'as envoyé et ça n'a pas marché sur mon poste !
bug au meme endroit:

Code :

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

Set VbMod = ThisWorkbook.VBProject.VBComponents.Item("Feuil1")

Y-at-il des références autres que Microsoft Visual Basic for Applications Extensibility 5.3. à activer ???

Pour Thèze,

je ne suis pas expert enVBA malheureusement, et j'ai encore des soucis pour définir proprement les objects que je manipule, dsl!
Pour ta proposition de "pré-écriture" du code, ca ne répond pas à mon problème car je ne sais pas combient d'images seront crées par l'utilisateur lors de l'utilisation du workbook.

Si vous avez d'autres suggestions, je suis preneur !

[jfontaine]

Juste pour etre sur.

Ce code fait référence à la Feuil1. as tu une feuille de ce nom?

Code :

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

Set VbMod = ThisWorkbook.VBProject.VBComponents.Item("Feuil1")