Générer lien hypertexte à une valeur du classeur[RESOLU]

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

K

kayl83

Guest
Bonjour,

j'ai besoin de votre aide.
Je souhaite affecter un lien hypertexte (style: http..monadresse.trucenmousse) pour une valeur E2 qui sera recherchée dans tout le classeur.
Ce lien hypertexte sera composé de la manière suivante: http://monadresse."valeur à ajouter C2".fr

J'ai du mal à exprimer mon besoin. C'est pour ça que j'ai du mal à le créer.

Merci d'avance pour le coup de main. J'ai joint une copie d'écran pour compléter mon propos.
 

Pièces jointes

  • macro.JPG
    macro.JPG
    10.9 KB · Affichages: 61
  • macro.JPG
    macro.JPG
    10.9 KB · Affichages: 58
  • macro.JPG
    macro.JPG
    10.9 KB · Affichages: 65
Dernière modification par un modérateur:

Pièces jointes

Re : Générer lien hypertexte à une valeur du classeur

Merci pour cette astuce. Avec çà j'ai résolu une partie du problème.

Maintenant il faut que je trouve la macro qui va rechercher une valeur (E2 dans la feuille Générateur de liens) dans la feuille Tableau.

Et remplacer cette (ou ces) valeur(s) trouvée(s) par mon résultat (G2 dans la feuille Générateur de lien).

J'ajoute une mise à jour de mon fichier. Si une âme charitable peut m'aider.
 

Pièces jointes

Re : Générer lien hypertexte à une valeur du classeur

Je souhaites copier la valeur de la cellule H6 et la coller dans le presse papier.

La macro ira ensuite rechercher dans la feuille 'Tableau' les cellules avec la valeur ce trouvant dans E2 (de la feuille Générateur...).

La macro sélectionne ces valeurs (ou cette valeur) trouvées et on ajoute à ces valeurs le lien hypertexte= aux données du presse papier.
 
Re : Générer lien hypertexte à une valeur du classeur

Re 🙂,
Toujours pas d'une clartée phénoménale 🙄...
Ceci, peut-être 😛
Code:
Sub test()
Dim Cellule As Range
Set Cellule = Sheets("Tableau").Range("B:B").Find(Sheets("Générateur de liens").Range("E2"), LookAt:=xlWhole)
If Not Cellule Is Nothing Then
Sheets("Tableau").Hyperlinks.Add Anchor:=Cellule, Address:= _
        Sheets("Générateur de liens").Range("H6").Value
End If
End Sub
Bon courage 😎
 
- 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

M
Réponses
0
Affichages
949
Maad84
M
M
  • Question Question
Réponses
4
Affichages
1 K
MatOLfull
M
A
Réponses
4
Affichages
2 K
A
Retour