Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Valeur dans hyperlien

Valeur dans hyperlien

6 réponses
Avatar
Alain L
Bonjour,

Je voudrais utiliser la valeur d'une cellule pour complété
une adresse web

Exemple de tableau :
ligne 1 : les titres

ensuite les datas

A2: GD360 (= le code du produit)
B2: Tourne 2 vis simultané (= description du produit)
C2: 3599.22 (=le prix en nano-Euro)
D2: www.societe.com/outilsmanuel/viseuse/gd360 (le lien
hypertexte)

Pour un liste de plusieurs centaines de produits, comment
est-il possible de mettre en D2, D3, D4 etc un lien
hypertexte dont la fin reprendrait la variable que constitue
la valeur de A2, A3, A4 etc ?

Merci
Alain
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
FFO
Salut Alain

Quelque chose comme celà :

i = 2
Do While i < Range("A65535").End(xlUp).Offset(1, 0).Row
Range("D" & i) = "www.societe.com/outilsmanuel/viseuse/" & Range("A" & i)
i = i + 1
Loop

Celà devrait convenir

Dis moi !!!!
Avatar
Alain L
Bonsoir,

Désolé c'est pas concaténé que je veux faire mais compléter
le lien hypertexte qu'on peut affecter à une cellule avec un
clic droit.

Merci
Alain

"FFO" a écrit dans le
message de news:

Salut Alain

Quelque chose comme celà :

i = 2
Do While i < Range("A65535").End(xlUp).Offset(1, 0).Row
Range("D" & i) = "www.societe.com/outilsmanuel/viseuse/" &


Range("A" & i)
i = i + 1
Loop

Celà devrait convenir

Dis moi !!!!



Avatar
LE TROLL
ben oui, faut con caténer de telle sorte que l'élément prépondérant soit le
plus pertinent, évidemment :o)

--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.


"Alain L" a écrit dans le message de
news:%
Bonsoir,

Désolé c'est pas concaténé que je veux faire mais compléter
le lien hypertexte qu'on peut affecter à une cellule avec un
clic droit.

Merci
Alain

"FFO" a écrit dans le
message de news:

Salut Alain

Quelque chose comme celà :

i = 2
Do While i < Range("A65535").End(xlUp).Offset(1, 0).Row
Range("D" & i) = "www.societe.com/outilsmanuel/viseuse/" &


Range("A" & i)
i = i + 1
Loop

Celà devrait convenir

Dis moi !!!!







Avatar
FFO
Rebonjour Alain

Peux tu préciser ton attente

Désolé c'est pas concaténé que je veux faire mais compléter
le lien hypertexte qu'on peut affecter à une cellule avec un
clic droit.



Si tu souhaites mettre en place les lien je te propose ceci :

i = 2
Do While i < Range("A65535").End(xlUp).Offset(1, 0).Row
ActiveSheet.Hyperlinks.Add Anchor:=Range("D" & i), Address:= _
"www.societe.com/outilsmanuel/viseuse/" & Range("A" & i),
TextToDisplay:= _
"www.societe.com/outilsmanuel/viseuse/" & Range("A" & i)
i = i + 1
Loop

Est celà que tu souhaites ?????

Dis Moi !!!!!!
Avatar
a
Re re bonsoir

ça marche presque: devant "www.societe....... " se rajoute le Disque:Chemin
du fichier XLS
qué pasa ?

Alain

"FFO" a écrit dans le message de news:

Rebonjour Alain

Peux tu préciser ton attente

Désolé c'est pas concaténé que je veux faire mais compléter
le lien hypertexte qu'on peut affecter à une cellule avec un
clic droit.



Si tu souhaites mettre en place les lien je te propose ceci :

i = 2
Do While i < Range("A65535").End(xlUp).Offset(1, 0).Row
ActiveSheet.Hyperlinks.Add Anchor:=Range("D" & i), Address:= _
"www.societe.com/outilsmanuel/viseuse/" & Range("A" & i),
TextToDisplay:= _
"www.societe.com/outilsmanuel/viseuse/" & Range("A" & i)
i = i + 1
Loop

Est celà que tu souhaites ?????

Dis Moi !!!!!!


Avatar
a
Bonjour,

J'ai trouvé:
mettre "http://" devant "www.societe.com/outilsmanuel/viseuse/" & Range("A"
& i),

A+ et merci FFO
Alain

"a" a écrit dans le message de news:

Re re bonsoir

ça marche presque: devant "www.societe....... " se rajoute le
Disque:Chemin du fichier XLS
qué pasa ?

Alain

"FFO" a écrit dans le message de news:

Rebonjour Alain

Peux tu préciser ton attente

Désolé c'est pas concaténé que je veux faire mais compléter
le lien hypertexte qu'on peut affecter à une cellule avec un
clic droit.



Si tu souhaites mettre en place les lien je te propose ceci :

i = 2
Do While i < Range("A65535").End(xlUp).Offset(1, 0).Row
ActiveSheet.Hyperlinks.Add Anchor:=Range("D" & i), Address:= _
"www.societe.com/outilsmanuel/viseuse/" & Range("A" & i),
TextToDisplay:= _
"www.societe.com/outilsmanuel/viseuse/" & Range("A" & i)
i = i + 1
Loop

Est celà que tu souhaites ?????

Dis Moi !!!!!!