Concaténer deux cellules en vue de créer une cellule hyperlink

Bonjour à tous,

si je sais extraire les valeurs d'une cellule hyperlink, je suis, après des heures de recherches et autant d'essais infructueux, incapable réaliser l'opération inverse.

Dans la pratique, mon tableau Excel comporte 3 colonnes :

A - Marque
B - Modele
C - Lien_Site

Il s'agit d'un exemple. Pour des raisons de confidentialité, je ne peux communiquer le contenu réel.

Résultat souhaité :

B --> cellule hyperlink avec texte de B et lien de C.

A tout hasard, j'ai bidouillé ma macro d'extraction en la modifiant comme suit :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub concatenation Dim Cell As range On Error Resume Next   'Cellule Modele For Each Cell In range("B1:B" & range("B65536").End(xlUp).Row)   Cell.Hyperlinks(1).Address = Cell.Offset(0, 0) Cell.Hyperlinks(2).Address = Cell.Offset(0, 1)   Next Cell   End Sub

---

Bien entendu, cela ne fonctionne pas.

J'ai besoin d'un coup de main, car je ne me vois pas concaténer 4000 entrées manuellement.

Merci d'avance de toute aide.


Cordialement
Pascal

Bonjour,

Je comprend pas vraiment ce que vous voulez faire. Vous souhaitez crée les liens hypertextes dans B à partir de l'info dans C ?

Avec ce code vous devriez pouvoir faire cela

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub concatenation() Dim Cell As Range On Error Resume Next   With Sheet2   For Each Cell In .Range("B1:B" & Range("B65536").End(xlUp).Row)   .Hyperlinks.Add Cell, Cell.Offset(0, 1), , , Cell.Value   Next Cell   End With   End Sub

---

A+

John

Bonjour,

Si j'ai bien compris, le but est de garder le texte qu'il y a dans la colonne B et ajouter un lien hypertexte, dont l'adresse se situe en colonne C.
J'ai fait un rapide essai avec l'enregistreur de macro. Ceci permet de mettre un lien hypertexte sur la cellule B4 sans modifier la valeur de cette cellule :

Code:

---

ActiveSheet.Hyperlinks.Add Anchor:=Range("B4"), Address:="C:\le chemin vers mon fichier"

---

A adapter à ton code :)

Pour info, j'ai fait le test pour savoir comment modifier le texte à afficher :

Code:

---

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="C:\le chemin vers mon fichier", TextToDisplay:="un texte"

---

C'est la propriété TextToDisplay qui permet de faire cela. Si tu n'y mets pas de texte, cela garde le texte initial de la cellule.

Bonjour à tous,

pris par d'autres occupations, je n'ai pas eu le temps de consulter les réponses à mon appel d'aide avant aujourd'hui. Merci déjà de vos réponses.

Citation:

---

Envoyé par riaolle

Si j'ai bien compris, le but est de garder le texte qu'il y a dans la colonne B et ajouter un lien hypertexte, dont l'adresse se situe en colonne C.

---

C'est exactement ça.

Dans cet exemple de travail, j'aurais en cellule A1 la marque du constructeur.
En B1, le modèle.
En C1, un lien vers le site du constructeur qui pointe sur ce modèle.

@John
Merci pour le code. Malheureusement, il ne fonctionne pas. Il va falloir que je fasse différents essais, mais pourquoi "With Sheet2" ?

@riaolle
Avant de me lancer dans du code VBA, j'utilise systématiquement l'enregistreur de macro. Cela peut donner une bonne base à développer éventuellement.

Là où je bloque, c'est justement qu'en utilisant cet éditeur, je suis obligé de mettre du texte, alors que le lien change à chaque ligne. Avec près de 4000 enregistrements, c'est un travail de titan.

Je vais tester votre solution et vous tiendrai au courant.

En tout merci encore et désolé de ne pas avoir pu répondre plus tôt.

Cordialement
Pascal

Re-bonjour,

les solutions butent sur le fait que si je garde bien le texte de la cellule B1, l'adresse hyperlink qui se trouve en C1 n'est pas reprise. Au lieu de cela, l'adresse dans le lien hypertext en B1 pointe vers le classeur .xlxs et non vers la page web désirée (celle en C1).

Je continue à chercher.

Cordialement

Bonjour,

Citation:

---

mais pourquoi "With Sheet2" ?

---

C'est que John a probablement travaillé sur la feuille "Sheet2" pour écrire la procédure. C'est évidemment à adapter à la structure de ton classeur ;)
Pour comprendre la syntaxe With ... End with : https://docs.microsoft.com/en-us/dot...with-statement
Dans mon exemple, j'avais laissé ActiveSheet, car c'est ce que donne l'enregistreur de macro. Il faut l'adapter si tu travailles sur plusieurs feuilles. Mais si tu travailles sur une seule feuille, il n'y a pas trop de risques.

Par rapport au code que tu nous présentes au début, tu pourras intégrer ceci :

Code:

---

ActiveSheet.Hyperlinks.Add Anchor:=Range("B4"), Address:="C:\le chemin vers mon fichier"

---

En adaptant avec ta boucle => remplacer le B4 par la cellule de la boucle et "C:\le chemin vers mon fichier" par la valeur dans la colonne C. Tu pourras utiliser Offset comme tu le fais déjà.

Re,

merci du conseil.

J'avais bien modifié Sheet2 en Sheet1. Malheureusement, du moins pour l'instant, la solution de John ne fait rien. Je continue à tester.

Cordialement
Pascal

Peux-tu nous écrire le code que tu as actuellement et qui ne fais pas ce que tu veux, stp ?
Vers quel classeur est-ce que cela renvoie ?
Peux-tu aussi nous montrer une capture d'écran de ton classeur avec les colonnes, s'il n'y a rien de confidentiel ?
Merci

Bonjour,
Je choisirais la fonction LIEN_HYPERTEXTE qui offre un avantage énorme de pouvoir se passer du VBA

Re,

en fait, le code de John fonctionnait, mais pas si le champ, bien que de format "texte" comprenait des chiffres. Et comme il s'agit des premiers enregistrements dans la liste, je ne suis pas allé voir plus bas;

Voici le code fonctionnel après avoir mis des " ' " devant les chiffres. C'est celui de John.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub concatenation() Dim Cell As Range On Error Resume Next   With Sheet1   For Each Cell In Range("B2:B" & Range("B65536").End(xlUp).Row) ActiveSheet.Hyperlinks.Add Cell, Cell.Offset(0, 2), , , Cell.Value   Next Cell   End With   End Sub

---

Merci à vous tous de l'aide apportée.

Cordialement
Pascal

Bonjour,

Citation:

---

Résultat souhaité :
Cellule hyperlink avec texte de B et lien de C.

---

Manuellement mais bien entendu tout à fait possible de le faire avec VBA :) et de plus si la liste de données est un tableau structuré en une seule instruction

Code:

---

=LIEN_HYPERTEXTE(C2;B2)

---