Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

info bulle sur bouton

2 réponses
Avatar
Fred C.
Voila, je sollicite encore votre aide...
Je d=E9sire afficher une info bulle lors du survol avec la souris d'un=20
bouton (outils formulaires).
ou d'une image permettant de lancer une macro.

merci

Fred

2 réponses

Avatar
JB
Bonjour,

Survol bouton:

Dim entrée, centre
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
If X < 10 Or X > Image1.Width - 10 Or Y < 10 Or Y > Image1.Width -
10 Then
If centre = True Then
entrée = False
centre = False
ActiveSheet.Shapes("monshape").Visible = False
End If
Else
ActiveSheet.Shapes("monshape").Visible = True
centre = True
End If
End Sub

http://boisgontierjacques.free.fr/fichiers/Evenementiel/SurvolTexteMouse.xls" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://boisgontierjacques.free.fr/fichiers/Evenementiel/SurvolTexteMouse.xls
(onglet survol bouton)

JB
http://boisgontierjacques.free.fr/


On 26 juil, 01:43, "Fred C." wrote:
Voila, je sollicite encore votre aide...
Je désire afficher une info bulle lors du survol avec la souris d'un
bouton (outils formulaires).
ou d'une image permettant de lancer une macro.

merci

Fred


Avatar
papou
Bonjour
Pas trop facile sur un bouton issu de la boîte à outils formulaires.
Par contre évènement MouseMove disponible sur le contrôle CommandButton issu
de la boîte à outils Contrôles.
L'idéal c'est le contrôle CommandButton sur un Userform puisque la propriété
ControlTipText permet d'afficher une info bulle avec un texte
personnalisable.

Cordialement
Pascal

"Fred C." a écrit dans le message de news:
f88n8c$73f$
Voila, je sollicite encore votre aide...
Je désire afficher une info bulle lors du survol avec la souris d'un
bouton (outils formulaires).
ou d'une image permettant de lancer une macro.

merci

Fred