XL 2010 Bug fonction "SheetVeryHidden"

  • Initiateur de la discussion Initiateur de la discussion thomashty
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

thomashty

XLDnaute Occasionnel
Bonjour,

J'ai un bug sur mon outil Excel que je n'arrive pas à résoudre.. Pourriez vous m'aider svp?

Ci joint le fichier en question, et les captures écran du message d'erreur.

Merci d'avance

TH
 

Pièces jointes

  • Capture.PNG
    Capture.PNG
    4.6 KB · Affichages: 54
  • Capture1.PNG
    Capture1.PNG
    6.2 KB · Affichages: 53
  • Outil finalisé.xlsm
    Outil finalisé.xlsm
    153.5 KB · Affichages: 30
Dernière modification par un modérateur:
Re : Bug fonction "SheetVeryHidden"

Bonjour.
C'est probablement parce qu'il doit toujours rester au moins une feuille affichée.
Attention à respecter partout la bonne orthographe du mot "accueil".
Il n'existe pas de feuille "Page d'acceuil"
 
Re : Bug fonction "SheetVeryHidden"

Bonjour Dran,

Exact !!! Merci pour cette remarque, je me suis rendu compte de cette coquille hier que j'ai modifié et je ne comprenais pas pourquoi ce bug soudain..

Tout s'explique... merci encore
 
Dernière modification par un modérateur:
Re : Bug fonction "SheetVeryHidden"

Bonjour Thomas.

Sachant qu'il s'agit de la seule affichée, ça provoque une erreur.

En sortant le nom de la feuille avec un Debug.Print et en modifiant la valeur dans le test, cela refonctionne correctement.

Code:
Sub CacheAutre() 'except page d'acceuil
    Dim Ws As Worksheet

    For Each Ws In ThisWorkbook.Worksheets
    Debug.Print Ws.Name
        If Ws.Name <> "Page d'accueil" Then
            Ws.Visible = xlSheetVeryHidden
        End If
    Next

End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
13
Affichages
112
  • Question Question
Microsoft 365 Rechercher date
Réponses
5
Affichages
128
  • Question Question
Microsoft 365 Liste de choix...
Réponses
8
Affichages
206
Réponses
6
Affichages
246
  • Question Question
Microsoft 365 macro TCD
Réponses
4
Affichages
272
Retour