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 :

Boucle for en macro [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éprouvé
    Profil pro
    Inscrit en
    Novembre 2004
    Messages
    1 083
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2004
    Messages : 1 083
    Par défaut Boucle for en macro
    Bonjour,
    comment faire par un boucle for ou autre pour eviter d'écrir 400 lignes dans mon macro suivant :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
     
    Sub Mclasseur()
     
    '
     
    ' Mclasseur Macro
     
    '
     
     
     
    '
     
        Workbooks.Add
     
        Selection.consolidate Sources:=Array( _
     
            "'C:\Users\user1\Desktop\classeurMacroEssai\[classeur1.xlsx]Feuil1'!R1C1:R3C2", _
     
            "'C:\Users\user1\Desktop\classeurMacroEssai\[classeur2.xlsx]Feuil1'!R1C1:R3C2", _
     
            "'C:\Users\user1\Desktop\classeurMacroEssai\[classeur3.xlsx]Feuil1'!R1C1:R3C2"), _
     
    ...........................................................................................
    ...........................................................................................
    ............................................................................................
     
            "'C:\Users\user1\Desktop\classeurMacroEssai\[classeur400.xlsx]Feuil1'!R1C1:R3C2"), _
     
            Function:=xlSum, TopRow:=False, LeftColumn:=False, CreateLinks:=False
     
    End Sub
    D'avance merci.

  2. #2
    Expert confirmé
    Homme Profil pro
    Inscrit en
    Août 2010
    Messages
    3 453
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Août 2010
    Messages : 3 453
    Par défaut
    Bonjour,

    Je n'ai absolument pas testé mais c'est peut être un début de piste :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
     
    Sub Mclasseur()
     
        Dim Tbl(1 To 400) As String
        Dim I As Integer
     
        For I = 1 To 400
     
            Tbl(I) = "'C:\Users\user1\Desktop\classeurMacroEssai\[classeur" & I & ".xlsx]Feuil1'!R1C1:R3C2"
     
        Next I
     
        Workbooks.Add
     
        Selection.Consolidate Tbl(), xlSum, False, False, False
     
    End Sub
    Hervé.

  3. #3
    Membre éprouvé
    Profil pro
    Inscrit en
    Novembre 2004
    Messages
    1 083
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2004
    Messages : 1 083
    Par défaut
    Ca marche.
    Merci beaucoup.

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

Discussions similaires

  1. [XL-2010] Macro évenementielle + boucle for
    Par Hanz2.0 dans le forum Macros et VBA Excel
    Réponses: 17
    Dernier message: 22/08/2014, 08h35
  2. [XL-2007] Boucles for imbriquées, macro trop lente
    Par Jambonpurée dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 13/06/2011, 18h25
  3. [XL-2003] Macro boucle for next trop lente
    Par sixtm dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 09/06/2011, 17h08
  4. [VBA-E] Macro boucle for (erreur 424)
    Par vanexq dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 14/09/2010, 13h58
  5. Problème boucle For et interface paramètrage macro
    Par sangoben dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 28/05/2010, 15h12

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