Microsoft 365 Infobulle

[Philippe17]

Bonjour,

Est-ce possible d'afficher une infobulle sur un bouton d'une macro ?
Je vous souhaite une bonne journée

Philippe

 

[Eric C]

Bonjour le forum
Bonjour Philippe17

Voir ICI .
Bonne journée à toutes & à tous
@+ Eric c

 

[Philippe17]

Bonjour Eric C,
Merci, je regarde,

Philippe

 

[Eric C]

Bonjour le forum

Et donc ???

 

[Philippe17]

Bonjour Eric C,
Excusez-moi du retard pour la réponse, non ça ne me convient pas, mais ce n'est pas important,
Merci pour votre aide,
Bonne journée,

Philippe

 

[crocrocro]

Bonjour Philippe,
un exemple de code pour un bouton nommé "BoutonTest" (de type contrôle ActiveX) sur la feuille courante

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

 

[Philippe17]

Bonjour crocrocro,
Merci pour votre réponse, mais ça ne va pas, j'ai fait un fichier pour voir ce que je voudrais ci-joint,

Philippe

 

[job75]

Bonjour à tous,

Il suffit de créer un lien hypertexte sur chaque objet et d'utiliser cette macro :

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

Je vous laisse la responsabilité de vos 2 macros.

A+

 

[Philippe17]

Bonjour job75,
Merci pour votre réponse, super cool et simple, ça fonctionne très bien et c'est ce que je voulais
Bonne journée,

Philippe

 

[job75]

Je trouve curieux qu'en 2019 personne n'ait songé au lien hypertexte.