Bonjour,
Est-ce possible d'afficher une infobulle sur un bouton d'une macro ?
Je vous souhaite une bonne journée
Philippe
Est-ce possible d'afficher une infobulle sur un bouton d'une macro ?
Je vous souhaite une bonne journée
Philippe
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A2:A3]) Is Nothing Then Exit Sub
[A1].Select
If Target.Address = "$A$2" Then ecran_grand
If Target.Address = "$A$3" Then ecran_petit
End Sub
Sub TestBulleBouton()
CreerBulle ActiveSheet.Shapes("BoutonTest"), "Pour Tester une macro"
End Sub
Sub CreerBulle(pBouton As Shape, pTexte As String)
' créé une bulle affichée lors du survol à la souris pour une shape passée en paramètre
' - pBouton : le nom de la shape
' - pTexte : le texte à afficher
ActiveSheet.Hyperlinks.Add Anchor:=pBouton, ScreenTip:=pTexte, Address:="", SubAddress:=""
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A2:A3]) Is Nothing Then Exit Sub
[A1].Select
If Target.Address = "$A$2" Then ecran_grand
If Target.Address = "$A$3" Then ecran_petit
End Sub