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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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
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
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.
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
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
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
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." <f@f.fr> a écrit dans le message de news:
f88n8c$73f$1@news.tiscali.fr...
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.
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.