Lien hypertexe dans cellule

JNP

XLDnaute Barbatruc

• 19 Juin 2011

• #46

Re : Lien hypertexe dans cellule

Re 🙂,
Là, j'avoue que je suis un peu à cours... Il y a un peu trop de macro dans ton fichier pour que je les épluches toutes (en plus, comme précisé précédemment, 1- je ne l'ai plus. 2- je ne peux pas le faire tourner sur 2010 64 bits...). Le mieux serait peut-être que tu procèdes à l'inverse, en repartant du fichier d'essai qui tournait, et en ajoutant progressivement tes macros jusqu'à ce que tu constates que ça ne marche plus 🙄...
Bon courage 😎

 

Vote positif 0 Vote négatif

jeromeN95

XLDnaute Impliqué

• 19 Juin 2011

• #47

Re : Lien hypertexe dans cellule

Mais c'est ce que j'ai fait!
J'ai des pages vierges sans macro.
Et j'ai copier/coller tres bout de codes dans "page de garde" et "ThisWorkbooks".

On pourrait crée le lien hypertext autrement?
Voir même sans lien?
Si on est dans "Page de garde" et
Lorsque l'on clic sur E14 "Si pas vide" = renvoyer à la page "Votre Buanderie" en B2
sur E16 "Si pas vide" = renvoyer à la page "Votre Cuisine" en B2
sur E18 "Si pas vide" = renvoyer à la page "Hébergement" en E3
sur E20 "Si pas vide" = renvoyer à la page "Adoucisseur" en E3
bonne fetes des pères et merci de ton soutien.

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 19 Juin 2011

• #48

Re : Lien hypertexe dans cellule

Re 🙂,
Si on repart de propre, le fichier ci-joint fonctionne (en tout cas chez moi).
A + 😎

 

Pièces jointes

• AuditV5 FORUM.xls

  157.5 KB · Affichages: 44
• AuditV5 FORUM.xls

  157.5 KB · Affichages: 45
• AuditV5 FORUM.xls

  157.5 KB · Affichages: 45

Vote positif 0 Vote négatif

jeromeN95

XLDnaute Impliqué

• 19 Juin 2011

• #49

Re : Lien hypertexe dans cellule

tu plaisante?🙂
A peine ouvert il manque

Code:

Dim Lien As String

et me fait une erreur à

Code:

temp = ...

😎

non, franchement, On pourrait faire sans lien?
Si on est dans "Page de garde" et
Lorsque l'on clic sur E14 "Si pas vide" = renvoyer à la page "Votre Buanderie" en B2
sur E16 "Si pas vide" = renvoyer à la page "Votre Cuisine" en B2
sur E18 "Si pas vide" = renvoyer à la page "Hébergement" en E3
sur E20 "Si pas vide" = renvoyer à la page "Adoucisseur" en E3

 

Dernière édition: 19 Juin 2011

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 19 Juin 2011

• #50

Re : Lien hypertexe dans cellule

Re 🙂,
Je te conseille plutôt le clic droit, ça permetra de modifier le nom...

Code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

Bon courage 😎

 

Vote positif 0 Vote négatif

jeromeN95

XLDnaute Impliqué

• 19 Juin 2011

• #51

Re : Lien hypertexe dans cellule

ué", mais ca marche toujoutrs pas!
Il n'y a que toi sur ce forum?

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 19 Juin 2011

• #52

Re : Lien hypertexe dans cellule

Re 🙂

jeromeN95 à dit:

Il n'y a que toi sur ce forum?

Cliquez pour agrandir...

Non, mais j'ai bien compris le message, débrouilles toi 😱...

 

Vote positif 0 Vote négatif

jeromeN95

XLDnaute Impliqué

• 19 Juin 2011

• #53

Re : Lien hypertexe dans cellule

Nan, c'est pas ça, mais tu est la seul personne a pouvoir/vouloir m'aider?
Au contraire, je te suis trés reconnaissant.
Tu pourrait m'aider d'une autre façon? :

Lorsque l'on clic sur E14 "Si pas vide" = renvoyer à la page "Votre Buanderie" en B2
sur E16 "Si pas vide" = renvoyer à la page "Votre Cuisine" en B2
sur E18 "Si pas vide" = renvoyer à la page "Hébergement" en E3
sur E20 "Si pas vide" = renvoyer à la page "Adoucisseur" en E3

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$E$14" Then
      If [E14] <> "" Then
      Sheets("Votre Buanderie").Visible = True
      Sheets("Votre Buanderie").Select
      End If
    End If
End Sub

Qu'en pense tu?🙄

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 19 Juin 2011

• #54

Re : Lien hypertexe dans cellule

Re 🙂,

jeromeN95 à dit:

Nan, c'est pas ça, mais tu est la seul personne a pouvoir/vouloir m'aider?

Cliquez pour agrandir...

c'est plutôt que les répondeurs ne regardent que les fils avec peu de réponse, une fois la personne "prise en main" par l'un d'entre nous, les autres ne s'en préocupent pas beaucoup, sauf si le sujet leur parle 🙄...
Du fait, tes remarques ressemblaient plutôt à "tu n'y arriveras pas", d'où mon effacement si c'est le cas 😛...
Bon, en clic droit comme je te l'avais suggéré

Code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim I As Byte, J As Byte, Tab1, Tab2
J = 255
Tab1 = Array(14, 16, 18, 20)
Tab2 = Array("Votre Buanderie", "Votre Cuisine", "Hebergement", "Adoucisseur")
    If Not Intersect(Target, Range("E:E")) Is Nothing Then
        For I = 0 To UBound(Tab1)
            If Tab1(I) = Target.Row Then J = I
        Next I
        If J = 255 Then Exit Sub
        If Target(1) = "" Then
            Exit Sub
        Else
            Sheets(Tab2(J)).Visible = True
            Sheets(Tab2(J)).Select
            Sheets(Tab2(J)).Range("B2").Select
            Cancel = True
        End If
    End If
End Sub

Bon courage 😎

 

Vote positif 0 Vote négatif

jeromeN95

XLDnaute Impliqué

• 19 Juin 2011

• #55

Re : Lien hypertexe dans cellule

Salut, je comprend, il y a maintenant tellement de post que pour suivre ....

Mais je comprend, j'ai dailleur fait un autre fil pour trouver une autre solution.
Je vais laisser de coté la solution des hyperliens pour le moment.
Je te remercie en tout cas.

 

Vote positif 0 Vote négatif

jeromeN95

XLDnaute Impliqué

• 20 Juin 2011

• #56

Re : Lien hypertexe dans cellule

Voilà, l'autre solution ne donne pas non plus satisfaction en fait...

Les liens sont la meilleur. Tu as une autre solution?

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 20 Juin 2011

• #57

Re : Lien hypertexe dans cellule

Re 🙂,

jeromeN95 à dit:

Voilà, l'autre solution ne donne pas non plus satisfaction en fait...

Les liens sont la meilleur. Tu as une autre solution?

Cliquez pour agrandir...

Trouver quelqu'un qui soit en 2003 qui puisse trouver pourquoi mon fichier ne tourne pas en 2003 🙄...
Bonne soirée 😎

 

Vote positif 0 Vote négatif