VBA - Condition sur sélection d'image

Hulk

XLDnaute Barbatruc

• 18 Juin 2009

• #2

Re : VBA - Condition sur sélection d'image

Hello Lolive et bienvenue,



Tu peux affecter une macro à ton image.

Cliques droit sur ton image, puis "Affecter une macro.../Nouvelle" et tu mets un code du genre

Code:

Sub Image1_QuandClic()

    MsgBox "Coucou"

End Sub

Cdt, Hulk.

 

Vote positif 0 Vote négatif

L

lolive82

XLDnaute Nouveau

• 18 Juin 2009

• #3

Re : VBA - Condition sur sélection d'image

Nikel !!
Merci beaucoup!
Je ne voyais pas ça de cette façon mais en fait ça marche parfaitement!!
Encore merci !

Saurais-tu aussi par hasard comment récupérer le nom d'une image lors de sa sélection ?
Dans le cas où j'ai plusieurs images, en fonction du nom de l'image sélectionnée, j'aimerais mettre un message différent.

Je suis chiant je sais, mais j'ai beaucoup de mal à gérer la programmation au niveau des objets et images ...

Merci encore pour mon 1er problème, et merci à toi pour ton aide.

Bonne journée a+

Olivier

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 18 Juin 2009

• #4

Re : VBA - Condition sur sélection d'image

Re,

Il y a bien ça, mais je me demande s'il n'y a pas mieux à faire.

Code:

Sub Image1_QuandClic()

    MsgBox "Vous avez sélectionné l'" & ActiveSheet.Shapes("Image 1").Name

End Sub

Cdt, Hulk.

 

Vote positif 0 Vote négatif

L

lolive82

XLDnaute Nouveau

• 18 Juin 2009

• #5

Re : VBA - Condition sur sélection d'image

Euh ... moui ... ok ça, ça marche !!
Mais si t'as 100 photos ça devient long à programmer, et puis si tu inserts d'autres photos par la suite il faut forcément retourner dans VB pour retaper une nouvelle ligne... Y'a vraiment pas possibilité de faire autrement ??? Merci

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 18 Juin 2009

• #6

Re : VBA - Condition sur sélection d'image

Bonsoir lolive82, Hulk, le Forum,

Tu peux relier toutes tes images à la même procédure :

Code:

[COLOR=GRAY][B][I]DANS UN MODULE DE CODE STANDARD[/I][/B][/COLOR]

[COLOR=NAVY]Sub[/COLOR] Image_QuandClic()
    MsgBox Application.Caller
[COLOR=NAVY]End Sub[/COLOR]

Cordialement,

 

Vote positif 0 Vote négatif

L

lolive82

XLDnaute Nouveau

• 25 Juin 2009

• #7

Re : VBA - Condition sur sélection d'image

Salut à vous 2 !!!
J'aurais encore une question sur ce sujet, si je veux faire la même chose mais avec la sélection de l'image par clic droit ... c'est possible ou pas ??

D'avance merci.

 

Vote positif 0 Vote négatif