XL 2019 un lien vers un site web

goube

XLDnaute Accro

• 6 Février 2021

• #2

Bonsoir,

Tu as oublier LIEN_HYPERTEXTE
=LIEN_HYPERTEXTE("http://www.crds.fr/jouer/?ref="&C5&"&alea=8")
Cordialement.

 

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 6 Février 2021

• #3

Bonsoir goube,

oui mais il faut que je colle l'adresse URL à chaque fois. C'est justement ce que je ne veux pas faire.
Si je change le nombre, l'ancien adresse s'ouvrira.
A plus

 

Vote positif 0 Vote négatif

goube

XLDnaute Accro

• 6 Février 2021

• #4

Re,
je ne comprends pas , ta formule se mettra à jour à chaque changement de la cellule C5.
Ce n'est pas ce que tu voulais ?
Cordialement.

 

Vote positif 1 Vote négatif

Caninge

XLDnaute Accro

• 6 Février 2021

• #5

Pas tout fait,
La formule se mettra à jour OK !
Mais il faudra modifier à chaque fois l'adresse du lien.
Clic droit / lien / adresse

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 6 Février 2021

• #6

Bonsoir @Caninge, goube,

ton fichier en retour.

* en C4, saisis : 097919 et valide ; vu ?

* en C4, change 79 par 45 et valide ; c'est ok ?

* toujours en C4, appuie sur la touche Suppression

à te lire pour avoir ton avis.

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
    If .CountLarge > 1 Then Exit Sub
    If .Address <> "$C$4" Then Exit Sub
    If .Value = "" Then .Offset(, 1).ClearContents: Exit Sub
    .Offset(, 1).Formula = "=HYPERLINK(""http://www.crds.fr/jouer/?ref=" & .Value & "&alea=8"")"
  End With
End Sub

soan

 

Pièces jointes

• Lien vers le Web.xlsm

  19.1 KB · Affichages: 8

Dernière édition: 7 Février 2021

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Février 2021

• #7

Bonsoir,

Caninge à dit:

Pas tout fait,
La formule se mettra à jour OK !
Mais il faudra modifier à chaque fois l'adresse du lien.
Clic droit / lien / adresse

Cliquez pour agrandir...

Pas du tout, l'adresse du lien est créée par la fonction LIEN_HYPERTEXTE, c'est pourtant évident.

A+

 

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 7 Février 2021

• #8

Bonsoir soan,

je regarderais demain.

Merci et bonne nuit.

CANINGE

 

Vote positif 0 Vote négatif

goube

XLDnaute Accro

• 7 Février 2021

• #9

RE,
Merci job75, je me sens moins seul.
Cordialement.

 

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 7 Février 2021

• #10

Bonjour goube, job75,soan

la solution de soan me convient très bien. C'est exactement que je voulais.

Merci et bon dimanche à vous trois.

CANINGE

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 7 Février 2021

• #11

Bonjour Caninge, le fil,

merci pour ton retour ! bon dimanche à toi aussi.

soan

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Février 2021

• #12

Bonjour Caninge, le forum,

Je ne vois vraiment pas l'intérêt du VBA pour entrer la formule LIEN_HYPERTEXTE dans la feuille.

Une fois que cette formule a été entrée manuellement il ne faut plus y toucher.

Par contre il faut la compléter en D5 pour le cas où C5 est vide :

VB:

=SI(C5="";"";LIEN_HYPERTEXTE("http://www.crds.fr/jouer/?ref="&C5&"&alea=8"))

qu'on peut aussi écrire :

VB:

=LIEN_HYPERTEXTE(REPT("http://www.crds.fr/jouer/?ref="&C5&"&alea=8";C5<>""))

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Février 2021

• #13

Cela dit il n'est pas du tout indispensable de créer un lien dans la feuille.

Mais alors là il faut du VBA :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And IsNumeric(CStr(Target(1))) Then _
    ThisWorkbook.FollowHyperlink "http://www.crds.fr/jouer/?ref=" & Format(Target(1), "000000") & "&alea=8"
End Sub

Entrez en colonne C une valeur numérique.

 

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 8 Février 2021

• #14

Bonjour Job75, le Forum,
j'ai repris votre solution qui me semble bien aussi.
Comme j'ai deux fichiers identiques, J'ai mis la solution de soan dans le premier et la votre dans le deuxième.
Merci.
Bonne journée.
CANINGE

 

Vote positif 0 Vote négatif