Apparaître un com' lors du survol un bouton avec le curseur
Bonjour,
J'ai créée un ensemble des boutons dans une barre d'outils personnalisées dans l'onglet "Complements" de Excel avec le code VBA.
Je veux avoir un commentaire lorsque je survole le bouton comme n'importe quelle bouton classique dans excel.
Merci de m'aider sur cette partie. Ci-dessous mon code si besoin.
Le code :
Sub AddButtons_Boites()
'Application.ScreenUpdating = False
Dim NewBtn As CommandBarControl
Dim TBar As CommandBar
' Crée la barre d'outils
On Error Resume Next
CommandBars("Nom").Delete
On Error GoTo 0
Set TBar = CommandBars.Add
With TBar
.Name = "Nom"
.Position = msoBarDown
.Visible = True
End With
' Icône et légende habillée en dessous
Set NewBtn = CommandBars("Nom").Controls.Add(Type:=msoControlButton)
With NewBtn
.BeginGroup = True
.Style = msoButtonIconAndWrapCaptionBelow
.Caption = "Remplissage des étapes"
.FaceId = 620
.OnAction = "lignesansetapes"
End With
Set NewBtn = CommandBars("Nom").Controls.Add(Type:=msoControlButton)
With NewBtn
.BeginGroup = True
.Style = msoButtonIconAndWrapCaptionBelow
.Caption = "Rythme de Travail"
.FaceId = 140
.OnAction = "Rythme_Travail"
End With
End With
End Sub
Bonjour,
Je veux avoir un commentaire lorsque je survole le bouton...
C'est la propriété "TooltipText"
Bonjour Theze,
Merci pour votre retour. Bon je suis débutant dans VBA, dont j'ai essayé d'ajouter des lignes à mon programme mais la bulle ne s'affiche pas.
Ci-dessous mon programme avec TooltipText, pourriez vous me le corriger ? merci d'avance.
Sub AddButtons_Boites()
'Application.ScreenUpdating = False
Dim NewBtn As CommandBarControl
Dim TBar As CommandBar
' Crée la barre d'outils
On Error Resume Next
CommandBars("Nom").Delete
On Error GoTo 0
Set TBar = CommandBars.Add
With TBar
.Name = "Nom"
.Position = msoBarDown
.Visible = True
End With
' Icône et légende habillée en dessous
Set NewBtn = CommandBars("Nom").Controls.Add(Type:=msoControlButton)
With NewBtn
.BeginGroup = True
.Style = msoButtonIconAndWrapCaptionBelow
.Caption = "Remplissage des étapes"
.FaceId = 620
.OnAction = "lignesansetapes"
End With
End Sub
Set myMenuBar = CommandBars.ActiveMenuBar
Set lastCtrl = myMenuBar _
.Controls(myMenuBar.Controls.Count)
lastCtrl.BeginGroup = True
lastCtrl.TooltipText = "Click for help on UI feature"
Set NewBtn = CommandBars("Nom").Controls.Add(Type:=msoControlButton)
With NewBtn
.BeginGroup = True
.Style = msoButtonIconAndWrapCaptionBelow
.Caption = "Rythme de Travail"
.FaceId = 140
.OnAction = "Rythme_Travail"
End With
End With
End Sub
Bonjour,
Voici le premier code posté avec la propriété "ToolTipText" paramétrée pour les deux boutons :
Sub AddButtons_Boites()
'Application.ScreenUpdating = False
Dim NewBtn As CommandBarControl
Dim TBar As CommandBar
On Error Resume Next
CommandBars("Nom").Delete
On Error GoTo 0
'Crée la barre d'outils
Set TBar = CommandBars.Add
With TBar
.Name = "Nom"
.Position = msoBarDown
.Visible = True
End With
' Icône et légende habillée en dessous
Set NewBtn = CommandBars("Nom").Controls.Add(Type:=msoControlButton)
With NewBtn
.Visible = True
.BeginGroup = True
.Style = msoButtonIconAndWrapCaptionBelow
.Caption = "Remplissage des étapes"
.TooltipText = "Commentaire pour le test au survol du premier bouton !"
.FaceId = 620
.OnAction = "lignesansetapes"
End With
Set NewBtn = CommandBars("Nom").Controls.Add(Type:=msoControlButton)
With NewBtn
.BeginGroup = True
.Style = msoButtonIconAndWrapCaptionBelow
.Caption = "Rythme de Travail"
.TooltipText = "Commentaire pour le test au survol du second bouton !"
.FaceId = 140
.OnAction = "Rythme_Travail"
End With
End SubParfait, ça maaaaarche mercii Bcp
Re,
content de t'avoir aidé