Message au survol d'un bouton sur une feuille de calcul

Bonjour à tous.

J'essaie de faire apparaitre un message au survol d'un bouton sur une feuille de calcul. (pas dans un formulaire)

Sub bouton1()

    ActiveSheet.Buttons.Add(190, 30, 70, 17).Select
    Selection.text = "Demande Travaux"
    Selection.OnAction = "Transfert_Travaux"
    Selection.ControlTipText = "Demande de prise en compte de travaux"

End Sub

seulement ce "selection.ControlTipText" ne vaut que pour les formulaires.

C'est peut-être tout simple mais je ne trouve pas sur le net.

Quelqu'un connait la solution ?

merci du coup de main

Bonjour Salmanasard,

Aurais tu un fichier ?

Cordialement Mathieu

Bonjour Salmanasard, Mathieu3630

@Salmanasard : Faut il impérativement que ton bouton soit créé à "la volée" ? Ne peux tu pas le placer tranquillement sur ta feuille ?

@+ Ericcool02

il faut que le bouton soit créé par un autre classeur. Et au survol du bouton, je souhaite faire apparaitre une texte explicatif de l'action exacte de ce bouton.

Bonjour Salmanasard,

Je viens de finir le fichier avec l'infobulle, dit moi ce que tu en pense.

PS: oublie pas de ne pas être en mode édition dans l'onglet développeur.

Cordialement Mathieu

ok. merci. ça fonctionne.

Mais je pensais qu'il y avait un moyen plus simple.

Bonjour,

Je n'y connais pas grand chose en vba, je te propose cette solution que je connais.

Après si d'autre personne voudrais proposer mieux.

Passe une bonne journée

Cordialement Mathieu