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

VBA Access Discussion :

Concatenation code VBA


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre habitué
    Profil pro
    Inscrit en
    Juin 2007
    Messages
    10
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2007
    Messages : 10
    Par défaut Concatenation code VBA
    Bonjour tout le monde,
    est ce que quelqun peut me montrer comment faire pour concatener le code suivant


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    For I = 1 To 4
     
    ExcelSheet.celles(Arg_Ligne + 1, 1 + I + Arg_Colonne) = Arg_Rs popechantcontI]
     
    Next
    je veux que Arg_Rs![popechantcont " I " ] change en fonction du I
    merci

  2. #2
    Membre confirmé
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    187
    Détails du profil
    Informations personnelles :
    Âge : 39
    Localisation : France, Rhône (Rhône Alpes)

    Informations forums :
    Inscription : Juillet 2007
    Messages : 187
    Par défaut
    Salut,

    essaye

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ExcelSheet.celles(Arg_Ligne + 1, 1 + I + Arg_Colonne) = Arg_Rs![popechantcont & I & ]
    mais en général on utilise ça avec des chaines de caractères, ça serait pas plutôt :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ExcelSheet.celles(Arg_Ligne + 1, 1 + I + Arg_Colonne) = Arg_Rs!["popechantcont " & I  ]
    ?

  3. #3
    Membre habitué
    Profil pro
    Inscrit en
    Juin 2007
    Messages
    10
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2007
    Messages : 10
    Par défaut
    j'ai essayé mais ça ne marche pas.
    j'ai essayé ça aussi mais en vain:
    ....... = "Arg_rs![popechantcont" & I & "]"

  4. #4
    Membre confirmé
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    187
    Détails du profil
    Informations personnelles :
    Âge : 39
    Localisation : France, Rhône (Rhône Alpes)

    Informations forums :
    Inscription : Juillet 2007
    Messages : 187
    Par défaut
    lol dsl je suis un noob aussi :p

    T'es sûr de la syntaxe de ExcelSheet.celles() ?

    Arg_RS c'est un formulaire ou une table ?

  5. #5
    Membre habitué
    Profil pro
    Étudiant
    Inscrit en
    Juin 2007
    Messages
    15
    Détails du profil
    Informations personnelles :
    Âge : 38
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Juin 2007
    Messages : 15
    Par défaut
    Bonjour,
    je pense que c'est plutôt :
    excelsheet.cells(........

  6. #6
    Membre habitué
    Profil pro
    Inscrit en
    Juin 2007
    Messages
    10
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2007
    Messages : 10
    Par défaut
    arg_rs est un recordset
    et oui vous avez raison c'est cells plutot que celles.

Discussions similaires

  1. requete sql et code vba concatenation champs par date
    Par elhaissoufi dans le forum Requêtes et SQL.
    Réponses: 0
    Dernier message: 13/12/2009, 01h33
  2. Réponses: 2
    Dernier message: 27/10/2005, 15h51
  3. Réponses: 4
    Dernier message: 13/10/2005, 14h44
  4. Réponses: 3
    Dernier message: 06/09/2005, 10h27
  5. Comment creer une procédure stockée à partir d'un code VBA?
    Par Alcor020980 dans le forum Connexion aux bases de données
    Réponses: 4
    Dernier message: 24/05/2005, 19h55

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