ouvrir onglet masqué depuis lien hypertexte

W

wrap food

XLDnaute Occasionnel

• 8 Août 2011

• #2

Re : ouvrir onglet masqué depuis lien hypertexte

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

merci

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 8 Août 2011

• #3

Re : ouvrir onglet masqué depuis lien hypertexte

Bonjour wrapfood,

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

Bonne journée,

mth

 

Vote positif 0 Vote négatif

W

wrap food

XLDnaute Occasionnel

• 8 Août 2011

• #4

Re : ouvrir onglet masqué depuis lien hypertexte

merci mth

je peux le faire sans passer par un bouton ?

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 8 Août 2011

• #5

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Août 2011

• #6

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) :

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+

 

Pièces jointes

• Classeur(1).xls

  36 KB · Affichages: 193
• Classeur(1).xls

  36 KB · Affichages: 211
• Classeur(1).xls

  36 KB · Affichages: 198

Vote positif 0 Vote négatif

W

wrap food

XLDnaute Occasionnel

• 8 Août 2011

• #7

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Août 2011

• #8

Re : ouvrir onglet masqué depuis lien hypertexte

Re,

wrap food à dit:

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

Cliquez pour agrandir...

Les MFC c'est pour les cellules...

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

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Août 2011

• #9

Re : ouvrir onglet masqué depuis lien hypertexte

Re,

Autre solution pour le fun 🙂 avec cette macro :

Code:

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+

 

Pièces jointes

• Classeur(2).xls

  36 KB · Affichages: 113
• Classeur(2).xls

  36 KB · Affichages: 146
• Classeur(2).xls

  36 KB · Affichages: 120

Vote positif 0 Vote négatif

W

wrap food

XLDnaute Occasionnel

• 8 Août 2011

• #10

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 ...

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Août 2011

• #11

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 :

Code:

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+

 

Vote positif 0 Vote négatif

W

wrap food

XLDnaute Occasionnel

• 8 Août 2011

• #12

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 ....

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Août 2011

• #13

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 :

Code:

Private Sub Worksheet_Calculate()

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

A+

 

Dernière édition: 8 Août 2011

Vote positif 0 Vote négatif

W

wrap food

XLDnaute Occasionnel

• 9 Août 2011

• #14

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

 

Pièces jointes

• Classeur(2)(1).xls

  38 KB · Affichages: 82

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Août 2011

• #15

Re : ouvrir onglet masqué depuis lien hypertexte

Bonjour wrap food, le forum,

Code:

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+

 

Pièces jointes

• Classeur2(1).xls

  33 KB · Affichages: 91
• Classeur2(1).xls

  33 KB · Affichages: 89
• Classeur2(1).xls

  33 KB · Affichages: 100

Vote positif 0 Vote négatif