Ouverture des liens hypertext par un doucle-clic au lieu du simple clic

[Gci]

Bonjour à tout le Forum

A ma connaissance, rien n'est prévu dans les options pour paramétrer l'ouverture des liens hypertexte.

Est-il possible par un lien détourné de pouvoir remplacer le simple clic par un double clic
Car c'est très désagréable d'ouvrir ce lien hypertexte lorsque que l'on juste besoin de sélectionner la cellule !

Merci

A+

 

[Gci]

Re : Ouverture des liens hypertext par un doucle-clic au lieu du simple clic

Bonjour Job

Je viens d’essayer la 1ère solution
C’est tout simplement formidable !!!
Pas le temps de dire ouf ! Tout est accompli 😛

Juste à adapter le double-clic, puisque j’avais déjà un double-clic dans ma feuille
Et le tour est joué.

Juste un petit problème quand même
C’est que je vais devoir rentrer un "" dans toute la colonne AL pour toutes les cellules à droite des liens qui ne sont pas vides
Car autrement le lien dépasse !

Mais c'est un problème récurant sur Excel cette histoire de débordement sur les cellules de droite.

A+

 

[job75]

Re : Ouverture des liens hypertext par un doucle-clic au lieu du simple clic

Re,

Juste un petit problème quand même
C’est que je vais devoir rentrer un "" dans toute la colonne AL pour toutes les cellules à droite des liens qui ne sont pas vides
Car autrement le lien dépasse !

Ajouter juste 2 lignes dans la macro Transfert :

Sub Transfert(Source As Range, col_dest%)
Dim h As Hyperlink
Application.ScreenUpdating = False
With Source
  .Copy
  .Columns(col_dest).PasteSpecial xlPasteFormats 'stockage des formats
  For Each h In .Hyperlinks
    h.Parent(1, col_dest) = h.Address
    h.Delete
  Next
  .Columns(col_dest).Copy
  .PasteSpecial xlPasteFormats 'restitution des formats
  .Cells(1).Select
  On Error Resume Next 'si aucune cellule vide
  .Columns(col_dest + 1).Cells.SpecialCells(xlCellTypeBlanks) = "=""""" 'colonne AL
End With
Application.CutCopyMode = False
End Sub

A+

 

[Gci]

Re : Ouverture des liens hypertext par un doucle-clic au lieu du simple clic

Bonsoir Job

Je viens d'installer la macro avec les 2 lignes de codes supplémentaires
C'est parfait

Je ne pensais franchement pas arrivé à cette perfection au départ
j'avais un peu peur de tout planter mon tableau
C'est donc une très grande satisfaction pour moi
Car la manipulation va s'en trouver nettement plus confortable

J'ai bien eu peur en testant la macro, car cela plantait au niveau de

ThisWorkbook.FollowHyperlink Target(1, col_dest)

Mais cela est du en fait quand il y a un lien mort ou un lien erroné
La macro cherche donc à ouvrir un lien qui n'existe pas ou plus
et cela plante

Merci beaucoup
A+