Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

lien hyperexte

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion patine
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

patine

Guest
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
 
Trier par date Trier par votes
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 :

Code: 
[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...
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…