affecter un lien au contenu d'une cellule

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

O

omer76

Guest
Bonjour,

Voici mon "souci"😕

-Dans la cellule A1 se trouve le libellé "photo 1", dans la cellule A2 "photo 2" etc...jusque A120.

-Dans la cellule B1 se trouve le libellé du lien de la photo 1 "d:/photos/photo 1.jpg" etc jusque B120.

Je souhaite affecté le lien écrit dans la cellule B1 au texte de la cellule A1 de façon à ce que lorsque je clique su le texte A1 le lien s'ouvre et ce jusque la cellule A120

Merci de votre aide
 
Re : affecter un lien au contenu d'une cellule

Déjà si ma question est clair c'est le principal.
Je n'ai pas encore trouvé ce que je recherche mais je fouille.
Merci encore

PS: je sais affecter un lien au texte d'une cellule depuis "clic droit" "lien hypertexte", mais vu le nombre je voudrai que ce soit automatique
 

Pièces jointes

Dernière modification par un modérateur:
Re : affecter un lien au contenu d'une cellule

Re


Je suppose donc que tu ne connais pas encore les macros et VBA ?
(PS: Tu as regardé les exemples créés par JB ?
Tu les trouveras en effectuant la recherche (le lien présent dans le message #4 )
Par commodité d'usage, je mets le lien directement ici
https://www.excel-downloads.com/threads/liens-dynamique-dune-image.148248/

PS: Si tu as le temps, stp, modifies ta PJ en joignant plutôt un fichier xls qu'un fichier xlsx, ainsi plus de monde sur le forum sera en mesure de te répondre.
 
Dernière édition:
Re : affecter un lien au contenu d'une cellule

En fait je ne veux pas que l'image apparaisse sur le fichier excel dans un premier temps je veux juste affecté le lien inscrit dans la cellule B1 au libellé de la cellule A1 et ce de façon automatique jusque A120
 
Re : affecter un lien au contenu d'une cellule

RE


Essayes ceci
Code:
Sub ajout_liens()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Columns(1).SpecialCells(xlCellTypeConstants, 23)
c.Hyperlinks.Add Anchor:=c, Address:="d:\photos\" & c.Offset(, 1).Text _
        , TextToDisplay:=c.Text
Next c
End Sub

Avec cette version, tu n'as pas besoin de la colonne B
Code:
Sub ajout_liensII()
Const chemin As String = "D:\Photos\"
Dim c As Range
Application.ScreenUpdating = False
For Each c In Columns(1).SpecialCells(xlCellTypeConstants, 23)
c.Hyperlinks.Add Anchor:=c, Address:=chemin & c.Text & ".jpg" _
        , TextToDisplay:=c.Text
Next c
End Sub
 
Dernière édition:
Re : affecter un lien au contenu d'une cellule

Re


Voici une solution par formules
(et paradoxalement je ta livre au sein d'une macro)
Code:
Sub Macro1()
'
' Macro3 Macro
' Macro enregistrée le 17/12/2011 par l'agrafe

    With Range("B1:B118")
    .FormulaR1C1 = "=""D:\Photos\Photo ""&ROW()&"".jpg"""
    .Offset(, 1).FormulaR1C1 = "=SUBSTITUTE(MID(RC[-1],11,1000),"".jpg"","""")"
    .Offset(, -1).FormulaR1C1 = "=HYPERLINK(RC[1],RC[2])"
   End With
End Sub
Testes la dans un nouveau classeur, puis observe les formules que tu trouveras dans les colonnes A, B et C

Tu peux utiliser ces formules (sans macro), il faut simplement que tes données soient agencées comme dans mon exemple.

Fais moi signe si tu rencontres des difficultés

PS: Merci d'avoir suivi mon conseil pour le xls plutôt que le xlsx 😉
 
Dernière édition:
- 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

Retour