Microsoft 365 Infobulle

Eric C

XLDnaute Barbatruc

• 22 Avril 2024

• #2

Bonjour le forum
Bonjour Philippe17

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

 

Vote positif 0 Vote négatif

Philippe17

XLDnaute Occasionnel

• 22 Avril 2024

• #3

Bonjour Eric C,
Merci, je regarde,

Philippe 😇

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 23 Avril 2024

• #4

Bonjour le forum

Et donc ???

 

Vote positif 0 Vote négatif

Philippe17

XLDnaute Occasionnel

• 23 Avril 2024

• #5

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 😇

 

Vote positif 0 Vote négatif

C

crocrocro

XLDnaute Impliqué

• 23 Avril 2024

• #6

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

VB:

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

 

Vote positif 0 Vote négatif

Philippe17

XLDnaute Occasionnel

• 23 Avril 2024

• #7

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 😇

 

Pièces jointes

• Bouton1.xlsm

  30.9 KB · Affichages: 4

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Avril 2024

• #8

Bonjour à tous,

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

VB:

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+

 

Pièces jointes

• Bouton1.xlsm

  34 KB · Affichages: 10

Vote positif 0 Vote négatif

Solution

Philippe17

XLDnaute Occasionnel

• 23 Avril 2024

• #9

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 😇

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Avril 2024

• #10

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

 

Vote positif 0 Vote négatif