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
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
A voir également:
- Créer un lien hypertexte automatique
- Créer un compte gmail - Guide
- Créer un lien pour partager des photos - Guide
- Créer un compte google - Guide
- Créer un groupe whatsapp - Guide
- Verifier un lien - Guide
6 réponses
Le Pingou
Messages postés
12041
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
22 avril 2024
1 426
Modifié par Le Pingou le 9/07/2012 à 23:19
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
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
Le Pingou
Messages postés
12041
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
22 avril 2024
1 426
10 juil. 2012 à 11:35
10 juil. 2012 à 11:35
Bonjour,
Merci pour l'information.
Ma proposition y compris test feuille existante dans la fin de journée.
Patience.
Merci pour l'information.
Ma proposition y compris test feuille existante dans la fin de journée.
Patience.
Le Pingou
Messages postés
12041
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
22 avril 2024
1 426
10 juil. 2012 à 20:52
10 juil. 2012 à 20:52
Bonjour,
Ma proposition : https://www.cjoint.com/?3GkuY7HjhXs
Voir la feuille [RECAP].
Ma proposition : https://www.cjoint.com/?3GkuY7HjhXs
Voir la feuille [RECAP].
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
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 ?
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 ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Le Pingou
Messages postés
12041
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
22 avril 2024
1 426
Modifié par Le Pingou le 10/07/2012 à 23:40
Modifié par Le Pingou le 10/07/2012 à 23:40
Bonjour,
J'ai oublié de traiter cette demande.
Remplacer par celle-ci:
Au passage je pense que les deux lignes précédentes peuvent être supprimées
Le Pingou
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:=NomFeuilleSalutations.
Le Pingou
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
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.
merci beaucoup.
Modifié par Autruche_gersoise le 10/07/2012 à 08:04
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.