ouvrir onglet masqué depuis lien hypertexte

wrap food · 8 Août 2011

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

job75 · 9 Août 2011

Re : ouvrir onglet masqué depuis lien hypertexte

Re,

Ah mais on perd le lien hypertexte si l'on valide 2 fois de suite la même valeur > 0.

Il faut une condition supplémentaire dans les 2 macros :

Code:

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

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
  If [E4] <> "" Then [E4].Cut [IV1]
Else
  If [IV1] <> "" Then [IV1].Cut [E4]
End If
End Sub

A+

job75 · 9 Août 2011

Re : ouvrir onglet masqué depuis lien hypertexte

Re,

Pour que les macros fonctionnent même avec des valeurs d'erreur, utiliser la fonction logarithme :

Code:

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

Code:

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

Fichier (3)

A+

ouvrir onglet masqué depuis lien hypertexte

wrap food

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

ouvrir onglet masqué depuis lien hypertexte

wrap food

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency