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

Problème avec macro hyperlink.add

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 !

Arnaud61

XLDnaute Occasionnel
Bonjour

J'ai un soucis lorsque je veux créer un lien hypertexte dans une macro.

Voici un bout de ma macro:

Code:
o = Sheets.Count
formule = CStr(Worksheets("Travaux Arnaud - Récap").Range("A6").FormulaLocal)
Worksheets("Travaux Arnaud - Récap").Range("A" & o + 2).FormulaLocal = Replace(formule, "1", CStr(o - 3))
With Worksheets("Travaux Arnaud - Récap")
.Hyperlinks.Add Anchor:=Range("A" & o + 2), Address:="", SubAddress:= _
        "Tâche N°" & o - 3
End With

Lorsque je crée une nouvelle feuille (Tâche N°2) , je récupère le numéro de la feuille (2) que je mets dans une feuille récapitulative (Travaux Arnaud - Récap) .

J'aimerais que ce numéro (2) contienne le lien hypertexte qui puisse me renvoyer sur la feuille (Tâche N°2)

Pour cela, après avoir explorer le forum j'utilise la fonction hyperlink.add
Code:
.Hyperlinks.Add Anchor:=Range("A" & o + 2), Address:="", SubAddress:= _
        "Tâche N°" & o - 3
Je pense qu'il me manque le fait de dire de m'afficher la bonne tâche sur la cellule "A1"

J'ai essayé :
Code:
.Hyperlinks.Add Anchor:=Range("A" & o + 2), Address:="", SubAddress:= _
        [COLOR="red"]([/COLOR]"Tâche N°" & o - 3[COLOR="Red"]!A1)[/COLOR]
mais ça ne marche pas...

Avez-vous la solution à mon problème?

Merci
 
Dernière édition:
Re : Problème avec macro hyperlink.add

Bonjour Arnaud

essaye peut être comme ceci :

Code:
.Hyperlinks.Add Anchor:=Range("A" & o + 2), Address:="", SubAddress:= _
"Tâche N°" & o - 3 & "!A1"

non testé...

bonne journée
@+
 
Re : Problème avec macro hyperlink.add

Re

tu devrais peut être mettre mettre ton fichier en pièce jointe avec l'intégralité du code, car là comme ca difficile à dire, je viens de tester le code ci dessous qui fonctionne chez moi :

Code:
ActiveSheet.Hyperlinks.Add Anchor:=Range("A2"), Address:="", SubAddress:= "Feuil1" & "!A1"

il faut vérifier que tes differentes variables soient bien valorisées..

@+
 
Re : Problème avec macro hyperlink.add

J'ai trouvé mon erreur.

Code:
o = Sheets.Count
formule = CStr(Worksheets("Travaux Arnaud - Récap").Range("A6").FormulaLocal)
Worksheets("Travaux Arnaud - Récap").Range("A" & o + 2).FormulaLocal = Replace(formule, "1", CStr(o - 3))
With ActiveSheet = ("Travaux Arnaud - Récap")
Hyperlinks.Add Anchor:=Range("A" & o + 2), Address:="", SubAddress:=" 'Tâche N°" & o - 3 & "'!A1"
End With

Ce code se trouve sur une feuille nommée 'Nouvelle Tâche'.
Le lien hypertexte se crée sur cette feuille.

Je souhaite que le lien se crée sur la feuille 'Travaux Arnaud - Récap'

Comment faire?
 
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

Discussions similaires

Réponses
5
Affichages
911
Réponses
7
Affichages
829
Réponses
4
Affichages
734
Réponses
4
Affichages
586
Réponses
7
Affichages
367
Réponses
9
Affichages
884
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…