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

 

[job75]

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 :

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

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]

Re : ouvrir onglet masqué depuis lien hypertexte

Re,

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

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

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+