Impossible de définir la propriété Visible de la classe Worksheet

Bonjour Chers tous

Je ne sais pas comment j'ai dormi la nuit mais dès mon réveil le classeur sur lequel j'ai travaillé la veille a décidé de ne plus fonctionner normalement. Toutes mes macros ou il y'a ( .Visible sont frappées de debogage)

C'elle ci par exemple:

Sub Afficher_tout()

Application.ScreenUpdating = False

Dim o As Object

For Each o In Sheets

o.Visible = True

Next

End Sub

Je suis terrifié aidez moi à comprendre pourquoi . Merci

Bonjour,

Essaie ainsi :

Public Sub Show_sheets()
Dim ws As Worksheet
    MsgBox "Vous allez afficher toutes les feuilles du classeur actif.", 64, "Information"
    For Each ws In ActiveWorkbook.Sheets
        ws.Visible = -1
    Next ws
End Sub

Bonjour,

ton code est correct, il doit y avoir autre chose. Peux-tu mettre ton classeur ?