CONCATENER en gardant le lien Hypertexte

[TheProdigy]

Bonjour à tous,

Je voudrais CONCATENER tout en gardant le lien hypertexte. Est-ce possible?

Merci.

 

[Catrice]

Re : CONCATENER en gardant le lien Hypertexte

Bonjour,

essaie ceci :

=LIEN_HYPERTEXTE(B1;TEXTE(A1;"jj-mm-aaaa")&" "&B1)

 

[JNP]

Re : CONCATENER en gardant le lien Hypertexte

Bonjour Adilpodigy, Catrice 🙂,
Chez moi, ça ne fonctionne pas car c'est le texte de la cellule qui est pris comme lien, et non le lien de la cellule (je pense 😉). Par contre, à condition de mettre la vrai adresse en D1

=LIEN_HYPERTEXTE(D1;TEXTE(A1;"jj-mm-aaaa")&" "&B1)

fonctionne.
Bonne soirée 😎

 

[TheProdigy]

Re : CONCATENER en gardant le lien Hypertexte

Merci à tous
Et comment mettre la vrai adresse? en D1 copier le lien Hypertexte de B1?
Merci

 

[Cousinhub]

Re : CONCATENER en gardant le lien Hypertexte

Bonjour,

pour récupérer l'adresse du lien, une petite fonction personnalisée...

A coller dans un module (Alt + F11)

Public Function ObtenirAdresseLien(Plg As Range)
Dim Hl As Hyperlink
  ObtenirAdresseLien = ""
  For Each Hl In ActiveSheet.Hyperlinks
    Set i = Intersect(Hl.Range, Plg)
    If Not i Is Nothing Then
      ObtenirAdresseLien = Hl.Address
      Exit For
    End If
  Next
End Function

et dans ta cellule de concaténation :

=LIEN_HYPERTEXTE(ObtenirAdresseLien(B1);TEXTE(A1;"jj-mmmm-aa")&" "&B1)

Regarde le fichier..

 

[Monique]

Re : CONCATENER en gardant le lien Hypertexte

Bonjour,

Par des chemins détournés

Copier la colonne B sur la colonne D
Sans rien effacer, taper en D1,
à gauche de "Relatif au etc" :
=TEXTE(A1;"jj-mmm-aa ")&B1
Supprimer ce qui reste à droite de la formule en D1, valider
Le lien est conservé

Copier D1
Sélectionner toutes les cellules D2 : D12 ou plus
Puis Edition - Collage spécial - Formules

 

[la lozere]

Re : CONCATENER en gardant le lien Hypertexte

Bonjour,
La solution/fonction de bhbh est exactement ce que je recherche mais apparemment elle ne fonctionne que lorsque l'on se trouve sur une seule feuille.
Dans mon cas, je dois aller chercher un lien hypertexte dans une autre feuille et, cela ne marche pas.

Par exemple, dans la cellule A1de feuil1, je dois aller chercher le lien hypertexte de la cellule A1 de feuil2.

Une idée pour modifier le code?
Merci.

 

[la lozere]

Re : CONCATENER en gardant le lien Hypertexte

Un petit up pour mon problème,

J'en profite pour joindre un exemple.
- Sur la feuille 1, la cellule A1 avec le lien de base,
- La récupération du lien qui marche sur la feuille 1 en A5,
- La récupération du lien qui ne marche pas sur la feuille 2 en A1,

Merci à vous,

 

[la lozere]

Re : CONCATENER en gardant le lien Hypertexte

re,
Alors pour ceux que cela intéresse, j'ai trouvé ici la réponse à mon problème.
Le code qui va bien est:

Function GetURL(rng As Range) As String
On Error Resume Next
GetURL = rng.Hyperlinks(1).Address
End Function

A plus.

 

[TheProdigy]

Re : CONCATENER en gardant le lien Hypertexte

Merci à tous.