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
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
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