A voir également:
- Excel lien hypertexte automatique
- Lien hypertexte automatique selon contenu cellule - Meilleures réponses
- Lien hypertexte automatique selon contenu cellule - Forum - Bureautique
- (VB Excel) lien hypertexte automatique - Forum - VB / VBA
- Lien hypertexte automatique ✓ - Forum - Excel
- EXCEL : Lien hypertexte avec formule ✓ - Forum - Excel
- Excel supprimer lien hypertexte automatique ✓ - Forum - Bureautique
4 réponses
PapyLuc51
- Messages postés
- 2970
- Date d'inscription
- dimanche 3 mai 2009
- Statut
- Membre
- Dernière intervention
- 5 janvier 2021
Bonjour à tous
Si ça peut aider ; un exemple que j'ai chipé sur le forum il y a quelques années.
https://www.cjoint.com/c/GIboYYJ0rC8
Cordialement
Si ça peut aider ; un exemple que j'ai chipé sur le forum il y a quelques années.
https://www.cjoint.com/c/GIboYYJ0rC8
Cordialement
fabien25000
- Messages postés
- 591
- Date d'inscription
- mercredi 5 octobre 2016
- Statut
- Membre
- Dernière intervention
- 19 juin 2020
bonjour,
en considérant que les noms de feuilles sont colonne A de la feuille bilan et que les réponses soient toute dans la même case sur chaque feuille (dans mon exemple C1) :
=INDIRECT(A1&"!"&"C1") vous renverra la valeur de la cellule C1 stockée dans la feuille dont le nom est indiqué en A1
en considérant que les noms de feuilles sont colonne A de la feuille bilan et que les réponses soient toute dans la même case sur chaque feuille (dans mon exemple C1) :
=INDIRECT(A1&"!"&"C1") vous renverra la valeur de la cellule C1 stockée dans la feuille dont le nom est indiqué en A1
Major83
- Messages postés
- 25
- Date d'inscription
- vendredi 31 mars 2017
- Statut
- Membre
- Dernière intervention
- 15 mai 2019
Bonjour Fabien25000 et merci de ta réponse.
J'utilise cette formule pour avoir les réponses A, B, C, etc.
Mais ce n'est pas l'objet de ma demande...
Je voudrais savoir s'il existe une formule qui quand je clique sur "2017-11", m'emmène directement à la feuille concernée et ce sans avoir à créer le lien hypertexte pour toutes les feuilles...
Suis-je plus clair ? Merci
J'utilise cette formule pour avoir les réponses A, B, C, etc.
Mais ce n'est pas l'objet de ma demande...
Je voudrais savoir s'il existe une formule qui quand je clique sur "2017-11", m'emmène directement à la feuille concernée et ce sans avoir à créer le lien hypertexte pour toutes les feuilles...
Suis-je plus clair ? Merci
fabien25000
- Messages postés
- 591
- Date d'inscription
- mercredi 5 octobre 2016
- Statut
- Membre
- Dernière intervention
- 19 juin 2020
oui je comprend mieux, par formule je ne connais pas et je ne pense pas que ça soit possible; c'est faisable par VBA certainement mais à mon avis pas plus rapide que 4 clic pour créer le lien hypertext..
fabien25000
- Messages postés
- 591
- Date d'inscription
- mercredi 5 octobre 2016
- Statut
- Membre
- Dernière intervention
- 19 juin 2020
Bonjour PapyLuc51
Ces formules sont géniales j'ai chipé le fichier à mon tour !
sinon une solution VBA ci dessous :
Ces formules sont géniales j'ai chipé le fichier à mon tour !
sinon une solution VBA ci dessous :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim adresse As String If Not Application.Intersect(Target, Range("A2")) Is Nothing Then adresse = Worksheets("Confort").Range("A2").Text Worksheets(adresse).Activate End If 'Répéter le if not jusqu'à end if pour chaque ligne 'ou essayer avec une boucle si ça tourne 'je n'aurai pas le temps de m'y pencher aujourd'hui malheureusement 'si la solution peux convenir je m'y mettrai End Sub
fabien25000
- Messages postés
- 591
- Date d'inscription
- mercredi 5 octobre 2016
- Statut
- Membre
- Dernière intervention
- 19 juin 2020
Finalement j'ai pas pu résister et la boucle fonctionne trés bien,
J'ai mis jusque ligne 10 "i = 2 to 10" mais on peux mettre 30 000 si on a 30K lignes c'est pareil. le code :
donc rien d'autre à rajouter
J'ai mis jusque ligne 10 "i = 2 to 10" mais on peux mettre 30 000 si on a 30K lignes c'est pareil. le code :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'lien hypertext par doubleclic sur cellule Dim adresse As String Dim i As Integer For i = 2 To 10 If Not Application.Intersect(Target, Range("A" & i)) Is Nothing Then adresse = Worksheets("Confort").Range("A" & i).Text Worksheets(adresse).Activate Exit For End If Next i End Sub
donc rien d'autre à rajouter
Major83
- Messages postés
- 25
- Date d'inscription
- vendredi 31 mars 2017
- Statut
- Membre
- Dernière intervention
- 15 mai 2019
- Messages postés
- 591
- Date d'inscription
- mercredi 5 octobre 2016
- Statut
- Membre
- Dernière intervention
- 19 juin 2020
Merci Fabien !
Je maîtrise pas trop ces méthodes, je vais essayer de m'y atteler demain...
Merci !
Je maîtrise pas trop ces méthodes, je vais essayer de m'y atteler demain...
Merci !
Major83
- Messages postés
- 25
- Date d'inscription
- vendredi 31 mars 2017
- Statut
- Membre
- Dernière intervention
- 15 mai 2019
- Messages postés
- 25
- Date d'inscription
- vendredi 31 mars 2017
- Statut
- Membre
- Dernière intervention
- 15 mai 2019
Je ne sais pas du tout utiliser le VBA ! Je vais faire des tests mais ça me paraît compliqué pour moi...
https://forums.commentcamarche.net/forum/affich-30282099-liens-hypertexte-vers-onglets-du-meme-classeur
Mais merci !
J'ai rajouté une colonne à mon tableau de base pour avoir le lien à côté de mon nom de feuille...
Merci à toi pour ce partage !
Remerciement relayé à Mike-31 auteur des fonctions
cordialement