Microsoft 365 Cohabitation difficile entre lien hypertexte et objet ActiveX

Katido

XLDnaute Occasionnel
Bonjour à tous,

J'ai constaté qu'un lien hypertexte n'était pas toujours opérationnel après activation d'un objet ActiveX.
Voici une config simple qui met en évidence le probème :

Une feuille Excel contient :
Un rectangle avec un lien hypertexte vers la cellule A1 de la feuille
Un bouton ActiveX qui ne fait rien
Une liste ActiveX vide qui ne fait rien non plus
Un bout de code dans la feuille pour mettre en évidence le lien hypertexte :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 1 Then [A2].Select: Beep
End Sub

Quand on appuie sur le rectangle sans avoir clické auparavant sur le bouton ou la liste, tout se passe très bien, à savoir que A1 est sélectionné puis aussitôt A2, et on entend le bip.
Ça peut marcher aussi plusieurs fois de suite.
Mais dès qu'on clicke sur le bouton ou la liste, après ça ne marche plus : on a beau appuyer comme un bourrin sur le rectangle, le lien reste inactif.

À ce stade, si on sélectionne une cellule quelconque de la feuille, le lien se retrouve revalidé et ça remarche !

Je ne sais pas vous mais moi je trouve ça bizarre...


----------------------

J'ai trouvé des parades, mais qui sont particulièrement fantaisites, par exemple :
Private Sub Bouton_Click()
Bouton.Visible = False: Bouton.Visible = True
End Sub
ou encore
Private Sub Bouton_Click()
Selection.Select
End Sub

Autre bizarrerie : après un blocage en clickant sur la liste, si on clicke sur le bouton avec la parade "visible=False/True", ça remarche !
 

Pièces jointes

  • Lien Hypertexte et ActiveX.xlsm
    22.1 KB · Affichages: 1

sousou

XLDnaute Barbatruc
Bonjour
Lorsque tu click sur le bouton tu perd ta sélection, et comme tu utilise worksheet selection change, plus rien.
essaie en ajoutant selection. select
Private Sub Bouton_Click()
'Bouton.Visible = False: Bouton.Visible = True
Selection.Select
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
313 219
Messages
2 096 309
Membres
106 566
dernier inscrit
Fabiens