Lien hypertexe dans cellule

[jeromeN95]

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

 

[Hippolite]

Re : Lien hypertexe dans cellule

Bonsoir,
As-tu essayé l'enregistreur de macro ?
A+

 

[jeromeN95]

Re : Lien hypertexe dans cellule

oui...
Je veut que le lien hypertext ne s'affiche que si la cellule n'est pas vide.

 

[dellalways]

Re : Lien hypertexe dans cellule

Salut Jerome N95, je veux bien t'aider si tu met ton fichier exemple sur le forum. C'est un élément important de la charte de ce forum, alors j'attends.

 

[jeromeN95]

Re : Lien hypertexe dans cellule

Bonjour,
ci-tard dit-ci-tôt fait.

Voici mon fichier en Pj avec un exemple, trés simple.

Merci beaucoup pour votre implication.
Bonne jounrée.

 

[Hippolite]

Re : Lien hypertexe dans cellule

Bonjour,
Apprès réflexion, une simple formule suffit :

=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

 

[Hippolite]

Re : Lien hypertexe dans cellule

Re,
Avec macro adaptée à ton fichier :

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+

 

[jeromeN95]

Re : Lien hypertexe dans cellule

Impecable merci beaucoup.
C'est parfait.

 

[jeromeN95]

Re : Lien hypertexe dans cellule

bonsoir,*j'ai donc ce 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.

 

[Hippolite]

Re : Lien hypertexe dans cellule

Bonjour,
C'est possible en ajoutant une table de correspondance mais ça complexifie le code.
Pour quatre cellules ça ne se justifie pas.
A+

 

[jeromeN95]

Re : Lien hypertexe dans cellule

Donc je fait un copier coller X4 alors en changant les references?

Merci.

 

[jeromeN95]

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.

    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.

 

[Hippolite]

Re : Lien hypertexe dans cellule

Bonjour,

--> Lorsque la cellule est vide, l'onglet "votre Buanderie" se masque.

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.

--> Lorsque l'on sélectionne la cellule, rien ne se passe.
--> Lorsque l'on a rentré un nom dans la cellule, et que l'on clique sur la cellule, rien ne se passe mais l'onglet est affiché.
--> Lorsque l'on a rentré un nom et que l'on clique sur le lien, on est projeté vers l'onglet "Votre Buanderie" et on sélectionne la cellule B2.

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+

 

[jeromeN95]

Re : Lien hypertexe dans cellule

Bonsoir, je ne comprend pas, je remplace quelques chose dans le code ou je rajoute ce que vous avez mi?
merci

 

[Hippolite]

Re : Lien hypertexe dans cellule

Re,

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+