tips au survol sur un commandbutton sur une feuille (pas dans un USF)

Paf

XLDnaute Barbatruc

• 28 Février 2015

• #2

Re : tips au survol sur un commandbutton sur une feuille (pas dans un USF)

Bonjour

Créer une étiquette (boite à outils contrôle) qui par défaut portera le nom Label1, faire la mise en forme,puis passer sa propriété visible à False

puis au niveau du commandbutton:

Code:

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

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Février 2015

• #3

Re : tips au survol sur un commandbutton sur une feuille (pas dans un USF)

Bonjour pascal21, Paf,

Une solution pour ceux qui préfèrent les objets Formulaires.

A+

 

Pièces jointes

• Bouton(1).xlsm

  17.6 KB · Affichages: 68

Vote positif 0 Vote négatif

H

Herdet

Nous a quitté

Repose en paix

• 28 Février 2015

• #4

Re : tips au survol sur un commandbutton sur une feuille (pas dans un USF)

Bonsoir Job,
Ta solution est très intéressante mais un peu mystérieuse ?
Où se trouve le texte "Cliquer sur le bouton pour lancer la macro..." ? Modifiable ?
Je n'ai rien trouvé dans le VBA, liens hypertexte, propriétés, noms définis, cellules,...
Merci
Robert

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Février 2015

• #5

Re : tips au survol sur un commandbutton sur une feuille (pas dans un USF)

Bonsoir à tous

Herdet à dit:

Bonsoir Job,
Où se trouve le texte "Cliquer sur le bouton pour lancer la macro..." ? Modifiable ?
Je n'ai rien trouvé dans le VBA, liens hypertexte, propriétés, noms définis, cellules,...

Cliquez pour agrandir...

Tu as pourtant donné la réponse dans ta question
Regarde la pièce jointe 937012

 

Pièces jointes

• 01LeMysteredeJob.png

  51.5 KB · Affichages: 40

Dernière édition: 28 Février 2015

Vote positif 0 Vote négatif

H

Herdet

Nous a quitté

Repose en paix

• 28 Février 2015

• #6

Re : tips au survol sur un commandbutton sur une feuille (pas dans un USF)

Bonsoir Staple et Job,
Infos-Bulles... mais c'est bien sûr ! et pour les modifications du texte

Code:

    With ActiveSheet.Shapes.Range(Array("Rectangle 2"))
       ActiveSheet.Hyperlinks(1).ScreenTip = "Cliquer sur le bouton...SVP"
    End With

Merci, je vais placer ça dans quelques applications.
Robert

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Février 2015

• #7

Re : tips au survol sur un commandbutton sur une feuille (pas dans un USF)

Bonsoir Herdet, Jean-Marie,

Merci JM, ça évite de me fatiguer

Il y a un truc qui m'intrigue, une fois qu'on a cliqué sur le "bouton", il y a l'invite d'enregistrement à la fermeture.

Pourtant rien n'a été modifié dans le fichier

Serait-ce l'exécution du lien hypertexte ?

Edit : eh bien oui, je n'avais jamais remarqué :

- lien hypertexte dans une cellule => jamais d'invite à la fermeture

- lien hypertexte sur une forme => toujours une invite à la fermeture.

A+

 

Dernière édition: 28 Février 2015

Vote positif 0 Vote négatif

H

Herdet

Nous a quitté

Repose en paix

• 28 Février 2015

• #8

Re : tips au survol sur un commandbutton sur une feuille (pas dans un USF)

Job, Staple,
Pourtant, ça fonctionne bien dans le fichier joint.

Robert

 

Pièces jointes

• RD-Bouton.xlsm

  23 KB · Affichages: 45

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Février 2015

• #9

Re : tips au survol sur un commandbutton sur une feuille (pas dans un USF)

Herdet à dit:

Pourtant, ça fonctionne bien dans le fichier joint.

Cliquez pour agrandir...

Mais je ne parlais pas de votre code Herdet, bien sûr et heureusement qu'il fonctionne

Même s'il ne sert à rien.

A+

 

Vote positif 0 Vote négatif

H

Herdet

Nous a quitté

Repose en paix

• 28 Février 2015

• #10

Re : tips au survol sur un commandbutton sur une feuille (pas dans un USF)

Je pense qu'Excel doit enregistrer toutes les actions effectuées sur un fichier même si on ne voit rien car il y a des infos masquées.

Job
Je sais bien que ce code ne sert à rien mais à l'instar des ControlTipText dans les UF, ce n'est que de l'info complémentaire au texte du bouton.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Février 2015

• #11

Re : tips au survol sur un commandbutton sur une feuille (pas dans un USF)

Herdet à dit:

Je pense qu'Excel doit enregistrer toutes les actions effectuées sur un fichier même si on ne voit rien car il y a des infos masquées.

Cliquez pour agrandir...

Peut-être bien, mais voyez l'Edit de mon post #7.

Et maintenant au lit, bonne nuit.

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 1 Mars 2015

• #12

Re : tips au survol sur un commandbutton sur une feuille (pas dans un USF)

bonjour à tous
merci de vous etre interressé au sujet
je vais retenir la solution simple de JOB75 (une fois de plus!!!)
l'idée de se servir des formes est excelente et simple à adaptée

 

Vote positif 0 Vote négatif