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 :

Copier lignes sélec


Sujet :

Macros et VBA Excel

  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Avril 2007
    Messages
    41
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2007
    Messages : 41
    Par défaut Copier lignes sélec
    Bonjour,

    je cherche à copier des lignes sélectionnées d'un classeur ouvert, vers un autre fermé.
    J'ai pris un code pour copier une ligne d'un classeur à l'autre, mais je n'arrive pas à l'adapter pour plusieurs lignes.
    Je souhaiterai en cliquant sur le bouton, copier les lignes sélectionnées.
    Voici le code:

    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
    Private Sub CommandButton1_Click()
     
    'je comprends qu'il prend la ligne 3 à partir de la colonne A, mais comment marquer qu'il prenne les lignes sélec?
     
        Range("A3:L3").Select
        Selection.Copy
     
    ' ouverture du fichier du jour et recopie de la première ligne
     
     ChDir "C:\Nature\Offre_dpt\PR\Waypoint"
         Workbooks.Open Filename:= _
            "C:\Nature\Offre_dpt\PR\Waypoint\Fiche_veille_PR_Arcview.xls"
        Windows("Fiche_veille_PR_Arcview.xls").Activate
        Range("A2:L2").Select
        ActiveSheet.Paste
     
    End Sub
    Merci d'avance

  2. #2
    Expert confirmé Avatar de casefayere
    Homme Profil pro
    RETRAITE
    Inscrit en
    Décembre 2006
    Messages
    5 138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Ardennes (Champagne Ardenne)

    Informations professionnelles :
    Activité : RETRAITE
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Décembre 2006
    Messages : 5 138
    Par défaut
    Bonjour,
    simplement en otant :
    et il prendra la selection en cours
    Cordialement,
    Dom
    _____________________________________________
    Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
    pensez à cliquer sur :resolu: si votre problème l'est
    Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Avril 2007
    Messages
    41
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2007
    Messages : 41
    Par défaut
    En fait je l'ai supprimé, mais j'ai un message d'erreur '424,objet requis'.
    Mon classeur s'ouvre mais je n'ai pas mes lignes collées

    Mon nvo code:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Private Sub CommandButton1_Click
     
     
    Selection.Copy
     
    ' ouverture du fichier du jour et recopie de la première ligne
     
     ChDir "C:\Nature\Offre_dpt\PR\Waypoint"
         Workbooks.Open Filename:= _
            "C:\Nature\Offre_dpt\PR\Waypoint\Fiche_veille_PR_Arcview.xls"
        Windows("Fiche_veille_PR_Arcview.xls").Activate
     
        Active.Paste
    Merci de m'avoir répondu si vite

  4. #4
    Membre Expert Avatar de aalex_38
    Inscrit en
    Septembre 2007
    Messages
    1 631
    Détails du profil
    Informations forums :
    Inscription : Septembre 2007
    Messages : 1 631
    Par défaut
    Bonjour,

    Une erreur de syntaxe ? :


  5. #5
    Membre averti
    Profil pro
    Inscrit en
    Avril 2007
    Messages
    41
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2007
    Messages : 41
    Par défaut
    J'ai remplacé Active par Selection mais ça ne marche toujours pas.
    Quelqu'un connait l'expression à noter?

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Private Sub CommandButton1_Click()
     
        Selection.Copy
     
    ' ouverture du fichier du jour et recopie de la première ligne
     
     ChDir "C:\Nature\Offre_dpt\PR\Waypoint"
         Workbooks.Open Filename:= _
            "C:\Nature\Offre_dpt\PR\Waypoint\Fiche_veille_PR_Arcview.xls"
        Windows("Fiche_veille_PR_Arcview.xls").Activate
     
         Selection.Paste
    Merci

  6. #6
    Membre émérite Avatar de sabzzz
    Profil pro
    Inscrit en
    Octobre 2009
    Messages
    748
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2009
    Messages : 748
    Par défaut
    bonjour alice,

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Range("A3:L3").Select
    Set plg1 = Selection
     
    ChDir "C:\Nature\Offre_dpt\PR\Waypoint"
    Workbooks.Open Filename:= _
    "C:\Nature\Offre_dpt\PR\Waypoint\Fiche_veille_PR_Arcview.xls"
    Windows("Fiche_veille_PR_Arcview.xls").Activate
     
    Range("A2:L2").Select
    Set plg2 = Selection
     
    plg1.Copy plg2

  7. #7
    Membre averti
    Profil pro
    Inscrit en
    Avril 2007
    Messages
    41
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2007
    Messages : 41
    Par défaut
    Merci pour ton aide, mais ça ne fonctionne toujours pas. maintenant j'ai un message d'erreur avec '1004 La méthode Select de la classe Range a échoué'
    Tu pourrais m'éclairer?

    merci

  8. #8
    Membre émérite Avatar de sabzzz
    Profil pro
    Inscrit en
    Octobre 2009
    Messages
    748
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2009
    Messages : 748
    Par défaut
    et comme ça,

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Set plg1 = Selection
    ChDir "C:\Nature\Offre_dpt\PR\Waypoint"
    Workbooks.Open Filename:= _
    "C:\Nature\Offre_dpt\PR\Waypoint\Fiche_veille_PR_Arcview.xls"
    Sheets(1).Activate  'à adapter
    Set plg2 = Range("A2:L2")
    plg1.Copy plg2

  9. #9
    Membre averti
    Profil pro
    Inscrit en
    Avril 2007
    Messages
    41
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2007
    Messages : 41
    Par défaut
    Et non je n'y arrive pas, la phrase à adapter je ne la comprend pas,
    par contre lorsqu'on dit de ranger la sélection en A2:L2 cela veut dire qu'il ne va prendre que la ligne 2, c'est ça? où ça veut dire qu'on colle à partir de cette ligne?
    car ce que je voudrais c'est coller plusieurs lignes

  10. #10
    Membre émérite Avatar de sabzzz
    Profil pro
    Inscrit en
    Octobre 2009
    Messages
    748
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2009
    Messages : 748
    Par défaut
    c'était seulement pour reprendre ton exemple sur ta premiere question,
    fait le test avec
    tu pourras le faire ensuite avec
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Set plg2 = Range("A2:L2")
    tu verra alors la différence

  11. #11
    Membre averti
    Profil pro
    Inscrit en
    Avril 2007
    Messages
    41
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2007
    Messages : 41
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Private Sub CommandButton1_Click()
     
    Set plg1 = Selection
    ChDir "C:\Nature\Offre_dpt\PR\Waypoint"
    Workbooks.Open Filename:= _
    "C:\Nature\Offre_dpt\PR\Waypoint\Fiche_veille_PR_Arcview.xls"
    Windows("Fiche_veille_PR_Arcview.xls").Activate
    Set plg2 = Range("B2")
    plg1.Copy plg2
     
    End Sub
    ça ne marche pas, j'ai toujours un message d'erreur 1004 et cette fois il me marque que c'est impossible de coller les informations car les zones copier et de collage sont de forme et de taille différentes
    je m'excuse mais je débute

  12. #12
    Membre émérite Avatar de sabzzz
    Profil pro
    Inscrit en
    Octobre 2009
    Messages
    748
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2009
    Messages : 748
    Par défaut
    bonjour alice,

    et ce que plg1 ou plg2 sont (ou ont) des cellules fusionnées ?

  13. #13
    Membre averti
    Profil pro
    Inscrit en
    Avril 2007
    Messages
    41
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2007
    Messages : 41
    Par défaut
    Non il n'y a pas de cellules fusionnées, sur aucun des 2

  14. #14
    Membre émérite Avatar de sabzzz
    Profil pro
    Inscrit en
    Octobre 2009
    Messages
    748
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2009
    Messages : 748
    Par défaut
    bonjour alice,

    je ne voie pas d'autre solution , à part peut être faire un test avec deux nouveaux fichiers créer spécialement pour ce test

Discussions similaires

  1. Rechercher Texte puis copier ligne dans emplacement
    Par mattwarend dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 28/10/2008, 20h25
  2. copier ligne avec formule et creer feuille/ligne
    Par yanchs dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 04/02/2008, 18h42
  3. copier ligne avec formule et creer une feuille par ligne
    Par yanchs dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 27/01/2008, 18h04
  4. Copier ligne si une cellule est modifiée
    Par Billyboule dans le forum Excel
    Réponses: 7
    Dernier message: 05/12/2007, 14h25
  5. Réponses: 62
    Dernier message: 05/07/2006, 13h48

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