'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
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.