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.

 

[Staple1600]

Bonsoir le fil, ALE37

•>ALE37
On pouvait rester dans le fil initial...

XL 2016 - Masquer une plage d’onglets

Bonsoir à tous, je souhaiterais connaître l’instruction VBA qui me permet de masquer toutes les feuilles comprises entre 1 ou plusieurs onglets spécifiques. Ex masquer tous les onglets qui se trouvent entre l’onglet « Début » et l’onglet « Fin ». jusqu’à présent je masquais les onglets en...

www.excel-downloads.com

 

[ALE37]

Effectivement mais je ne suis pas encore rompu à toutes les bonnes pratiques du forum. Çà va venir!

 

[Staple1600]

Re

Tu me diras dans ton classeur, on ne trouve pas trace (ou si peu) de ce qu'on te proposait dans le fil que je cite
(et qui fonctionnait à 100%)

 

[ALE37]

Je l'ai testé également et j'ai le même problème sur ce fichier :

Sub Masquer_Demasquer_Feuilles()
Application.ScreenUpdating = False 'permet de réduire le temps de traitement
Dim f As Worksheet
For Each f In Worksheets
'il suffit de rajouter les onglets que l'on ne souhaite pas masquer
If InStr(1, "SOMMAIREARCISEARGO", f.Name, 1) = 0 Then
f.Visible = Not f.Visible
'On indique l'onglet sur lequel le curseur revient
Sheets("SOMMAIRE").Select
End If
Next
End Sub

J'ai bien entendu mis en application ce que nous avons vu ensemble mais j'ai souhaité tester une autre solution sur ce fichier au cas où!....mais la problèmatique reste la même

 

[Staple1600]

Re

Essaie cette adaptation qui fonctionne
(en tout cas, ce fut le cas lors de mon test)
A voir à l'usage en situation réelle.

Sub Masquer_Demasquer_Feuilles()
Dim f As Worksheet, Visibles, Check As Boolean
Application.ScreenUpdating = False
Visibles = Array("SOMMAIRE", "ARCISE", "ARGO")
For Each f In Worksheets
Check = IsError(Application.Match(f.Name, Visibles, 0))
f.Visible = Not Check = f.Visible
Next
End Sub

 

[eriiic]

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

 

[Staple1600]

Bonsoir eriiiic

Donc tu disqualifies le code proposé au message#6, alors ?

PS: je suis pas loin de penser la même chose.

 

[eriiic]

Bonjour Staple,

oui et non ;-)
Non parce que c'est une façon de faire, pourquoi pas.
Et oui parce que s'il n'a aucune raison d'avoir une feuille xlsheetVeryHidden la remettre xlSheetHidden résout le pb.
Et s'il a une raison et bien il faut la remettre xlSheetVeryHidden et donc faire autrement.
Donc en fait un gros IUO
eric

 

[ALE37]

Bonsoir eriiiic

Donc tu disqualifies le code proposé au message#6, alors ?

PS: je suis pas loin de penser la même chose.

Bonjour le fil, je vais tester et vous tiens au courant. Non je n’avais pas de raison particulière d’avoir un code verryhidden. Je vous dis ça dans la matinée

 

[Staple1600]

Donc en fait un gros IUO=Investigational use only ?

eric

Bonjour le fil
•>eriiiiic
un bon gros GBON?

 

[eriiic]

SEY ! ;-)

 

[Staple1600]

Re

Lost in translation
Au moins, ce qui est bien avec le confinement, c'est que cela fait voyager et qu'on apprends des nouveaux mots.

 

[eriiic]

Voulant ménager toutes les susceptibilités je n'ai pas voulu écrire OUI ;-)
Le code était facile pourtant, tu me déçois

 

[Staple1600]

Re

Désolé pour ce qui va suivre...

Sub Bingo()
Dim xOx, Gong, Flying_Teapot!
xOx = Split("1010011²1000101²1011001", "²")
ReDim Gong(UBound(xOx))
For Flying_Teapot = LBound(xOx) To UBound(xOx)
Gong(Flying_Teapot) = Chr(Application.Bin2Dec(xOx(Flying_Teapot)))
Next
Acces_Granted = Join(Gong, vbNullString)
MsgBox StrReverse(Acces_Granted) & "!", vbExclamation, "Le confinement a encore frappé!"
End Sub