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 coller plusieurs ongets dans une autre feuille et ranger


Sujet :

Macros et VBA Excel

  1. #1
    Futur Membre du Club
    Inscrit en
    Juillet 2007
    Messages
    4
    Détails du profil
    Informations forums :
    Inscription : Juillet 2007
    Messages : 4
    Points : 5
    Points
    5
    Par défaut copier coller plusieurs ongets dans une autre feuille et ranger
    Bonjour,

    je galère sur une macro, mon probleme est le suivant dans un classeur j'ai plusieurs onglets et dans un autre classeur, j'ai une feuille type recap.
    les infos qui sont dans les differents onglets doivent etre rangé dans la feuille recap type a un endroit bien precis et à la suite .
    J'espere que j'ai été assez claire.
    Merci de votre aide

    Hervé
    Fichiers attachés Fichiers attachés

  2. #2
    Futur Membre du Club
    Inscrit en
    Juillet 2007
    Messages
    4
    Détails du profil
    Informations forums :
    Inscription : Juillet 2007
    Messages : 4
    Points : 5
    Points
    5
    Par défaut Copier-coller
    La macro ouvre bien le classeur roue1,selectionne tous les onglets mais ne fait pas le copier colller.
    le but du copier coller est de reprendre les differents tableaux dans le classeur
    roue pour les copier les uns en dessous des autres à partir de la ligne 10 dans le fichier SBO 20GR

    a+


    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
    Zach CHEMIN & "lot PR UNIVERSAL\ROUE.xls", "CIRCUIT FREIN "
        For Each feuille In Worksheets
        feuille.Select
            If Right(feuille.Name, 2) = "sheet(onglet)" Then
     
                'copier coller
                Range("A2").Select
                Range(Selection, Selection.End(xlDown)).Select
                Range(Selection, Selection.End(xlToRight)).Select
                Selection.Copy
                Windows("SBO20GRTYP.xls").Activate
                Range("a65536").Select
                Selection.End(xlUp).Select
                ActiveCell.Offset(1, 0).Select
                ActiveSheet.Paste
                Windows(2).Activate
            End If

  3. #3
    Futur Membre du Club
    Inscrit en
    Juillet 2007
    Messages
    4
    Détails du profil
    Informations forums :
    Inscription : Juillet 2007
    Messages : 4
    Points : 5
    Points
    5
    Par défaut Probleme Resolu
    je remercie tout le monde qui a voulu m'aider.
    avec les differentes questions posées sur le site + les cours.
    j'ai trouvé la solution.
    en faite j'avais des cellules vides dans la banque de données donc la macro ne pouvais pas coller sur la feuille recap.
    MERCI POUR TOUT

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

Discussions similaires

  1. [XL-2007] copier coller une selection dans une autre feuille
    Par dodo28 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 05/10/2017, 16h35
  2. copier coller couleur dans une autre feuille grâce a un bouton
    Par antoine2933 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 04/07/2011, 22h52
  3. copier des cellules A1:AZ1 et coller dans une autre feuille en E1:E42
    Par zergo dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 06/02/2010, 07h40
  4. Réponses: 8
    Dernier message: 12/08/2009, 11h32
  5. Copier - coller ligne entière sur une autre feuille
    Par s.echeff dans le forum Excel
    Réponses: 1
    Dernier message: 10/04/2009, 17h35

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