Faire apparaître un message au passage de la souris

[Cazinos]

Bonsoir le forum,


Comment faire apparaître un message au passage de la souris sur un bouton qui lance une macro

merci

 

[BOISGONTIER]

Re : Faire apparaître un message au passage de la souris

Bonjour,

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

JB
Formation Excel VBA JB

 

[pascal21]

Re : Faire apparaître un message au passage de la souris

bonjour
si il s'agit d'un bouton tu peux utiliser la fonction "tiptext" qui se trouve dans les propriètés de ce bouton

 

[Cazinos]

Re : Faire apparaître un message au passage de la souris

merci mais le bouton c'est une image "style icone" son nom c'est "image 23"

c'est possible ou bien je dois mettre un bouton ?

 

[pascal21]

Re : Faire apparaître un message au passage de la souris

re
je viens de regarder et je ne crois pas que la fonction tiptext est accessible avec une image
ne peux tu pas utiliser un bouton et coller ton image dessus?
edit
erreur de ma part tiptext n'est accessible qu'aux boutons dans les usf pas aux boutons de la barre d'outils

 

[Cazinos]

Re : Faire apparaître un message au passage de la souris

merci

je viens de tester le fichier joint mais je ne vois pas ou je peux mettre mon propre texte

 

[JCGL]

Re : Faire apparaître un message au passage de la souris

Bonjour à tous,

Par Alt F11 va dans le VBE.
Mets en commentaire cette ligne :

 [B][COLOR=Red] ' [/COLOR][/B] ActiveSheet.Shapes("monshape").Visible = False

en ajoutant une apostrophe devant la ligne

Sur la feuille clique sur GO : la bulle d'aide devrait apparaitre
Tu peux modifier le texte, la couleur....

Quand tu as terminé, tu enlèves l'apostrophe devant la ligne

A+

 

[pascal21]

Re : Faire apparaître un message au passage de la souris

bonsoir à tous
voilà une trouvaille qu'elle est bien
et hop dans ma trousse à "astucespouronnesaisjamais"

 

[Cazinos]

Re : Faire apparaître un message au passage de la souris

merci

une autre question stp! si on a plusieurs boutons dans la feuille ca fonctionne comment ?

 

[JCGL]

Re : Faire apparaître un message au passage de la souris

Re,

Je vais surement passer plus de temps à t'expliquer que j'ai passé de temps à modifier l'excellent fichier de JB 🙂.

Regarde le code et prends bien en compte mon avant dernier message sur "astucespouronnesaisjamais" (arf Pascal).

C'est de la "bidouille" mais j'adore ça... (cf. la différence entre les bricoleurs et les "professionnels") (Bien évidement à prendre au sens très large et sans aucune allusion à JB pour qui j'ai un grand respect XLien)

A+

 

[Cazinos]

Re : Faire apparaître un message au passage de la souris

merci

J'avais fait j'ai bien mis le "2" à bouton2 mais j'avais oublié de mettre "2" à "monshape2"

 

[JCGL]

Re : Faire apparaître un message au passage de la souris

Re,

Génial, tu as tout compris sans explication (Ouf pour moi).
Bon ben tu deviens "contributeur" quand tu veux 😛.

Au plaisir de te lire

A+ à tous