ouvrir onglet masqué depuis lien hypertexte

[wrap food]

bonjour,

y a t il quelqu'un qui pourrait me dire si il y a un moyen d afficher un oglet masqué depuis un lien hypertexte .

ou depuis une cellule

par avance merci a tous

 

[wrap food]

Re : ouvrir onglet masqué depuis lien hypertexte

j 'ai pas precisser je ne souhaite pas utiliser un bouton

merci

 

[mth]

Re : ouvrir onglet masqué depuis lien hypertexte

Bonjour wrapfood,

Pas sans VBA (instruction du type Sheets("Feuil1").Visible = True)

Bonne journée,

mth

 

[wrap food]

Re : ouvrir onglet masqué depuis lien hypertexte

merci mth

je peux le faire sans passer par un bouton ?

 

[mth]

Re : ouvrir onglet masqué depuis lien hypertexte

re

Oui, tu peux le placer dans une macro évènementielle, par exemple à chaque fois que tu cliques sur la cellule en question, cela démasque l'onglet et te positionne dessus.
(du coup, plus besoin de lien hypertexte)

Bien à toi,

mth

 

[job75]

Re : ouvrir onglet masqué depuis lien hypertexte

Bonjour wrap foof, bonjour Mireille,

Un exemple avec un lien hypertexte.

La macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim sa$, feuille$
On Error Resume Next
sa = Target.SubAddress
feuille = Left(sa, InStr(sa, "!") - 1)
With Sheets(feuille)
  .Visible = True
  .Activate
  .Range(sa).Select
End With
End Sub

A+

 

[wrap food]

Re : ouvrir onglet masqué depuis lien hypertexte

Merci a tous c est super

Petit autre question peut on faire une mise en forme conditionnel sur un lien hypertexte .

je souhaiterais que le lien soit massequé ci une cellule de la feuille est superieur a zero

je sais j en demande beaucoup .


par avance merci

 

[job75]

Re : ouvrir onglet masqué depuis lien hypertexte

Re,

Petit autre question peut on faire une mise en forme conditionnel sur un lien hypertexte .

Les MFC c'est pour les cellules...

Supprimez ou recréez le lien hypertexte, nombreux exemples sur ce forum.

A+

 

[job75]

Re : ouvrir onglet masqué depuis lien hypertexte

Re,

Autre solution pour le fun avec cette macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E7]) Is Nothing Then Exit Sub
If IsNumeric([E7]) And [E7] > 0 Then [E4].Cut [IV1] _
Else If [IV1] <> "" Then [IV1].Cut [E4]
End Sub

A+

 

[wrap food]

Re : ouvrir onglet masqué depuis lien hypertexte

merci job75
Juste encore petite demande si je souhaite que la cellule a prendre en compte est sur une feuille a ouvrire je modifie le code au niveau de [E7] c'est ça .. je mets le nons de la feuille comment .

merci encore
c'est trop top ...

 

[job75]

Re : ouvrir onglet masqué depuis lien hypertexte

Re,

Je ne comprends pas très bien...

Puisque c'est la modification (manuelle) de E7 qui déclenche la macro, il suffit de mettre le code dans la feuille de cette cellule.

Par contre si la cellule E4 du lien hypertexte se trouve dans une autre feuille, par exemple TOTO, écrire :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E7]) Is Nothing Then Exit Sub
With Sheets("TOTO")
  If IsNumeric([E7]) And [E7] > 0 Then .[E4].Cut .[IV1] _
  Else If .[IV1] <> "" Then .[IV1].Cut .[E4]
End With
End Sub

A+

 

[wrap food]

Re : ouvrir onglet masqué depuis lien hypertexte

Pardon
j 'ai du mal m 'exprimer, je souhaitreais que si la valeur cible de la feuille 2 et egal a zero le lien soit visible sil il est superieur a 0 il saut caché

paron encore pour mes mauvaise expliquation ....

 

[job75]

Re : ouvrir onglet masqué depuis lien hypertexte

Re,

Bien évidemment mettez la macro précédente dans la feuille de la cellule cible, c'est tout.

Et si la cellule cible n'est pas modifiée manuellement, mais est calculée par une formule, commencez la macro par :

Private Sub Worksheet_Calculate()

Edit : et encore évidemment, mettez les bonnes adresses de cellules, sans vous mélangez les pédales

A+

 

[wrap food]

Re : ouvrir onglet masqué depuis lien hypertexte

désolé job 75

je ni arrive pas jai modifié le code ( je l ai mis dans la bonne feuille )mais ça ne fonctionne pas

Private Sub Worksheet_Calculate(ByVal Range)
If Intersect(Target, [C5]) Is Nothing Then Exit Sub
If IsNumeric([C5]) And [C5] > 0 Then "feul1" [E4].Cut [IV1] _
Else If [IV1] <> "" Then [IV1].Cut "feuil1"[E4]
End Sub

je suis dessus depuis hier soir

pourriez vous m aider..

je mais le classeur pour que ce soit plus explicite ....

Par avnce

merci

 

[job75]

Re : ouvrir onglet masqué depuis lien hypertexte

Bonjour wrap food, le forum,

Private Sub Worksheet_Calculate()
With Sheets("Feuil1")
  If IsNumeric([C5]) And [C5] > 0 Then .[E4].Cut .[IV1] _
  Else If .[IV1] <> "" Then .[IV1].Cut .[E4]
End With
End Sub

Il faut revalider C5 pour que la formule se recalcule et déclenche la macro.

A+