XL 2010 copier un code dans toutes les feuilles excel.

lestoiles1

XLDnaute Nouveau
Bonjour à tous,

Je dois copier cette formule dans toutes les feuilles excel. 896 étant le nom d'une feuille. qu'est que je dois faire? merci

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
With Sheets("896")
.Visible = False
End With
End Sub
 

Staple1600

XLDnaute Barbatruc
Bonjour le fil, lesetoiles1

lesetoiles1
Oui, il est un peu tard mais "faute de grives, on mange des merles"
Tout en ne sachant pas où tu veux en venir
code à mettre dans ThisWorkBook
VB:
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
On Error Resume Next
Sh.Visible = False
End Sub
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas