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 :

[VBA][Excel] Tester l'existence d'une feuille


Sujet :

Macros et VBA Excel

  1. #1
    Futur Membre du Club
    Inscrit en
    Juin 2005
    Messages
    16
    Détails du profil
    Informations forums :
    Inscription : Juin 2005
    Messages : 16
    Points : 7
    Points
    7
    Par défaut [VBA][Excel] Tester l'existence d'une feuille
    Bonjour tou le monde!

    je souhaite parcourir toutes les feuilles d'un fichier Excel dans une fonction qui prendre en paramètre un classeur dont le nb de feuilles n'est pas toujours le même.

    existe-t-il une fonction qui donne le nombre de feuilles dun classeur ou qui teste l'existence d'une feuille?

    merci de votre aide!

  2. #2
    Membre éclairé
    Avatar de Theocourant
    Profil pro
    Inscrit en
    Janvier 2005
    Messages
    618
    Détails du profil
    Informations personnelles :
    Âge : 45
    Localisation : France

    Informations forums :
    Inscription : Janvier 2005
    Messages : 618
    Points : 739
    Points
    739
    Par défaut
    Salut,

    Non il n'existe pas de fonction toute faite ... enfin jusqu'à ce qu'on me contredise (ouskel'n'or et Megaxel) ...

    mais je te propose ce code

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Function PresFeuil(nomFeuil as String) as Boolean
    Dim W
    Dim rep as Boolean
     
       rep = False
     
       For Each W In Worksheets
            W.Visible = True
            If W.Name = nomFeuil Then rep = True
       Next W
     
       PresFeuil = rep
    End Function
    Et pour l'utiliser tu fais ça :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    MsgBox PresFeuil("MaFeuil")
    Voilà

    +

    Théo
    Forums VB : lire la notice
    La touche existe pour être utilisée
    Pensez au tag
    Pour ceux n'ayant pas l'aide installée :
    - Aide MSDN pour VB6
    - Aide MSDN pour VBA
    Je ne réponds pas aux questions techniques par MP. Merci d'utiliser le forum fait pour çà.

  3. #3
    Membre expérimenté Avatar de Megaxel
    Profil pro
    Inscrit en
    Mai 2003
    Messages
    1 187
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2003
    Messages : 1 187
    Points : 1 405
    Points
    1 405
    Par défaut
    Et tu as bien sur le nombre de feuilles avec

  4. #4
    Futur Membre du Club
    Inscrit en
    Juin 2005
    Messages
    16
    Détails du profil
    Informations forums :
    Inscription : Juin 2005
    Messages : 16
    Points : 7
    Points
    7
    Par défaut
    merci à tous les deux!!!

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

Discussions similaires

  1. [2005] Tester l'existence d'une feuille Excel
    Par MoitieDeCigare dans le forum SSIS
    Réponses: 4
    Dernier message: 20/10/2011, 16h51
  2. Tester l'existence d'une feuille
    Par Godzestla dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 20/05/2008, 09h55
  3. [VBA-Excel]Empecher l'insertion d'une feuille par le clic droit
    Par Mut dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 17/09/2006, 11h10
  4. Tester l'existence d'une feuille Excel
    Par RodEpsi dans le forum Delphi
    Réponses: 3
    Dernier message: 01/08/2006, 15h27
  5. tester l'existence d'une feuille excel
    Par Equus dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 08/12/2005, 11h31

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