'La fonction "ControlTipText" ne fonctionne pas pour les objets VBA creer dans une feuille de calcul.
'ici on affiche une info bulle lors du passage du curseur sur le bouton"CommandButton1".
'L'astuce consiste a afficher un objet dessin type textbox, contenant le message voulu, au passage
'du curseur sur le bouton. La detection se fait en utilisent la procedure "MouseMove" du bouton concerné (le present Private Sub)
'Pour eteindre il faut ajouter autour du bouton un label(plus grand que le bouton et obligatoirement un objet VBA) que l'on rendra invible.
'Ensuite de la meme facon que pour le bouton il suffit de detecter le passage par ce label pour eteindre l'infobule
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Worksheets("Feuille1").Shapes("InfoBulle").Visible = True 'ou Infobule est une textbox dans la feuille excel
End Sub
'ici on eteint l'info bulle
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Worksheets("Feuille1").Shapes("InfoBulle").Visible = False
End Sub