Discussion :

[TotoRhino]

Bonjour,

Voici mon besoin…
J’ai un tableau Excel de clients, dans lequel je cherche à créer des liens hypertexte pour afficher leur compte de notre base de données (application web via un navigateur).
Je dois créer un lien hypertexte en concaténant les données d’une ou plusieurs cellules.

Je me sers donc de la fonction CONCATENER, ce qui donne ce genre de chose :

Code formule :

Sélectionner tout - Visualiser dans une fenêtre à part

=CONCATENER("=LIEN_HYPERTEXTE("""&"http://lien/"&B3&"suite du lien""" &";"&B3&")")

B3 contient un numéro de compte client. Cette donnée étant contenue dans l’URL, il me faut la récupérer dans mon tableau.
Jusque-là, pas de souci. Sauf que le but est de supprimer les cellules auxquelles je fais référence dans les liens (B3 dans l’exemple) ; le lien ne doit donc plus être une concaténation, mais le lien en « dur » qui affichera ce que contenait B3.

J’ai donc tenté de copier la formule en ne retenant que les valeurs et ça marche… presque. La valeur de la formule est bien copiée dans la cellule de réception, mais celle-ci n’est pas considérée comme un lien. Elle s’affiche comme du texte non cliquable de cette façon :

Code formule :

Sélectionner tout - Visualiser dans une fenêtre à part

=LIEN_HYPERTEXTE("http://lien/6301292/suite du lien";6301292)

Alors que je voudrais un lien hypertexte qui s’affiche ainsi :
6301292
Pour qu’elle soit considérée comme un lien, il faut que je mette la cellule en mode modification (F2) et que je valide « tout simplement » pour que la cellule soit bien formatée.

Bon, si je n’avais qu’une cellule, ce serait vite fait bien fait, mais j’en ai 40.000, et là ça devient bien lourd. J’ai cherché sur le net, mais je n’ai pas trouvé de fonction qui permet de formater un texte en lien hypertexte.

J’ai trouvé un palliatif qui est le suivant : je sélectionne toute la colonne et tente de convertir les données ; la fenêtre « Assistant conversion » s’affiche alors et il me suffit de cliquer sur le bouton « Terminer » pour que les données soient converties… Mais dans ce cas, le contenu de la première cellule est recopié dans toutes les autres cellules ! Mais j’ai trouvé une solution de contournement : il suffit d’annuler la dernière fonction (Contrôle + Z) pour que les cellules affichent les bonnes références (ne me demandez pas pourquoi…). Fort de cette trouvaille, j’ai tenté avec l’enregistreur de macro de récupérer le code, mais… ça ne fonctionne pas.

La seule solution que j’ai trouvée est de simuler l’appui des touches avec SendKeys, mais comme ce n’est pas première fois que je suis confronté au problème, je me demandais s’il n’y avait pas une solution plus propre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Hypertexte()
'Mettre au format "lien hypertexte"
'Utilisation de la simulation d'appuie de touches
'Sélectionner la feuille
Worksheets("EtatSoldes").Activate
'Sélectionner la cellule de départ
Range("y2").Select
'Etendre la sélection à toute la colonne
Range(Selection, Selection.End(xlDown)).Select
'Simulation des touches
SendKeys "%"
SendKeys "é"
SendKeys "o"
SendKeys "t"
''Simulation des touches "Contrôle + Z"
'pour annuler la dernière fonction, c'est la seule façon
'pour que ça marche
SendKeys "^z"
End Sub

[tototiti2008]

Bonjour,

Je dois créer un lien hypertexte en concaténant les données d’une ou plusieurs cellules.

Je me sers donc de la fonction CONCATENER, ce qui donne ce genre de chose :

Code formule :

Sélectionner tout - Visualiser dans une fenêtre à part

=CONCATENER("=LIEN_HYPERTEXTE("""&"http://lien/"&B3&"suite du lien""" &";"&B3&")")

ça me semble compliqué, j'aurais plutôt mis la formule

Code formule :

Sélectionner tout - Visualiser dans une fenêtre à part

=LIEN_HYPERTEXTE("http://lien/"&B3&"suite du lien";B3)

[tototiti2008]

Re,

Je crois que j'ai enfin compris
La question est, si au bout on est contraint de passer par une macro, pourquoi ne pas faire une macro qui crée directement les liens hypertexte ?

bon, sinon pour répondre directement, tu peux essayer une macro du type (en ayant sélectionné tes cellules)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Sub test()    
Selection.FormulaLocal = Selection.Value
End Sub

[TotoRhino]

Merci tototiti2008 mais... ça ne fonctionne pas.
En effet, comme dit plus haut, le contenu de la première cellule est recopié dans toutes les autres cellules ! Et là, ma solution de contournement ne fonctionne pas : Impossible d’annuler la dernière action lors de l'exécution d'une macro .

[tototiti2008]

Re,

Le soucis vient du tableau structuré (insertion-tableau) qui recopie la formule par défaut

à tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Sub ConvLien()
Dim C As Range
    Application.AutoCorrect.AutoFillFormulasInLists = False
    With ActiveSheet.ListObjects(1).ListColumns("Colonne2").DataBodyRange
        For Each C In .Cells
            C.FormulaLocal = C.Value
        Next
    End With
    Application.AutoCorrect.AutoFillFormulasInLists = True
End Sub

[tototiti2008]

Re,

Sinon, l'approche création de lien directe

[TotoRhino]

J'ai regardé le fichier joint, et ta macro me plait bien !

Mais là, c'est le WE et je suis chez moi, je verrai ça en détail lundi et je te dis.

Merci encore et bon week-end !

[TotoRhino]

La macro pour créer directement son lien hypertexte est exactement ce qu'il me faut.

Une petite réponse à :
"ça me semble compliqué, j'aurais plutôt mis la formule"

Effectivement, je ne vois pas pourquoi j'ai utilisé la fonction concaténer, j'étais sûrement parti sur cette base au début de mes réflexions et y suis resté sans chercher à optimiser, et c'est vrai que ça complique inutilement.

Bref, j'ai une solution à mon problème, alors un grand merci à tototiti2008 !

[Philippe Tulliez]

Bonjour,

En effet, comme dit plus haut, le contenu de la première cellule est recopié dans toutes les autres cellules ! Et là, ma solution de contournement ne fonctionne pas : Impossible d’annuler la dernière action lors de l'exécution d'une macro

Je sais que cette discussion est clôturée mais cette réponse m'a interpellée.

L'utilisation de la fonction LIEN_HYPERTEXTE permet justement de se passer d'un code VBA en ayant une liaison dynamique et le fait de l'intégrer dans un tableau structuré ajoute encore plus ce côté dynamique.

Lorsque je dispense mes formations Excel ou VBA, j'ai un classeur avec des liens qui permettent aux personnes qui ont suivi la formation de pouvoir consulter notamment les tutoriels présents sur développez.com
Comme cette liste peut grandir en fonction de nouveaux tutoriels qui s'ajoutent au fil du temps, j'ai juste à remplir les éléments dans les cellules concernées pour qu'automatiquement le lien devienne prêt à être utilisé et ce sans une ligne de code VBA

Dans l'illustration ci-dessous, la formule se trouve en colonne C

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(NBVAL(T_Tutoriel[@[Titre]:[URL]])=2;LIEN_HYPERTEXTE([@URL];[@Titre] & " - [" & [@Auteur] & "]");"")

Je cache les colonnes de D à F afin que les personnes n'aient en visuel que les colonnes A à C et puissent cliquer pour aller sur la page du tutoriel
Je fais la même chose pour certaines contributions et billets de mon blog

[TotoRhino]

Merci pour ce complément d'information.

J'apprécie l'utilisation de fonctions moi aussi, ça me permet de ne pas trop utiliser le VBA que je ne maîtrise pas, mais... il m'en faut quand même un peu, surtout dans ce cas.

J'avais aussi pensé à cacher les colonnes, mais dans ce cas précis je ne veux pas le faire surtout pour un problème de place :

1. 45.000 lignes, ça commence à faire et j'ai 7 liens à créer, donc 7 colonnes à doubler,
2. Si pour commencer j'aurai à traiter un classeur par semaine, le but final est de le faire quotidiennement et chaque fichier sera historisé,
3. Chaque classeur sera scindé en 6,
4. Des statistiques (au moins annuelles) sont aussi envisagées, il va donc falloir que je sauvegardes certaines données tous les jours dans un fichier destinée qu'à ça.

Et je crains que certains utilisateurs n'arrivent à afficher les dites colonnes sans le vouloir et mettre le bazard

Mais l'idée est bonne et suffisante dans bien des cas, merci de le rappeler.