Bulle d'aide sur un bouton

Jean Etienne avait soumis l'idée :

Y-a-t-il un moyen d'avoir une bulle d'aide quand on survole un bouton de
formulaire ?

Jean-Etienne

Sur une feuille de calcul je ne sais pas faire.
(propriété Tolltiptext du bouton sur une userform)

Bonsour® Jean Etienne avec ferveur ;o))) vous nous disiez :

Y-a-t-il un moyen d'avoir une bulle d'aide quand on survole un bouton
de formulaire ?

Non : s'il s'agit d'un simple formulaire créé avec la barre d'outils formulaire
Oui : si l'on créé un module de classe pour gérer l'évenement MouseMove
Oui : si le bouton est issu de la barre Boite à outils controles
http://boisgontierjacques.free.fr/fichiers/Evenementiel/BoutonSurvol.xls

Oui : si le formulaire est en fait un UserForm
voir la propriété ControlTiptext de ce bouton



--
--
@+
;o)))

Merci pour ces réponses.

Jean-Etienne

Modeste a écrit :

Bonsour® Jean Etienne avec ferveur ;o))) vous nous disiez :

Y-a-t-il un moyen d'avoir une bulle d'aide quand on survole un bouton
de formulaire ?

Non : s'il s'agit d'un simple formulaire créé avec la barre d'outils formulaire
Oui : si l'on créé un module de classe pour gérer l'évenement MouseMove
Oui : si le bouton est issu de la barre Boite à outils controles
http://boisgontierjacques.free.fr/fichiers/Evenementiel/BoutonSurvol.xls

Oui : si le formulaire est en fait un UserForm
voir la propriété ControlTiptext de ce bouton

Bonsoir

Je saute à pieds joints dans ce fil

Comment et ou case-t-on le Shape?

A bientôt

Rex



"Modeste" <nomail@nomail.net> a écrit dans le message de news:
u40HvP15IHA.4988@TK2MSFTNGP04.phx.gbl...
Bonsour® Jean Etienne avec ferveur ;o))) vous nous disiez :

Y-a-t-il un moyen d'avoir une bulle d'aide quand on survole un bouton
de formulaire ?

Non : s'il s'agit d'un simple formulaire créé avec la barre d'outils
formulaire
Oui : si l'on créé un module de classe pour gérer l'évenement MouseMove
Oui : si le bouton est issu de la barre Boite à outils controles
http://boisgontierjacques.free.fr/fichiers/Evenementiel/BoutonSurvol.xls

Oui : si le formulaire est en fait un UserForm
voir la propriété ControlTiptext de ce bouton



--
--
@+
;o)))

Bonjour Modeste

Oui tout cela j'avais compris et c'est faisable

Mon problème est beaucoup plus basic

Je ne parviens pas à donner un nom à un Shape

Je n'ai pas accès aux propriétés du shape

Comment faire?

A bientôt et merci

Rex


"Modeste" <nomail@nomail.net> a écrit dans le message de news:
OjwbXX35IHA.4352@TK2MSFTNGP03.phx.gbl...
Bonsour® rthompson avec ferveur ;o))) vous nous disiez :

Je saute à pieds joints dans ce fil
Comment et ou case-t-on le Shape?

http://boisgontierjacques.free.fr/fichiers/Evenementiel/BoutonSurvol.xls

;o))) réponse déja fournie ici à Mabouille
Subject: Re: boutons de macro avec infobulles
Date: Fri, 30 May 2008 23:49:22 +0200

moi, j'ai forcément loupé des choses ! Je suppose qu'il faut nommer
le bouton? Est ce "monshape" ? Où est stocké le texte à faire
apparaître dans l'infobulle ? Pourquoi y a t'il des conditions
relatives à la taille du bouton, si c'est à ça que correspondent X et
Y ?

il faut utiliser un bouton de la barre "Boites à outils Controles"
en mode création (la petite équerre bleue)
click droit propriétés
il faut renommer ce "CommandButton 1" en Bouton1 (propriété name)
il faut accéder au code de ce bouton (en mode creation click droit
visualiser le code)
coller le code fourni par JB
il faut creer un objet (barre à outils dessin) à proximité de ce Bouton1
il faut nommer cet objet "MonShape" '(zone extreme gauche de la barre de
formule)
click droit sur l'objet, utiliser la propriété ajouter du texte

revenir sur la barre Boites à outils Controles"
désactiver l'équerre bleue

voila c'est fini, c'était pourtant simple !!!
))
n'est-ce pas JB ???

Les conditions relatives à la taille du bouton servent à detecter
automatiquement le survol par le pointeur de la souris

--
--
@+
;o)))

rthompson a écrit :

Bonjour,

ActiveSheet.Shapes.AddShape _
(msoShapeRectangle, 222.75, 201#, 189#, 72#) _
.Name = "REC1"



Non ?

--
François L

Bonjour Modeste

Oui tout cela j'avais compris et c'est faisable

Mon problème est beaucoup plus basic

Je ne parviens pas à donner un nom à un Shape

Je n'ai pas accès aux propriétés du shape

Comment faire?

A bientôt et merci

Rex


"Modeste" <nomail@nomail.net> a écrit dans le message de news:
OjwbXX35IHA.4352@TK2MSFTNGP03.phx.gbl...
Bonsour® rthompson avec ferveur ;o))) vous nous disiez :

Je saute à pieds joints dans ce fil
Comment et ou case-t-on le Shape?

http://boisgontierjacques.free.fr/fichiers/Evenementiel/BoutonSurvol.xls

;o))) réponse déja fournie ici à Mabouille
Subject: Re: boutons de macro avec infobulles
Date: Fri, 30 May 2008 23:49:22 +0200

moi, j'ai forcément loupé des choses ! Je suppose qu'il faut nommer
le bouton? Est ce "monshape" ? Où est stocké le texte à faire
apparaître dans l'infobulle ? Pourquoi y a t'il des conditions
relatives à la taille du bouton, si c'est à ça que correspondent X et
Y ?

il faut utiliser un bouton de la barre "Boites à outils Controles"
en mode création (la petite équerre bleue)
click droit propriétés
il faut renommer ce "CommandButton 1" en Bouton1 (propriété name)
il faut accéder au code de ce bouton (en mode creation click droit
visualiser le code)
coller le code fourni par JB
il faut creer un objet (barre à outils dessin) à proximité de ce Bouton1
il faut nommer cet objet "MonShape" '(zone extreme gauche de la barre de
formule)
click droit sur l'objet, utiliser la propriété ajouter du texte

revenir sur la barre Boites à outils Controles"
désactiver l'équerre bleue

voila c'est fini, c'était pourtant simple !!!
))
n'est-ce pas JB ???

Les conditions relatives à la taille du bouton servent à detecter
automatiquement le survol par le pointeur de la souris

Bonsour® rthompson avec ferveur ;o))) vous nous disiez :

Je ne parviens pas à donner un nom à un Shape
Je n'ai pas accès aux propriétés du shape

;o)))
beware "ECHELON" is watching you !

Sélectionner le Shape
;o))) --- It is not necessary to go until Maisières-MONS
Click droit
--Modidier le texte

Selectionner le Shape
;o))) --- Het is niet noodzakelijk te gaan tot MONS
à gauche de la barre de formule apparait le nom du shape
modifier ce nom
ET surtout valider par Entrée !!!




--
--
@+
;o)))

Tu m'as fais peur


ECHELON?????? connais pas

Mais tu me dis qu'il n'est pas nécessaire d'aller à Maisières Mons

Ma première réaction (sans voir le jeu de mot évident)
Comment ce typs sait-il que hier j'étais à Mons et que je suis passé devant
le Shape

And then I realise, it's only a typical french "Jeu de mot"

Ouf I am not under surveillance

Et a part ça

Merci

Moi je cherchais désepérément à trouver un menu Propriété ou quelque chose
dans le genre

Maintenant on va voir si tout cela ne fais conflit avec ta macro du Toggle
(t'en souviens-tu?)
Et petit à petit mon Spreadshit devient un spreadsheet pas mal du tout

A bientôt

Rex



"Modeste" <nomail@nomail.net> a écrit dans le message de news:
%23$aFnp%235IHA.3512@TK2MSFTNGP02.phx.gbl...
Bonsour® rthompson avec ferveur ;o))) vous nous disiez :

Je ne parviens pas à donner un nom à un Shape
Je n'ai pas accès aux propriétés du shape

;o)))
beware "ECHELON" is watching you !

Sélectionner le Shape
;o))) --- It is not necessary to go until Maisières-MONS
Click droit
--Modidier le texte

Selectionner le Shape
;o))) --- Het is niet noodzakelijk te gaan tot MONS
à gauche de la barre de formule apparait le nom du shape
modifier ce nom
ET surtout valider par Entrée !!!




--
--
@+
;o)))

WWWHOOOOOAAAAAAA


Tout doux, tout doux mon petit

Tu voudrais me lancer dans la construction de shape en VBA

Moi qui ne sais même pas ce VBA veut dire

A moins que ce ne soit Véritable Bazar Anachronic ;-))

But seriously

Merci pour ton offre
Et pour certaines de tes autres commentaires dans ce groupe

mais pour cette fois encore, (il commence à me les gonfler)
Modeste à encore frapper juste


A bientôt

Et bonne vacances

Et c'est promis, je vais ouvrir le bouquin VBA que j'ai acheté il y a deux
ans

Rex



"Francois L" <gardiendephare@etbalises.fr.invalid> a écrit dans le message
de news: eI0aid%235IHA.2240@TK2MSFTNGP02.phx.gbl...

rthompson a écrit :

Bonjour,

ActiveSheet.Shapes.AddShape _
(msoShapeRectangle, 222.75, 201#, 189#, 72#) _
.Name = "REC1"



Non ?

--
François L

Bonjour Modeste

Oui tout cela j'avais compris et c'est faisable

Mon problème est beaucoup plus basic

Je ne parviens pas à donner un nom à un Shape

Je n'ai pas accès aux propriétés du shape

Comment faire?

A bientôt et merci

Rex


"Modeste" <nomail@nomail.net> a écrit dans le message de news:
OjwbXX35IHA.4352@TK2MSFTNGP03.phx.gbl...
Bonsour® rthompson avec ferveur ;o))) vous nous disiez :

Je saute à pieds joints dans ce fil
Comment et ou case-t-on le Shape?

http://boisgontierjacques.free.fr/fichiers/Evenementiel/BoutonSurvol.xls

;o))) réponse déja fournie ici à Mabouille
Subject: Re: boutons de macro avec infobulles
Date: Fri, 30 May 2008 23:49:22 +0200

moi, j'ai forcément loupé des choses ! Je suppose qu'il faut nommer
le bouton? Est ce "monshape" ? Où est stocké le texte à faire
apparaître dans l'infobulle ? Pourquoi y a t'il des conditions
relatives à la taille du bouton, si c'est à ça que correspondent X et
Y ?

il faut utiliser un bouton de la barre "Boites à outils Controles"
en mode création (la petite équerre bleue)
click droit propriétés
il faut renommer ce "CommandButton 1" en Bouton1 (propriété name)
il faut accéder au code de ce bouton (en mode creation click droit
visualiser le code)
coller le code fourni par JB
il faut creer un objet (barre à outils dessin) à proximité de ce Bouton1
il faut nommer cet objet "MonShape" '(zone extreme gauche de la barre de
formule)
click droit sur l'objet, utiliser la propriété ajouter du texte

revenir sur la barre Boites à outils Controles"
désactiver l'équerre bleue

voila c'est fini, c'était pourtant simple !!!
))
n'est-ce pas JB ???

Les conditions relatives à la taille du bouton servent à detecter
automatiquement le survol par le pointeur de la souris

rthompson a écrit :

Re,

WWWHOOOOOAAAAAAA


Tout doux, tout doux mon petit

Tu voudrais me lancer dans la construction de shape en VBA

Non, non, c'était juste pour le cas où... Parfois, c'est commode !

Moi qui ne sais même pas ce VBA veut dire

A moins que ce ne soit Véritable Bazar Anachronic ;-))

But seriously

Merci pour ton offre
Et pour certaines de tes autres commentaires dans ce groupe

mais pour cette fois encore, (il commence à me les gonfler)
Modeste à encore frapper juste

Et oui, comme d'habitude.

--
François L

A bientôt

Et bonne vacances

Et c'est promis, je vais ouvrir le bouquin VBA que j'ai acheté il y a deux
ans

Rex



"Francois L" <gardiendephare@etbalises.fr.invalid> a écrit dans le message
de news: eI0aid%235IHA.2240@TK2MSFTNGP02.phx.gbl...

rthompson a écrit :

Bonjour,

ActiveSheet.Shapes.AddShape _
(msoShapeRectangle, 222.75, 201#, 189#, 72#) _
.Name = "REC1"



Non ?

--
François L

Bonjour Modeste

Oui tout cela j'avais compris et c'est faisable

Mon problème est beaucoup plus basic

Je ne parviens pas à donner un nom à un Shape

Je n'ai pas accès aux propriétés du shape

Comment faire?

A bientôt et merci

Rex


"Modeste" <nomail@nomail.net> a écrit dans le message de news:
OjwbXX35IHA.4352@TK2MSFTNGP03.phx.gbl...
Bonsour® rthompson avec ferveur ;o))) vous nous disiez :

Je saute à pieds joints dans ce fil
Comment et ou case-t-on le Shape?
http://boisgontierjacques.free.fr/fichiers/Evenementiel/BoutonSurvol.xls

;o))) réponse déja fournie ici à Mabouille
Subject: Re: boutons de macro avec infobulles
Date: Fri, 30 May 2008 23:49:22 +0200

moi, j'ai forcément loupé des choses ! Je suppose qu'il faut nommer
le bouton? Est ce "monshape" ? Où est stocké le texte à faire
apparaître dans l'infobulle ? Pourquoi y a t'il des conditions
relatives à la taille du bouton, si c'est à ça que correspondent X et
Y ?

il faut utiliser un bouton de la barre "Boites à outils Controles"
en mode création (la petite équerre bleue)
click droit propriétés
il faut renommer ce "CommandButton 1" en Bouton1 (propriété name)
il faut accéder au code de ce bouton (en mode creation click droit
visualiser le code)
coller le code fourni par JB
il faut creer un objet (barre à outils dessin) à proximité de ce Bouton1
il faut nommer cet objet "MonShape" '(zone extreme gauche de la barre de
formule)
click droit sur l'objet, utiliser la propriété ajouter du texte

revenir sur la barre Boites à outils Controles"
désactiver l'équerre bleue

voila c'est fini, c'était pourtant simple !!!
))
n'est-ce pas JB ???

Les conditions relatives à la taille du bouton servent à detecter
automatiquement le survol par le pointeur de la souris