Aide contextuel sur icône

bonjour Jo-Julie,

je ne crois pas que ce soit possible, une solution de remplacement
serait un menu flotant.

voici un exemple créer par Bruno Jeune.
'___________________________________________
à copier sur la page ThisWorkbook,

Private Sub Workbook_Activate()
Application.CommandBars("BILLARD").Visible = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("BILLARD").Delete
End Sub

Private Sub Workbook_Deactivate()
On Error Resume Next
Application.CommandBars("BILLARD").Visible = False
End Sub

Private Sub Workbook_Open()
lemenu
End Sub
'___________________________________________
à copier sur la page code de la feuille ou doit apparaitre le bouton,

Private Sub Worksheet_Activate()
Application.CommandBars("BILLARD").Visible = True
End Sub

Private Sub Worksheet_Deactivate()
Application.CommandBars("BILLARD").Visible = False
End Sub
'___________________________________________
à copier sur la page code d'un module standard

Sub lemenu()
On Error Resume Next
Application.CommandBars("BILLARD").Visible = True
If Err = 0 Then Exit Sub
Set mybar = CommandBars.Add(Name:="BILLARD", Position:=msoBarFloating, _
Temporary:=True)
Set newmenu =
Application.CommandBars("BILLARD").Controls.Add(Type:=msoControlPopup,
Temporary:=True)
newmenu.Caption = " Menu du Tournoi "
Set menu0 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu0.Caption = "Organiseur"
'menu0.OnAction = "organisor"
menu0.FaceId = 355
Set menu1 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu1.Caption = "Gestion des tables"
'menu1.OnAction = "table"
menu1.FaceId = 304
Set menu2 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu2.Caption = "Corriger"
'menu2.OnAction = "corrige"
menu2.FaceId = 47
mybar.Visible = True
mybar.Protection = msoBarNoChangeVisible
End Sub
'___________________________________________

isabelle

Bonjour à tous...

Hé oui... hé oui... encore moi qui pose des questions

Merci de m'aider encore et toujours...

J'ai dans un projet des icônes insérées dans mes feuille auxquels sont
rattachés des macros pour des opérations ou des boites de dialogue.

Existe t'il une facon de faire afficher l'aide textuel en pointant la souris
sur l'icône de la même façon que cela se fait pour les icônes de la barre de
tâche.

Note : Ces icône ne peuvent être mises dans la barre de tâches pour
diversent raisons

Merci beaucoup à tout le monde...


Julie