IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Masquer les feuilles Excel sous condition


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre expérimenté
    Homme Profil pro
    Retraité
    Inscrit en
    Avril 2014
    Messages
    308
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Manche (Basse Normandie)

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Avril 2014
    Messages : 308
    Par défaut Masquer les feuilles Excel sous condition
    Bonjour à tous les lecteurs : Dans un projet je souhaite masquer toutes les feuilles de mon classeur sauf une bien sur celle nommée Connexion.
    Je chercher sans succès une macro qui compte toutes les feuilles pour les masquer sauf la feuille nommée connexion qui correspond à la feuil1 dans le VBA project . Je précise que n'importe quelle feuille peut être renommée donc cela ne doit pas influencer le code VBA. Ici les noms de Feuilles sont des exemples. Pour bien me faire comprendre c'est la partie gauche qui m'intéresse et non la partie entre parenthèses. donc ici Feuil1
    Je precise que je peux soi ajouter ou supprimer une feuille et bien sur toujours ne pas influencer le code.
    Excel version 2021Nom : Connexion.png
Affichages : 591
Taille : 13,9 Ko

  2. #2
    Membre Expert
    Inscrit en
    Décembre 2002
    Messages
    993
    Détails du profil
    Informations forums :
    Inscription : Décembre 2002
    Messages : 993
    Par défaut
    Salut, je me base sur le codename de la feuille, dans ton cas c'est Feuil1. Le codename n'est accessible que via l'environnement vba, donc même si un utilisateur change le nom de l'onglet, Feuil1 reste accessible à la macro.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Sub MasquerFeuilles()
        Dim ws As Worksheet
        For Each ws In ThisWorkbook.Worksheets
            If ws.CodeName <> "Feuil1" Then
                ws.Visible = xlSheetHidden
            End If
        Next ws
    End Sub

  3. #3
    Membre expérimenté
    Homme Profil pro
    Retraité
    Inscrit en
    Avril 2014
    Messages
    308
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Manche (Basse Normandie)

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Avril 2014
    Messages : 308
    Par défaut
    Bonjour Franc : Merci pour ta réponse efficace. En posant la question à Chat GPT il n'a même pas été capable de résoudre cette simple question.
    Bon Week-End

  4. #4
    Membre Expert
    Profil pro
    Inscrit en
    Juillet 2006
    Messages
    1 508
    Détails du profil
    Informations personnelles :
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Juillet 2006
    Messages : 1 508
    Par défaut
    Salut,

    Sachant que les IA sont entrainée avec ce qu'on trouve sur internet,
    et que beaucoup de ce qu'on trouve sur internet est douteux,
    je ne leur fait pas confiance.

  5. #5
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 166
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 166
    Billets dans le blog
    53
    Par défaut
    Bonjour deedolith,
    Je ne partage pas du tout ce que tu as écrit.
    J'ai une version payante de ChatGPT que j'utilise pratiquement tous les jours et je reçois un très bon code VBA. Aussi bien en Access, qu'en Word ou Excel et même avec Power Query
    Par contre, il est évident qu'une personne ayant une faible connaissance de ces applications a peu de chance d'obtenir un résultat probant.
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  6. #6
    Membre Expert Avatar de Nain porte koi
    Homme Profil pro
    peu importe
    Inscrit en
    Novembre 2023
    Messages
    1 166
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : peu importe

    Informations forums :
    Inscription : Novembre 2023
    Messages : 1 166
    Par défaut
    Hello Philippe

    la version payante est "peut-être" plus "intelligente" mais, pour moi aussi, j'y trouve beaucoup de concetés, et en particulier sur les méthodes et propriétés qui n'existent pas mais qui le pourrait "logiquement".
    Essaye de demander à chatGPT la procédure pour déprotéger les modules VBA en connaissant le mot de passe ; tout ce que j'ai pu avoir comme réponses étaient logiques mais avec des méthodes/propriétés inexistantes

    Je suis donc d'accord avec deedolith, il est entrainé avec beaucoup de trucs totalement faux

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 0
    Dernier message: 17/05/2019, 12h15
  2. Problème d'impression d'une feuille excel sous une condition
    Par rihab92 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 28/04/2015, 13h03
  3. [XL-2007] Enregistrer les données d'une feuille Excel sous Word (de fichier Xls en Docx
    Par tyndare36 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 20/02/2014, 21h06
  4. Comment copier une feuille EXCEL sous ACCESS?
    Par PAULOM dans le forum Access
    Réponses: 7
    Dernier message: 28/04/2006, 10h01
  5. [VBA-E]feuille créée sous condition
    Par Angel79 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 24/02/2006, 15h11

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo