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 :

Pbm Boucle for


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé Avatar de casavba
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    464
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Juillet 2007
    Messages : 464
    Par défaut Pbm Boucle for
    Bonjour à tous,
    j'ai un pti pépin.
    je vous explique, j'ai une macro où j'ai inclus différentes requêtes sql chacune d'elle a été déclaré comme une chaine de caractère,
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
     sub mac()
    With Data.QueryTables.Add(Connection:=Array(..), Destination:=Range(ç1))
            .CommandText = Array(re,req,requ1)
            ...
        End With
    end sub
    sachant que "re" et "req" sont fixes, c'est juste "requ1" qui est variable ( en fait j'ai 4 autre "requ" numéroté de 1 à 4)
    Donc pour éviter des redondances, j'ai créé une boucle For. Or c'est là que ça coince en fait, quand j'ai inclus la boucle for ma macro ne marche plus "erreur de syntaxe" alors que sans boucle tous marche bien.
    Aidez moi svp
    voici le code
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    sub mac()
    for i = 1 to 4
    With Data.QueryTables.Add(Connection:=Array(..), Destination:=Range(ç1))
            .CommandText = Array(re,req,requ & i)
            ...
        End With
    next i
    end sub
    D"avance merci

  2. #2
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    Tu ne peux pas appeler une variable en utilisant des noms comme suite
    requ & i

  3. #3
    Membre confirmé
    Inscrit en
    Novembre 2003
    Messages
    120
    Détails du profil
    Informations forums :
    Inscription : Novembre 2003
    Messages : 120
    Par défaut à revoir
    Bonjour!

    Ton problème se trouverait au niveau de la concaténation de requ & i
    dans cette partie du code :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    .CommandText = Array(re,req,requ & i)

  4. #4
    Membre éclairé Avatar de casavba
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    464
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Juillet 2007
    Messages : 464
    Par défaut
    et donc il n'ya pas de solution c ça.

  5. #5
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    Tu peux utiliser ta boucle, mais il va falloir intégrer dans celle-ci le chargement d'une variable reqx qui sera différente a chaque tour de boule

    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 mac()
    for i = 1 to 4
    select case i
       case 1
           requx= ...
       case 2
           requx =...
        ...
    end case
     
    With Data.QueryTables.Add(Connection:=Array(..), Destination:=Range(ç1))
            .CommandText = Array(re,req,requx)
            ...
        End With
    next i
    end sub

  6. #6
    Inactif  
    Profil pro
    Inscrit en
    Juin 2007
    Messages
    2 054
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Juin 2007
    Messages : 2 054
    Par défaut
    Peut-être plus simple

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    sub mac()
    Dim a$ 
    a$ = "requ"
     
    for i = 1 to 4
    With Data.QueryTables.Add(Connection:=Array(..), Destination:=Range(ç1))
            .CommandText = Array(re,req,a$ & i)
            ...
        End With
    next i
    end sub
    A+

  7. #7
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    je ne comprend pas ce qe tu veux faire LeForestier
    Peux tu éclairer mes lampions

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

Discussions similaires

  1. Boucle for dans un script cmd
    Par nicolas.ganache dans le forum Développement
    Réponses: 4
    Dernier message: 19/07/2004, 16h07
  2. Réponses: 3
    Dernier message: 06/07/2004, 10h21
  3. [Debutant] Batch et Boucle for
    Par ludovic.fernandez dans le forum Scripts/Batch
    Réponses: 8
    Dernier message: 06/05/2004, 19h21
  4. [Swing][boucles] for, do, if .....comment faire simple?
    Par chastel dans le forum AWT/Swing
    Réponses: 7
    Dernier message: 02/05/2004, 22h49
  5. [langage] boucle "for" modification du pas
    Par K-ZimiR dans le forum Langage
    Réponses: 4
    Dernier message: 29/04/2004, 11h54

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