Discussion :

[PAPAJUJUCHACHA]

Bonjour,
Je cherche à ajouter une image cliquable dans un userform Excel.
Est-ce possible ? Ca me paraît assez basique mais je ne trouve pas comment faire !
Le click est censé exécuter une macro dans un module.
Merci de vos réponses.

[mikhaelN]

Hello

Une idee
-Tu mets l'image dans un control Label dont caption =""
- Tu mets l'image en arrière plan (clic droit)
- Dans les propriétés de label , Back Style = 0 transparent
- Tu utilises Label1_Click() pour lancer ta macro

Il y a sans doute plu simple

[Menhir]

Comme la plupart des éléments d'un UserForm, l'action d'un clic sur une image se gère par le code VBA de son évènement Click.
Lire ça : https://docs.microsoft.com/fr-fr/off...lp/click-event

-Tu mets l'image dans un control Label dont caption =""
- Tu mets l'image en arrière plan (clic droit)
- Dans les propriétés de label , Back Style = 0 transparent
- Tu utilises Label1_Click() pour lancer ta macro

Pourquoi passer par un Label alors qu'il est possible de gérer un click directement sur l'objet Image ?

[mikhaelN]

Menhir

Pourquoi passer par un Label alors qu'il est possible de gérer un click directement sur l'objet Image ? [/QUOTE]

Il me semblait que dans un Userform l'evenement "Image.clic" n'etatit pas accessible….en tous cas je n'ai pas reussi à l'activer

[PAPAJUJUCHACHA]

Effectivement l'évènement CLIC n'est pas géré par VBA ( si je ne trompe ).
On a :

• BeforeDragOver()
• BeforeDropOrPaste()
• Error()
• MouseDown()
• MouseMove()
• MouseUp()

Pas bête le label caché.
Merci de l'astuce mikhaelN.

Grossière erreur !!!! Je viens de tester ceci :

Code :

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

1
2
3
Private Sub Image1_Click()
MsgBox "TOTO"
End Sub

... et ça marche !!!... Tout bêtement !!!...
Merci de vos réponses et pardonnez mon académisme qui m'a bloqué aux propositions de la lste déroulante de VBA sans essayer intuitivement le image.click ...

[Menhir]

Je viens de tester ceci :

Code :

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

1
2
3
Private Sub Image1_Click()
MsgBox "TOTO"
End Sub

... et ça marche !!!

Voir l'aide VBA dans le lien que j'ai donné à ma réponse #3.

[Philippe Tulliez]

Bonjour,
Outre l'événement Click, qui n'est pas présenté dans la liste des événements du contrôle Image, il est également possible d'utiliser les événements MouseDown et MouseUp