Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Passer un attribut dans un lien hypertexte

1 réponse
Avatar
phb81
Bonjour,
J'ai un script php qui me permet de rechercher dans des=20
dossiers bien pr=E9cis, des fichiers. Je cherche =E0 faire=20
passer un attribut =E0 ce script. exemple:
Dans mon lien hypertexte, je tape:
http://perseus/Liens/index.php?cherche=3DTOTO fait passer=20
l'attribut TOTO a mon script index.php et ca marche bien.

Le probl=E8me est que je ne connais pas TOTO mais une=20
cellule!
http://perseus/Liens/index.php?cherche=3D C1
Je ne trouve pas la syntaxe permettant de faire passer le=20
contenu de la cellule?

Merci d'avance

Philippe

1 réponse

Avatar
Pierre Fauconnier
Bonsoir

A supposer que la cellule contenant le début du lien est B1 et que la
cellule contenant la fin du lien est C1, voici une procédure qui doit être
placée dans le module de la feuille concernée. Elle intercepte l'évènement
de changement de valeur et si la cellule changée est C1, elle adapte le lien
hypertexte de B1.
Il faut adapter les cellules à ton cas, bien entendu.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("c1")) Is Nothing Then _
Range("b1").Hyperlinks(1).Address = _
"http://perseus/Liens/index.php?cherche=" & Range("c1")
End Sub


--
Cela convient-il?
----
Pierre Fauconnier
"C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..."
(remplacer NOSPAM par pfi pour me répondre. Merci)


phb81 wrote:
Bonjour,
J'ai un script php qui me permet de rechercher dans des
dossiers bien précis, des fichiers. Je cherche à faire
passer un attribut à ce script. exemple:
Dans mon lien hypertexte, je tape:
http://perseus/Liens/index.php?cherche=TOTO fait passer
l'attribut TOTO a mon script index.php et ca marche bien.

Le problème est que je ne connais pas TOTO mais une
cellule!
http://perseus/Liens/index.php?cherche= C1
Je ne trouve pas la syntaxe permettant de faire passer le
contenu de la cellule?

Merci d'avance

Philippe