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 :

Bug pour le calcul de feuilles nommées


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre actif
    Homme Profil pro
    Inscrit en
    Novembre 2011
    Messages
    59
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Novembre 2011
    Messages : 59
    Par défaut Bug pour le calcul de feuilles nommées
    Bonjour à tous,
    Je n'ai pas trouvé le moyen de contourner le bug dans ma macro pour compter le nb de feuilles désirées !
    Merci à l'avance
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
        Option Explicit
        Sub test()
        Dim s As Long, n As Long
        For s = 1 To Worksheets.Count
        Sheets(("Feuil") & s).Select
        n = s
        Next
        End Sub
    Fichiers attachés Fichiers attachés

  2. #2
    Expert confirmé Avatar de Patrice740
    Homme Profil pro
    Retraité
    Inscrit en
    Mars 2007
    Messages
    2 478
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Mars 2007
    Messages : 2 478
    Par défaut
    bonjour,

    Cette macro ne compte rien !
    Quel est le but recherché ?
    Pour compter le nombre de feuilles de calcul dont le nom commence par "Feuil" :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Option Explicit
    Sub test()
    Dim f As Worksheet
    Dim n As Long
      For Each f In Worksheets
        If Left(f.Name, 5) = "Feuil" Then n = n + 1
      Next f
      MsgBox n
    End Sub

  3. #3
    Membre actif
    Homme Profil pro
    Inscrit en
    Novembre 2011
    Messages
    59
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Novembre 2011
    Messages : 59
    Par défaut
    Bonsoir à tous,
    C'est parfait !
    Merci de ton aide !
    Bonne soirée

Discussions similaires

  1. [XL-2007] bug pour supprimer des feuilles
    Par tompom3108 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 21/11/2011, 17h58
  2. Récupérer le contenu d'un champs pour un calcul ?
    Par dark_vidor dans le forum Général JavaScript
    Réponses: 2
    Dernier message: 28/01/2006, 10h25
  3. Réponses: 6
    Dernier message: 06/10/2005, 16h02
  4. Méthode pour du calcul partagé (urgent...)
    Par cedricB dans le forum CORBA
    Réponses: 8
    Dernier message: 24/01/2005, 19h59

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