Info Bulle sur un objet VBA dans une feuille Excel

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 084 fois - Téléchargée 8 fois

Contenu du snippet

 '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


Compatibilité : VBA

A voir également

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.