Info bulle - passage souris vba Fermé

Question

Bonjour,

Je voudrai qu'une info bulle apparaisse lorsque la souris se situe sur un bouton de commande..
Pourriez vous m'aidez s'il vous plait ? le langage de programmation est le VBA.

Merci d'avance

Jeremou · Answer

Bonjour,

Tu créés un controle ActiveX d'image (nom = Image), tu insères l'image que tu veux dedans et tu crées une forme normale (nom = infoimage) pour ton info-bulle avec le texte dedans, puis dans le code de ton controle ActiveX, tu mets ceci :

Private Sub Image_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If X < 10 Or X > Image.Width - 10 Or Y < 10 Or Y > Image.Height - 10 Then
ActiveSheet.Shapes("infoimage").Visible = False
Else
ActiveSheet.Shapes("infoimage").Visible = True
End If
End Sub

Voila

Bibi · Answer

Je pense avoir plus simple, mais je ne sais pas si c'est vrmt bon, 
Il suffit d'aller dans les propriétés des boutons de commande desquels tu veux faire apparaitre un msg, puis tu va dans "controle tiptext" je crois puis tu rentre le texte que tu veux faire apparaitre.

Info bulle - passage souris vba

2 réponses

Discussions similaires