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 :

copie de colonnes a taille variable de differents workbooks


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Août 2008
    Messages
    141
    Détails du profil
    Informations forums :
    Inscription : Août 2008
    Messages : 141
    Par défaut copie de colonnes a taille variable de differents workbooks
    bonjour cher forum,

    me voila entrain de tenter de gerer un copie paste de donnees de taille variables dans deux workbooks. voila a peu pres ce que ce la donne .
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Dim DerCel As Long
    DerCel = Range("I").Cells.Count(xlCellTypeLastCell)
    DerCel = MsgBox("have we a number", vbOKOnly) 
    'cette derniere est justre un petit test
    dim i as integer
    For i = 1 to cint(Dercel)
    Worksheets("Sheet1").Range("A & "i" & ") = Worksheets("Data1").Range("A & "i" & ") 
    next i

  2. #2
    Membre éclairé Avatar de zandru
    Homme Profil pro
    Ingénieur conception mécanique
    Inscrit en
    Mars 2008
    Messages
    507
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Ingénieur conception mécanique
    Secteur : Industrie

    Informations forums :
    Inscription : Mars 2008
    Messages : 507
    Par défaut
    Bonjour,

    Il y a une question dans ton message ???

    si ton code ne marche pas ;

    remplace :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Dim DerCel As Long
    DerCel = Range("I").Cells.Count(xlCellTypeLastCell)
    DerCel = MsgBox("have we a number", vbOKOnly)
    par :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Dim DerCel As Long
    DerCel = Range("I65536").End(xlUp).Row
    et dit moi ce que cela donne.

  3. #3
    Membre confirmé
    Inscrit en
    Août 2008
    Messages
    141
    Détails du profil
    Informations forums :
    Inscription : Août 2008
    Messages : 141
    Par défaut seconde partie
    la ou je bloque vraiment c'est dans la deuxieme partie du code

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Worksheets("Sheet1").Range("A & "i" & ") = Workbooks...

    mon code ne lie pas le i comme je l'espere

  4. #4
    Membre éclairé Avatar de zandru
    Homme Profil pro
    Ingénieur conception mécanique
    Inscrit en
    Mars 2008
    Messages
    507
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Ingénieur conception mécanique
    Secteur : Industrie

    Informations forums :
    Inscription : Mars 2008
    Messages : 507
    Par défaut
    essai comme ceci :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Worksheets("Sheet1").cells(1, i) = Worksheets("Data1").cells(1, i)

  5. #5
    Membre Expert Avatar de Godzestla
    Homme Profil pro
    Chercheur de bonheur
    Inscrit en
    Août 2007
    Messages
    2 403
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 60
    Localisation : Belgique

    Informations professionnelles :
    Activité : Chercheur de bonheur
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2007
    Messages : 2 403
    Par défaut
    la ou je bloque vraiment c'est dans la deuxieme partie du code

    Worksheets("Sheet1").Range("A & "i" & ") = Workbooks...


    mon code ne lie pas le i comme je l'espere
    La syntaxe correcte serait plutot du genre :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Worksheets("Sheet1").Range("A" & i) = Workbooks...
    A la compilation, c'est meme surprenant que cela passe.

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

Discussions similaires

  1. [XL-2007] Seléctionner les 3 dernières colonnes d'un tableau à taille variable
    Par ron13 dans le forum Macros et VBA Excel
    Réponses: 12
    Dernier message: 31/08/2011, 05h14
  2. [XL-2003] Copie d'une plage dans un format different colonne en ligne
    Par Arno_ap dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 13/05/2011, 15h37
  3. copy de colonne
    Par marsupilami34 dans le forum Requêtes
    Réponses: 2
    Dernier message: 19/08/2005, 20h37
  4. Comment obtenir un tableau à taille variable ?
    Par marsupilami34 dans le forum Langage
    Réponses: 6
    Dernier message: 27/06/2005, 15h03
  5. [JTable] ajuster la taille d'une colonne à la taille du texte
    Par GETah dans le forum Agents de placement/Fenêtres
    Réponses: 3
    Dernier message: 24/02/2005, 11h53

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