XL 2016 Erreur exécution Worksheet Macro Masquer/Démasquer

[ALE37]

Bonsoir le forum, j'ai une macro qui me permet de masquer ou de démasquer les onglets
et celà fonctionne très bien en règle générale à l'exception de ce fichier (en PJ). J'obtiens toujours
la même erreur d'exécution 1004 et je n'arrive pas à comprendre ce qui ne permet pas le bon
déroulement de la procédure...Je masque (ou démasque) tous les onglets sauf "SOMMAIRE, ARCISE, ARGO".
Quelqu'un a t il une idée ? D'avance merci.

 

[eriiic]

Os court
Toi tu as oublié de prendre tes gouttes ce matin.
Tu sais que le médecin t'as dit que c'était imprtant !

 

[ALE37]

Bonjour à tous,

tu as des feuilles xlSheetVeryHidden (=2) et .Visible = Not 2 ça ne le fait pas.

Soit les masquées sont toutes xlSheetHidden et ton code devrait fonctionner, soit tu as vraiment besoin de xlSheetVeryHidden et il faut les traiter (et lister les feuilles concernées) différemment.
Le mieux est de travailler toujours avec les constantes xlSheetVisible, xlSheetHidden et xlSheetVeryHidden qui ont l'avantage d'auto-documenter ton code.
eric

 

[ALE37]

Bonjour Eriiiic, le code de Staple modifié fonctionne parfaitement. Néanmoins de quelle manière peut on savoir si les onglets de mon classeur sont en VeryHidden (2) ou Hidden ? J'ai bien compris qu'il y avait une relation dans cette instruction mais encore faut il le voir. Comment liste t on les feuilles concernées ?

 

[ALE37]

Bonjour le fil
•>eriiiiic
un bon gros GBON?

Ton code fonctionne trés bien. Je viens de le tester à l'instant...Nickel!

 

[Staple1600]

Re

•>ALE37
Tant mieux alors

•>eriiiic
Si tu as du temps à perdre...

Sub Big_Star_1972(Optional First_Record)
Dim abc$, cba$
abc = "Gh fnvf dhr yr zéqrpva g'nf qvg dhr p'égnvg vzcbegnag !"
cba = "Bhv, znvf vy rfg pbasvaé"
End Sub

 

[eriiic]

Ben rend-les toutes visibles, ensuite ta bascule fonctionnera.
A lancer 1 fois :

Sub visibles()
    Dim sh As Worksheet
    For Each sh In Worksheets
        sh.Visible = xlSheetVisible
    Next sh
End Sub

eric

@Staple : pour l'instant je sèche, et puis j'ai faim

 

[Staple1600]

Re

Juste pour l'apéro d'eriiiic


PS: Merci pour la visibilité de toutes

 

[ALE37]

Ben rend-les toutes visibles, ensuite ta bascule fonctionnera.
A lancer 1 fois :

Sub visibles()
    Dim sh As Worksheet
    For Each sh In Worksheets
        sh.Visible = xlSheetVisible
    Next sh
End Sub

eric

@Staple : pour l'instant je sèche, et puis j'ai faim

OK Eriiiic, merci!