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

[RESOLU] Construire des liens hypertexte

  • Initiateur de la discussion Initiateur de la discussion mementosemper
  • 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 !

M

mementosemper

Guest
Bonjour à tous,

Aujourd'hui je désire construire des liens hypertexte combinés à partir de 2 cellules :

Ma requête est toujours la même et ressemble à celle ci :
https://lesiteweb.com/structure.infos_admin?&p_lab=FR2424&p_origine_appel=un

La seule et unique chose qui change c'est ce qui est compris entre lab= et &p dans cet exemple il s'agit de FR2424

Le FR2424 se situe dans 1 cellule et j'aimerais insérer ce code dans ma requête d'URL

Par exemple :

https://lesiteweb.com/structure.infos_admin?&p_lab=(CONTENU[/url] DE LA CELLULE A1)&p_origine_appel=un
et tirer la formule (hyperlien) pour l'étendre jusqu'à la fin de mon tableau

Thanks !

Edit :

J'ai déjà pensé à concaténer le contenu de 3 cellules :

cellule A1 : https://lesiteweb.com/structure.infos_admin?&p_lab=
cellule A2 : &p_origine_appel=un

et ma cellule cible : =$A$1&A3&$A$A2

Ca fonctionne bien, mais je dois copier / coller les valeurs pour ne plus avoir les formules et je dois également saisir entrée dans chaque cellule pour que le lien hypertexte fonctionne.
 
Dernière modification par un modérateur:
Re : Construire des liens hypertexte

Bonjour,

Une formule a étirer? je vois pas (encore)
Une petite boucle en V.B.A. pourrait faire l'affaire, un exemple a adapter ou si tu peux envoyer
un bout de fichier pour ajuster...

Code:
Sub CréerLien()
On Error Resume Next
    For Each feuille In Sheets
        If feuille.Name <> "Accueil" Then
            NbLigne = Application.CountA(Columns(1))
            For ligne = 2 To NbLigne
                pays = feuille.Cells(ligne, 1)
                capitale = feuille.Cells(ligne, 2)
                feuille.Hyperlinks.Add Anchor:=feuille.Cells(ligne, 2), Address:="http://maps.google.fr/maps?q=" & capitale & "+" & pays & "&z=6", TextToDisplay:=capitale
            Next ligne
        End If
    Next feuille
End Sub

Cordialement
sixair
 
Re : Construire des liens hypertexte

ok, trouvé ... =LIEN_HYPERTEXTE($A$1&A3&$A$A2;Lien)

@sixair : Notre système n'autorise aucune macro interne ou externe :s
 
- 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.

Discussions similaires

L
Réponses
1
Affichages
1 K
L
P
  • Question Question
Réponses
2
Affichages
1 K
Daniel Bretelles
D
Réponses
12
Affichages
1 K
O
Réponses
2
Affichages
2 K
O
M
Réponses
11
Affichages
4 K
GRI84
G
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…