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 : Sélectionner tout - Visualiser dans une fenêtre à part
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