Microsoft 365 ASSEMB.V et lien hypertexte

[Sissou71]

Bonjour,

J'ai 2 tableaux chacun comportant une colonne avec un lien hypertexte. Ce lien fonctionne (est cliquable) dans chacun des tableaux par contre quand j'assemble les 2 tableaux avec ASSEMB.V dans le nouveau tableau créé ce lien ne fonctionne plus il est considéré comme du format standard.
A réflexion ca me semble normal mais y aurait-il un moyen pour que ce lien fonctionne avec ASSEMB.V (on ne sait jamais 🙂 ) ?

 

[job75]

Bonjour Sissou71,

Je n'ai pas la fonction ASSEMB.V mais je vais essayer quand même de vous aider.

Supposons que les 2 tableaux sont des tableaux structurés nommés Tableau1 et Tableau2.

Tableau3 est le tableau structuré des résultats.

Exécutez alors cette macro :

Sub CopierLiens()
Dim T1 As Range, T2 As Range, T3 As Range, h As Hyperlink, c As Range
Set T1 = [Tableau1]: Set T2 = [Tableau2]: Set T3 = [Tableau3] 'tableaux structurés
T3.Hyperlinks.Delete 'RAZ
For Each h In T1.Hyperlinks
    Set c = h.Parent
    T3.Hyperlinks.Add T3.Cells(c.Row - T1.Row + 1, c.Column - T1.Column + 1), h.Address, h.SubAddress
Next h
For Each h In T2.Hyperlinks
    Set c = h.Parent
    T3.Hyperlinks.Add T3.Cells(T1.Rows.Count + c.Row - T2.Row + 1, c.Column - T2.Column + 1), h.Address, h.SubAddress
Next h
End Sub

Edit 1 : j'ai créé les variables T1 T2 T3 c'est nettement plus rapide.

Edit 2 : la formule créant Tableau3 doit être bien sûr =ASSEMB.V(Tableau1;Tableau2)

A+

 

[job75]

Bonjour le forum,

Sissou71 me dit que son patron ne veut pas de macro et que les liens sont créés par formules.

Le problème n'est plus beaucoup intéressant mais bon voyez la petite gymnastique du fichier joint.

A+