[VBA][Excel] Rollover

Rollover [VBA][Excel] - VB/VBA/VBS - Programmation

Marsh Posté le 15-06-2004 à 12:48:14    

Bonjour.
Quelqu'un sait-il comment faire des rollovers sous excel, éventuellement en VBA ?
Je souhaite juste qu'une sorte de bouton dans une feuille excel contenant un lien change de couleur quand le pointeur de la souris passe dessus.
Je n'ai pas de contraintes sur la méthode. Les ruses avec des formes, du formatage,... tout ce que vos esprits ont pu ou peuvent imaginer sont toutes les bienvenues.
 
Merci. Bonne journée.
Frédéric

Reply

Marsh Posté le 15-06-2004 à 12:48:14   

Reply

Marsh Posté le 15-06-2004 à 14:30:05    

Sur la feuille Excel, j'ai collé un controle Image "Image1". Sur ce controle "Image1", j'ai collé un bouton "CommandButton1" (dimensions de Image1 légèrement supérieures aux dimensions du bouton).
Dans le code de la feuille:  

Code :
  1. Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  2.     ' Passe le bouton en jaune clair
  3.     CommandButton1.BackColor = &H80000018
  4. End Sub
  6. Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  7.     ' Repasse le bouton en gris std.
  8.     CommandButton1.BackColor = &H8000000F
  10. End Sub


En fait, lorsque la souris passe sur le bouton, l'évènement MouseMove du bouton se declenche. Lorsque la souris quitte le bouton, elle "survole" le controle image qui déclenche son évènement MouseMove.


---------------
J'ai un message.."Cliquez OK pour continuer."...Qu'est ce que je fais ?
Reply

Marsh Posté le 15-06-2004 à 14:55:19    

Merci. C'est beaucoup plus simple que ce a quoi j'avais pensé (et donc ca marchera mieux ;-) ).
Bonne apres-midi et encore merci.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed