lien hyperexte

[patine]

Bonjour,

Dans un classeur, j'ai une liste de film en colonne A

la colone A s'appelle Titre, et dessous on trouve des titre de filmes trier par ordre alphabéthique :

Colonne A

titre

2 fast 2 furious
2000 Le bon numéro
40 jours et 40 nuits
7 Ans de Mariage
Amen
American Beauty
American Pie 3
Amour et Amnésie
Antitrust

j'aimerai que ces titres soit des liens hypertexte qui renvoie vers le discriptif du film sur Allocine. La recherche d'allocine est : Recherche

donc le lien de la première ligne de titre devrais renvoyer vers :

Recherche : 2 fast 2 furious

et ainsi dessuite, cette procédure devrais étre répéter toute la colone A et prendre la valeur de fin de l'adresse http le titre du filme.

Voila.

Merci beaucoup et bonne fêtes de fin d'années.

Patine

 

[kiki29]

Re : lien hyperexte

Jour Bon, tu pourrais fournir un échantillon de ce que tu as déjà fait
j'ai la solution mais j'attends un peu avant de te la donner toute cuite

 

[myDearFriend!]

Re : lien hyperexte

Bonjour patine, le Forum,

Si j'ai bien compris le problème...

Tu trouveras ci-joint une façon de faire.

J'ai utilisé le code VBA suivant :

[COLOR=GRAY][B][I]DANS UN MODULE DE CODE STANDARD[/I][/B][/COLOR]

[COLOR=NAVY]Sub[/COLOR] CreerLienHyp()
[COLOR=GREEN]'myDearFriend!  -  www.mdf-xlpages.com[/COLOR]
[COLOR=NAVY]Dim[/COLOR] Lmax [COLOR=NAVY]As Long[/COLOR], L [COLOR=NAVY]As Long
    With[/COLOR] Sheets("Feuil1")
        Lmax = .Range("A65536").[COLOR=NAVY]End[/COLOR](xlUp).Row
        [COLOR=NAVY]For[/COLOR] L = 2 [COLOR=NAVY]To[/COLOR] Lmax
            .Hyperlinks.Add Anchor:=.Cells(L, 1), Address:= _
                "http://www.allocine.fr/recherche/?motcle=" & Replace(.Cells(L, 1).Text, " ", "+"), _
                TextToDisplay:=.Cells(L, 1).Text
        [COLOR=NAVY]Next[/COLOR] L
    [COLOR=NAVY]End With
End Sub[/COLOR]

Cordialement,

EDITION : pardon et bonjour kiki29, je ne t'avais pas vu arriver...

 

[kiki29]

Re : lien hyperexte

Soir Bon, comme promis même si c'est quasiment comme celle de mydearfriend