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

Macro pour insertion automatique de liens hypertexte

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion tacite56
  • 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
T

tacite56

XLDnaute Nouveau
Bonjour,

j'avais déjà posté il y a quelques temps sur le forum, et je dois me résoudre aujourd'hui encore à faire appel à vos lumières...

Voici mon problème :

Dans un onglet "A" il y a une adresse internet dans la cellule C15. J'aimerai élaborer une macro qui insère le contenu de cette cellule C15 dans un onglet "B", cellule B3, comme un lien hypertexte, mais en gardant l'intitulé de ma cellule B3.

En clair, B3 devient un lien hypertexte mais en gardant son titre d'origine.

j'ai bien ce code :
Code: 
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "http://www.allocine.fr/film/fichefilm_gen_cfilm=28602.html", TextToDisplay:= _
        "eeeeeee"

Mais je pense qu'il faudrait que je remplace
Code: 
Address:= _
        "http://www.allocine.fr/film/fichefilm_gen_cfilm=28602.html", TextToDisplay:= _
        "eeeeeee"
par
Code: 
Address:= _ Contenu de ma cellule C15, TextToDisplay:= _ Titre de ma cellule B3

Cependant, le contenu de ma cellule C15 ainsi que B3 sera très souvent modifié. Il faut que j'arrive à faire comprendre à VBA de ne prendre que le texte de ces cellules, pas leurs adresses.

Voilà, j'espère m'être fait comprendre, et merci d'avance pour votre aide !


EDIT: Je connais un peu la fonction Lien_hypertexte, mais elle ne me convient pas. En effet j'aimerai intégrer le code VBA obtenu à une macro, afin de la compléter. De plus, je précise que j'ai épluché le site de Mr Boisgontier : il est phénoménal mais un peu trop pointu pour moi...
 
Dernière édition:
Trier par date Trier par votes
Re : Macro pour insertion automatique de liens hypertexte

Bonjour tacite56,

VB: 
Address:= _
        Sheets("A").Range("C15").Value, TextToDisplay:= _
        Sheets("B").Range("B3").Value

Si par onglet, tu entends feuille.

Bonne journée,
WUTED
 
Vote positif 0 Vote négatif
Re : Macro pour insertion automatique de liens hypertexte

bonjour Tacite, Wuted,

de mémoire, quand on reste dans le même fichier, il faut mettre la cible dans "subadress" et non dans "adress"...

à +
 
Vote positif 0 Vote négatif
Re : Macro pour insertion automatique de liens hypertexte

Bon, je viens d'essayer et ... "a marche po".

"nombre d'arguments incorrect ou affectation de propriété incorrecte" ...

Voici mon code exact :

Code: 
ActiveSheet.Hyperlinks.Add Anchor:=Selection, SubAddress:= _
        Sheets("Nouveau").Range("C15").Value, TextToDisplay:= _
        Sheets("Liste films").Range("B2").Value

J'ai aussi essayé avec
Code: 
adress:= _
, ça ne marche pas plus ... je ne crois pourtant pas avoir fait de faute de syntaxe. Je ne comprend pas. Il y a bien une adresse web en C15 et un titre dans B2 ...

Ce qu'il peut m'énerver parfois VBA !
 
Vote positif 0 Vote négatif
Re : Macro pour insertion automatique de liens hypertexte

à essayer...

Code: 
ActiveSheet.Hyperlinks.Add _
        Anchor:=Selection, _
        Adress:="", _
        SubAddress:="#Nouveau!C15", _
        TextToDisplay:= Sheets("Liste films").Range("B2").Value
 
Vote positif 0 Vote négatif
Re : Macro pour insertion automatique de liens hypertexte

Ca ne marche pas non plus : "erreur définie par l'application ou par l'objet" ... Mais merci quand même !

C'est rageant, parce que théoriquement ça a l'air assez simple !
 
Vote positif 0 Vote négatif
Re : Macro pour insertion automatique de liens hypertexte

à re-essayer...

Code :
ActiveSheet.Hyperlinks.Add _
Anchor:=Selection, _
Adress:="", _
SubAddress:="'#Nouveau'!C15", _
TextToDisplay:= Sheets("Liste films").Range("B2").Value
 
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

Discussions similaires

D
  • Résolu(e)
XL 2021 Créer feuilles automatiquement dans un classeur a partir d'une liste et lien hypertexte
Réponses
6
Affichages
616
Phil69970
T
  • Résolu(e)
XL 2016 macro et feuille protégé
2
Réponses
18
Affichages
916
laurent950
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
536
spike29
S
M
  • Résolu(e)
XL 2013 Lien hypertexte dans tableau structuré
Réponses
4
Affichages
719
M.Ben
M
A
  • Résolu(e)
XL 2019 Passage de 2013 pro à 2019 pro, Pb avec formule VBA, liens hypertexte
2 3 4
Réponses
54
Affichages
3 K
sylvanu
A
  • Question Question
Microsoft 365 Macro pour recherche de cellules entre 2 fichiers Excel
Réponses
7
Affichages
190
AtTheOne
A
  • Résolu(e)
Microsoft 365 Enregistrer copie d'un fichier avec pour nom le contenu d'une cellule excel (macro)
2
Réponses
15
Affichages
1 K
firecarl
F
Z
  • Résolu(e)
XL 2019 Problème liens Hypertexte
2
Réponses
16
Affichages
2 K
Zapinet
Z
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
291
fanch55
O
  • Résolu(e)
Microsoft 365 Lien hypertexte
2
Réponses
21
Affichages
2 K
job75
L
  • Résolu(e)
XL 2016 Lien hypertexte VBA
Réponses
1
Affichages
1 K
Louu59
L
Z
  • Question Question
XL 2016 Macro pour copier plusieurs cellules vers un fichier :(
Réponses
3
Affichages
410
zendb
Z
K
  • Question Question
XL 2021 Insertion saut chariot plutôt qu'effectuer le saut en lui-même (Macro VBA)
Réponses
1
Affichages
641
KLfy
K
M
  • Résolu(e)
XL 2013 Liens hypertexte / Nouvelle onglet
Réponses
8
Affichages
832
vgendron
D
  • Question Question
Microsoft 365 macro avec lien hypertexte et modele de facture
Réponses
6
Affichages
864
david_aurel
D
S
  • Résolu(e)
XL 2010 creation d'une InputBox pour creer plusieur tableau
2
Réponses
29
Affichages
2 K
Surfeur En Serie
S
A
  • Résolu(e)
XL 2021 Macro de création mail de relance avec référence cellules
Réponses
4
Affichages
720
arnoldbrice19
A
B
  • Résolu(e)
Microsoft 365 Macro pour substituer une cellule par plusieurs cellules
Réponses
7
Affichages
640
bertchristophe
B
C
  • Résolu(e)
Microsoft 365 Duplication à partir d'une base de données du contenu d'un onglet dans d'autres onglets
Réponses
2
Affichages
687
Céline49
C
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
548
tactic6
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…