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

Lien hypertexe dans cellule

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion jeromeN95
  • 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 !

S'inscrire

jeromeN95

XLDnaute Impliqué
Bonjour,
je souhaite mettre dans une cellule un lien vers une autre feuille si elle n'est pas vide, et bien sur lorsque je clique dessus, le lien me renvoie sur la page.

onglet source : "Page de garde" cellule E14
Si <>"" then lien hypertexte vers feuille "Votre Buanderie" cellule B2.
Merci
 
Trier par date Trier par votes
Re : Lien hypertexe dans cellule

Bonjour,
Apprès réflexion, une simple formule suffit :
Code: 
=SI('Votre Buanderie'!B2<>""; LIEN_HYPERTEXTE("[Classeur1.xls]'Votre Buanderie'!B2"; "Votre Buanderie" ); "")
A+

Ajout : Si on reste dans la même cellule, la formule ne convient pas, voir macro ci-dessous
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Lien hypertexe dans cellule

Re,
Avec macro adaptée à ton fichier :
VB: 
Private Sub Worksheet_Change(ByVal target As Range)
    If Not Intersect(target, Range("E14")) Is Nothing Then
        Application.EnableEvents = False
        Select Case Range("E14")
        Case ""
            Sheets("Page de garde").Range("E14") = ""
        Case Else
            With Sheets("Page de garde")
                Temp = .Range("E14")
                Lien = "'[" & ThisWorkbook.Name & "]Votre Buanderie'!B2"
                .Hyperlinks.Add Anchor:=.Range("E14"), Address:="", _
                    SubAddress:=Lien, TextToDisplay:=Temp
            End With
        End Select
        Application.EnableEvents = True
    End If
End Sub
A+
 
Vote positif 0 Vote négatif
Re : Lien hypertexe dans cellule

bonsoir,*j'ai donc ce code :

Code: 
    If Not Intersect(target, Range("E14")) Is Nothing Then
        Application.EnableEvents = False
        Select Case Range("E14")
        Case ""
            Sheets("Page de garde").Range("E14") = ""
        Case Else
            Sheets("Votre Buanderie").Visible = True
            With Sheets("Page de garde")
                Temp = .Range("E14")
                Lien = "'[" & ThisWorkbook.Name & "]Votre Buanderie'!B2"
                .Hyperlinks.Add Anchor:=.Range("E14"), Address:="", _
                    SubAddress:=Lien, TextToDisplay:=Temp
            End With
        End Select
        Application.EnableEvents = True
            Sheets("Votre Buanderie").Select
    End If

ca fonctionne parfaitement avec la cellule E14 mais j'aimerai avoir la même fonctionnalité pour different cellule//onglet sans faire 5 fois le même code. Est-ce possible?

Régles :

E14 = Accés "Votre Buanderie"
E16 = "Votre Cuisine"
E18 = "Hebergement"
E20 = "Adoucisseur"
Merci.
 
Vote positif 0 Vote négatif
Re : Lien hypertexe dans cellule

Bonjour,
peut on modifier ce code pour :
--> Lorsque la cellule est vide, l'onglet "votre Buanderie" ce masque.
--> Lorsque l'on selectionne la cellule, rien ne se passe.
--> Lorsque l'on a rentrer un nom dans la cellule, et que l'on clique sur la cellule, rien ne ce passe mais l'onglet est afficher.
--> Lorsque l'on a rentrer un nom et que l'on clique sur le lien, on est projeter vers l'onglet "Votre Buanderie" et on selectionne la cellule B2.

Code: 
    If Not Intersect(Target, Range("E14")) Is Nothing Then
        Application.EnableEvents = False
        Select Case Range("E14")
        Case ""
            Sheets("Page de garde").Range("E14") = ""
        Case Else
            Sheets("Votre Buanderie").Visible = True
            With Sheets("Page de garde")
                Temp = .Range("E14")
                Lien = "'[" & ThisWorkbook.Name & "]Votre Buanderie'!B2"
                .Hyperlinks.Add Anchor:=.Range("E14"), Address:="", _
                    SubAddress:=Lien, TextToDisplay:=Temp
            End With
        End Select
        Application.EnableEvents = True
            Sheets("Votre Buanderie").Select
    End If

Merci beaucoup.
 
Vote positif 0 Vote négatif
Re : Lien hypertexe dans cellule

Bonjour,
--> Lorsque la cellule est vide, l'onglet "votre Buanderie" se masque.
Cliquez pour agrandir...
VB: 
Case ""
            Sheets("Page de garde").Range("E14") = ""  'vide la cellule et détruit le lien
             Sheets("Votre Buanderie").Visible = False  'masque l'onglet


Supprimer Sheets("Votre Buanderie").Select pour rester dans la page de garde.
Si la cellule est vide, il n'y a pas de lien, il ne se passe rien
Si la cellule est pleine, il y a un lien, en cliquant le lien est activé et la cellule B2 de l'onglet "Votre Buanderie" est sélectionné.
A+
 
Vote positif 0 Vote négatif
Re : Lien hypertexe dans cellule

Re,
VB: 
Private Sub Worksheet_Change(ByVal target As Range)
    If Not Intersect(target, Range("E14")) Is Nothing Then
        Application.EnableEvents = False
        Select Case Range("E14")
        Case ""
            Sheets("Page de garde").Range("E14") = ""
            Sheets("Votre Buanderie").Visible = False
        Case Else
            Sheets("Votre Buanderie").Visible = True
            With Sheets("Page de garde")
                Temp = .Range("E14")
                Lien = "'[" & ThisWorkbook.Name & "]Votre Buanderie'!B2"
                .Hyperlinks.Add Anchor:=.Range("E14"), Address:="", _
                    SubAddress:=Lien, TextToDisplay:=Temp
            End With
        End Select
        Application.EnableEvents = True
    End If
End Sub
A+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

S
  • Question Question
XL 2021 Lien mail hypertexte fonctionnel
Réponses
4
Affichages
226
sfconstant
S
N
  • Résolu(e)
XL 2013 Vérifier ci cellule pleine : réponse cellule adjacente
Réponses
3
Affichages
323
Nico77
N
S
  • Résolu(e)
XL 2021 "Blocage de la mise a jour d'une cellule"
Réponses
8
Affichages
314
Steph733
S
  • Résolu(e)
XL 2021 VBA - Recevoir un signal d'une autre Application
2 3
Réponses
44
Affichages
893
Dudu2
J
  • Question Question
XL 2021 Probleme avec la fonction LIENHYPERTEXT
Réponses
6
Affichages
270
vgendron
J
  • Résolu(e)
XL 2021 Coloriser et décoloriser une cellule activée par lien hypertexte
3 4 5
Réponses
71
Affichages
3 K
JMC
J
J
  • Résolu(e)
Autres Partage fichier avec lien hypertexte
2
Réponses
20
Affichages
1 K
TooFatBoy
D
  • Résolu(e)
XL 2019 Boucle sur plusieurs feuilles
Réponses
6
Affichages
505
dadaze
D
  • Résolu(e)
XL 2019 Créer un lien Hypertexte ancré à un mot sur une autre feuille
Réponses
8
Affichages
555
sylvanu
L
  • Question Question
Microsoft 365 recherche X lien entre 2 fichiers
Réponses
3
Affichages
330
lilie17
L
D
  • Résolu(e)
Microsoft 365 vba récupérer valeur cellule d'une autre feuille
Réponses
3
Affichages
244
Diane272727
D
E
  • Résolu(e)
Microsoft 365 Report d'une cellule
2
Réponses
17
Affichages
321
sylvanu
S
  • Résolu(e)
Microsoft 365 Conserver lien hypertexte avec une fonction RechercheV
2
Réponses
19
Affichages
1 K
job75
M
  • Résolu(e)
XL 2021 Récupérer la valeur d’une cellule dans un classeur fermé
Réponses
5
Affichages
231
patricktoulon
D
  • Résolu(e)
XL 2021 Créer feuilles automatiquement dans un classeur a partir d'une liste et lien hypertexte
Réponses
6
Affichages
688
Phil69970
D
  • Résolu(e)
Microsoft 365 VBA Déplacement de la cellule active dans une ligne sélectionnée
Réponses
11
Affichages
314
danielco
D
C
  • Résolu(e)
XL 2013 Renvoyer 2 dans la cellule
Réponses
2
Affichages
310
candido57
C
R
  • Question Question
Microsoft 365 aide recherche multiple entrées d'une cellule dans colonne
2
Réponses
16
Affichages
1 K
richard31
R
  • Résolu(e)
Power Query importer fichier CSV, dont le chemin est dans une cellule Excel
Réponses
11
Affichages
275
oguruma
E
  • Résolu(e)
Microsoft 365 Reduire Temps Execution Code
Réponses
5
Affichages
380
eric72
E
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…