Message au survol d'un bouton

**alainb** · 15/05/2010, 14h04

Bonjour,
Je sèche sur la recherche de code pour : afficher un texte info bulle (message) au survol d'un bouton.
Alain

**Gorfael** · 15/05/2010, 19h19

Salut alainb et le forum
Regarde à

Code :

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

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

CommandButton1 étant un bouton issu de la barre d'outils "boîte à outils contrôles" (sur Excel2003).
A+

**alainb** · 15/05/2010, 20h47

Merci pour cette confirmation
si j'écris

Code :

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

1
2
3
Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
range("A1").value = "ok"
end sub

cela ne donne rien

Invité · 15/05/2010, 21h04

Bonjour

Peux-tu détailler un peu plus.

Ton bouton est un bouton de formulaire ou un contrôle ActiveX ?

Est-ce sur une feuille ou sur un UserForm ?

Lorsque tu écris :

Code :

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

range("A1").value = "ok"

Quel est le rapport avec l'info-bulle ?

Philippe

**alainb** · 15/05/2010, 21h26

Je suis effectivement trop rapide et pas très explicite !
Mon bouton un objet inséré sur une feuille.
Les propriétés du bouton ne me donne pas la possibilité d'afficher une info bulle lors de son survol. Je cherche donc un code pour obtenir cet effet.
Dans l'attente, je testais l'affichage d'un texte dans la cellule A1 avec CommandButton1_MouseDown