Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Lien hypertexte

Lien hypertexte

1 réponse
Avatar
Jacques
Bonjour,

J'ai écrit l'instruction suivante :

Private Sub worksheet_selectionchange(ByVal target As Excel.Range)

If target.Count = 1 And target.Hyperlinks.Count Then
Sheets("A Recevoir").Visible = False
Application.Goto ActiveCell, True
End If
End Sub

Le lien hypertexte fonctionne mais la feuille "A Recevoir" ne se masque pas.
Quelqu'un peut-il m'aider?
Merci
Jacques
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Starwing
Bonjour Jacques,

Sheets("A Recevoir").Visible = xlSheetHidden

ou

Sheets("A Recevoir").Visible = xlSheetVeryHidden

Starwing