RESOLU: Création bouton avec image relevé-enfoncé au clic de souris

[targa]

Bonjour,

Je souhaiterai créer un bouton sous forme d'image de manière à ce qu'il se comporte de la manière suivante:

- Image 1 (bouton relevé) visible
- Lorsque je clique dessus, sans relacher le clic (je dois voir l'image 2 (bouton enfoncé)
- Lorsque je lâche le clic de la souris, l'image repasse à l'image 1 (bouton relevé) et ouvre la Feuil2.

Quelqu'un aurait-il une solution?

Merci d'avance de votre aide!!

 

[Modeste geedee]

Re : Création bouton avec image relevé-enfoncé au clic de souris

Bonsour®
sauf à utiliser un module de classe,
seuls les objets sur Userform possèdent les propriétés MouseDown et MouseUP

nb à la première utilisation , il faudra adapter le chemin des images


edit :
Oupsss... désolé
assertion erronée
voir #5

 

[targa]

Re : Création bouton avec image relevé-enfoncé au clic de souris

Bonjour Modeste geedee,
Merci pour ta solution!
Heu j'ai juste un problème afin que cela puisse fonctionner chez moi, apparemment le code ne focntionne pas sous un environnement 64 bits et Excel me mets le code suivant:

--------------------------------------------
Erreur de Compilation:

Le code contenu dans ce projet doit être mis à jour
pour pouvoir être utilisé sur les systèmes 64 bits.
Vérifiez et mettez à jour les instructions
Declare, puis marquez-les avec l'attribut PtrSafe.
--------------------------------------------

Aurais-tu une solution??

Quel dommage que cela ne soit pas possible autrement que dans une Userform.
Car je pensais mettre ce bouton dans un menu en ouvrant le classeur excel, dans un pti coin de la feuille, comme une icône d'aide dans un système Windows ou autre.
- Est-il possible alors de rendre la Userform transparente afin que l'on voit que les images bouton?
- Est-il possible par-contre d'avoir les images incluses dans le fichier, et non pas relier par un chemin, cela évite d'avoir des images à stocker sur le réseau et qu'ensuite des gens les effacent car ils se disent que cela n'a rien à voir à cette emplacement.

Un grand merci pour ton aide.

 

[Modeste geedee]

Re : Création bouton avec image relevé-enfoncé au clic de souris

Bonsour®

Bonjour Modeste geedee,
Merci pour ta solution!
Heu j'ai juste un problème afin que cela puisse fonctionner chez moi, apparemment le code ne focntionne pas sous un environnement 64 bits et Excel me mets le code suivant:
--------------------------------------------
Erreur de Compilation:
Le code contenu dans ce projet doit être mis à jour
pour pouvoir être utilisé sur les systèmes 64 bits.
Vérifiez et mettez à jour les instructions
Declare, puis marquez-les avec l'attribut PtrSafe.
--------------------------------------------
Aurais-tu une solution??

je ne peux tester pour excel 64 bits...

éventuellement supprimer la déclaration de l'API Sleep dans le module 1
supprimer l'appel : Sleep 250

pb possible, pas le temps de voir l'image
ajouter alors plusieurs instructions DoEvents (délai environ 18 ms)
ou bien une boucle vide Fo:r i=1 to 5000: next

concernant l'utilisation d'un userform celui ci peut etre remplacer par un module de classe afin d'affecter des événements aux objets images

 

[Paf]

Re : Création bouton avec image relevé-enfoncé au clic de souris

Bonsoir à tous

un exemple avec un bouton (CommandButton) sur la feuille 1.

Dans les propriétés du bouton donner le chemin de l'image "au repos" dans Picture. Puis ce sont les évènements CommandButton1_MouseDown et CommandButton1_MouseUp qui prennent le relais.

Les chemins des images sont bien sûr à adapter.

Bonne suite

PS la propriété Picture n'est pas renseignée dans la PJ pour cause de taille trop importante pour joindre le classeur

 

[Modeste geedee]

Re : Création bouton avec image relevé-enfoncé au clic de souris

Bonsour® Paf


bien vu de démentir mon assertion de #2
l'utilisation d'un objet activeX est tout à fait approprié dans ce cas .

 

[targa]

Re : Création bouton avec image relevé-enfoncé au clic de souris

Bonsoir Paf, bonsoir Moodeste geedee !

Désolé de vous répondre si tardivement.
Mais en tous cas, un grand merci pour vos solutions.
Alors sans rancune Modeste geedee, mais je me suis rabattu sur la solution de Paf qui était le plus simple et qui me convenait le mieux pour ce que je souhaite faire.

Alors merci encore et merci Paf pour ta solution, ça marche à merveille.
Bonne soirée à tous.
Cordialement