XL pour MAC Masquer et Démasquer Feuilles Excel

Bernard@

XLDnaute Nouveau
Bonjour,
Le masquage et le démasquage d'onglets Excel avec VBA sous Windows fonctionnent bien (voir écritures ci-dessous) mais ne fonctionnent pas avec IOS!
Voici l'écriture VBA sur onglet "Accueil"
""
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
LinkTo = Target.SubAddress
WhereBang = InStr(1, LinkTo, "!")
If WhereBang > 0 Then
MySheet = Left(LinkTo, WhereBang - 1)
MySheet = Application.WorksheetFunction.Substitute(MySheet, "'", "")
Worksheets(MySheet).Visible = True
Worksheets(MySheet).Select
MyAddr = Mid(LinkTo, WhereBang + 1)
Worksheets(MySheet).Range(MyAddr).Select
Sheets("Accueil").Visible = False
End If
End Sub

""
et voici l'écriture sur l'onglet de destination:

""
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Sheets("Accueil").Visible = True
Worksheets("Accueil").Select
Target.Parent.Worksheet.Visible = False
End Sub

""
En utilisant ce fichier avec IOS , cela ne fonctionne pas, Que doit-on modifier?
Merci d'avance
Cordialement
Bernard
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 915
Membres
101 837
dernier inscrit
Ugo