Changer d'image au contact de la souris.

[Lone-wolf]

Bonjour au forum,

J'ai pu voir dans un poste que l'on pouvait changer de couleur, avec la souris, un bouton de formulaire.

Est-il possible de changer d'image au passage de la souris, sur une feuille excel ?
2 images seulement, bien entendu.

 

[Guest]

Re : Changer d'image au contact de la souris.

Bonjour,

T'es pourtant pas un débutant, et toujours pas de classeur exemple...

A+

 

[Lone-wolf]

Re : Changer d'image au contact de la souris.

Bonsoir Hasco,


non , je n'ai pas de classeur. J'ai regarder dans les fonctions de la feuille,
il n'y a pas WorkSheets_ MouseMove.

Par contre, en intégrant une image en mode création, il y a MouseMove sur l'image.

Je viens de faire un test (Image) sans succès. A moins qu'il ne faille un module de classe.

A+

 

[Guest]

Re : Changer d'image au contact de la souris.

Bonjour,

Non pas besoin de module de classe.

A+

 

[BOISGONTIER]

Re : Changer d'image au contact de la souris.

Bonjour,

Voir pj

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 If X < 10 Or X > Image1.Width - 10 Or Y < 10 Or Y > Image1.Height - 10 Then
    Image1.Picture = LoadPicture("c:\mesdoc\bouchez.jpg")
  Else
    Image1.Picture = LoadPicture("c:\mesdoc\droc.jpg")
  End If
End Sub

JB