XL 2019 un lien vers un site web

[Caninge]

Bonsoir à tous,

dans la cellule D5 j'ai réussi à mettre au milieu de la formule le nombre qui se trouve dans la cellule C5.
Ce qui me donne une adresse URL.
je ne peux pas continuer, je n'arrive pas à trouver la solution.
Une fois que le nombre C5 est écrit comment faire pour aller automatiquement sur l'adresse URL, soit tout de suite ou bien avec un bouton.
Comme dans la cellule D12.
Merci de m'éclairer.
CANINGE

 

[goube]

Bonsoir,

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

 

[Caninge]

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

 

[goube]

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.

 

[Caninge]

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

 

[soan]

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.

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

 

[job75]

Bonsoir,

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

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

A+

 

[Caninge]

Bonsoir soan,

je regarderais demain.

Merci et bonne nuit.

CANINGE

 

[goube]

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

 

[Caninge]

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

 

[soan]

Bonjour Caninge, le fil,

merci pour ton retour ! bon dimanche à toi aussi.

soan

 

[job75]

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 :

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

qu'on peut aussi écrire :

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

A+

 

[job75]

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

Mais alors là il faut du VBA :

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.

 

[Caninge]

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