XL 2013 Double clique cellule texte lance lien

C

Caillou

XLDnaute Impliqué

• 21 Septembre 2015

• #2

Re : Double clique cellule texte lance lien

Bonjour,

Essayes cette procédure.
(à copier sur le module de la feuille contenant les liens)

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Target.Offset(0, -1).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Cancel = True
End Sub

Caillou

 

Vote positif 0 Vote négatif

V

viking58

XLDnaute Nouveau

• 21 Septembre 2015

• #3

Re : Double clique cellule texte lance lien

Merci Caillou.

Excel me renvoie:

"Erreur d'exécution '9'
L'indice n'appartient pas à la sélection.

 

Pièces jointes

• 2015-09-21 16_07_26-TablesCharg.xlsm - Excel.jpg

  40.9 KB · Affichages: 19

Vote positif 0 Vote négatif

C

Caillou

XLDnaute Impliqué

• 21 Septembre 2015

• #4

Re : Double clique cellule texte lance lien

Pour répondre, il me faut le fichier !
Par contre, dans mon exemple, les liens doivent exister en colonne A et le double clic réalisé sur la meme ligne en colonne B.
On peut rajouter

Code:

On Error Resume Next

au début du code

 

Vote positif 0 Vote négatif

V

viking58

XLDnaute Nouveau

• 21 Septembre 2015

• #5

Re : Double clique cellule texte lance lien

Merci Caillou.
Je mets précieusement de coté votre solution.
Je travaille sur plusieurs manières de traiter les liens hypertexte.

Bonne soirée

 

Vote positif 0 Vote négatif