Créer un lien hypertexte automatique

Résolu/Fermé
Autruche_gersoise
Messages postés
8
Date d'inscription
jeudi 5 juillet 2012
Statut
Membre
Dernière intervention
16 juillet 2012
- 9 juil. 2012 à 17:55
Autruche_gersoise
Messages postés
8
Date d'inscription
jeudi 5 juillet 2012
Statut
Membre
Dernière intervention
16 juillet 2012
- 11 juil. 2012 à 08:14
Bonjour,
J'ai fait une macro qui crée des onglets relatifs au lignes remplies de mon tableau par l'intermédiaire du bouton "créer les feuilles" ( tout ceci se passe dans l'onglet RECAP).
J'ai essayé , mais en vain , de perfectionner mon fichier afin qu'un lien hypertexte apparaisse dans la colonne désignation de ce même onglet me permettant d'aller directement à la feuille créée précédemment.
je souhaiterais également qu'un lien affiche le prix ( cellule E47 de l'onglet créé ) dans la colonne F et dans la ligne relative au produit en question.
Voici ce que j'ai déjà fait.

http://dl.free.fr/getfile.pl?file=/AZt3wBWS

Pourriez-vous m'aider ??

6 réponses

Le Pingou
Messages postés
11006
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
18 mai 2022
1 279
Modifié par Le Pingou le 9/07/2012 à 23:19
Bonjour,
Au passage, pourquoi ne pas créer une procédure sur clic ou double clic qui utilise la désignation pour afficher la feuille concernée au lieu de créer un lien hypertexte ?
Si OK je regarde une solution pour demain !
Note : vous avez remarqué que si on relance la création d'une feuille vous obtenez une erreur 1004 (pas possible de renommer comme une autre feuille !!!

Salutations.
Le Pingou
0
Autruche_gersoise
Messages postés
8
Date d'inscription
jeudi 5 juillet 2012
Statut
Membre
Dernière intervention
16 juillet 2012

Modifié par Autruche_gersoise le 10/07/2012 à 08:04
Oui j'ai tenté de trouver un solution en créant un bouton mais sans succès. Si vous avez une solution je suis preneur.
Au sujet de l'erreur je vais essayer de créer une procédure que teste si la feuille existe déjà et qui demande à l'utilisateur s'il souhaite la remplacer ou pas.
0
Le Pingou
Messages postés
11006
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
18 mai 2022
1 279
10 juil. 2012 à 11:35
Bonjour,
Merci pour l'information.
Ma proposition y compris test feuille existante dans la fin de journée.
Patience.
0
Le Pingou
Messages postés
11006
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
18 mai 2022
1 279
10 juil. 2012 à 20:52
Bonjour,
Ma proposition : https://www.cjoint.com/?3GkuY7HjhXs
Voir la feuille [RECAP].
0
Autruche_gersoise
Messages postés
8
Date d'inscription
jeudi 5 juillet 2012
Statut
Membre
Dernière intervention
16 juillet 2012

10 juil. 2012 à 21:57
Super Merci beaucoup , cela fonctionne très bien pour les lien entre onglets.
Mais , sauf erreur de ma part , le prix de la cellule E47 de la page créée ne s'affiche pas dans la colonne PU de la feuille RECAP.
Je pensais avoir la bonne procédure:

.Cells(Ligne, 6).FormulaLocal = "='" & ActiveSheet.Name & "'!$E$47"

Il doit y avoir un problème dans l'exécution de la procédure mais je ne vois pas lequel.
Auriez-vous une idée ?
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Le Pingou
Messages postés
11006
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
18 mai 2022
1 279
Modifié par Le Pingou le 10/07/2012 à 23:40
Bonjour,
J'ai oublié de traiter cette demande.
Remplacer par celle-ci:
.Cells(cel.Row, 6).FormulaLocal = "='" & NomFeuille & "'!$E$47"

Au passage je pense que les deux lignes précédentes peuvent être supprimées
Ligne = .Range("A65536").End(xlUp).Row + 1 
 .Hyperlinks.Add Anchor:=.Cells(Ligne, 2), Address:="",SubAddress:="'" & NomFeuille & "'!A1",TextToDisplay:=NomFeuille
Salutations.
Le Pingou
0
Autruche_gersoise
Messages postés
8
Date d'inscription
jeudi 5 juillet 2012
Statut
Membre
Dernière intervention
16 juillet 2012

Modifié par Autruche_gersoise le 11/07/2012 à 08:46
ça marche parfaitement bien , à chaque page qui est créée le prix s'affiche automatiquement ,

merci beaucoup.
0