Copier coller plages différentes dans différente plages

Bonjour a tous,

Je post ceci aujourd'hui car pour la première fois je n'arrive pas a trouver exactement ce que je veux

Aujourd'hui j'ai une macro qui copie colle différentes plages d'une page à l'autre les unes après les autres.

Le probleme est que c'est trop long et pas tres propre.

J'aimerais (si possible) tout copier d'un coup et tout coller dans les différentes plages de destination.

Je ne sais pas si je suis suffisament claire.

Je ne suis (vraiment) pas un expert sur VBA, du coup j'ai besoin de votre aide please.

bonjour

joins un petit fichier, avec le résultat attendu

note : je n'aime pas les "recopie" et préfère les simples ré_affichages

à te relire

amitiés

9classeur1.xlsx (17.23 Ko)

Voila.

Il ya 2 pages excels.

re

voici un exemple en jaune

note : il me semble que tu devrais faire une unique feuille car les 2 sont ne sont que 2 vues d'une même base de données

amitiés

Bonjour,

Une proposition à étudier qui tente de répondre à la question posée.

ALT F8, puis exécuter la procédure Copy_data.

Cdlt.

11isa-aak.xlsm (23.57 Ko)
Public Sub Copy_data()
Dim ws As Worksheet, ws2 As Worksheet
Dim Rng As Range
Dim lCol As Long, lCol2 As Long, lRow As Long

    Set ws = Worksheets("Feuil1")
    Set ws2 = Worksheets("Feuil2")

    Set Rng = ws.Cells(1).CurrentRegion
    lRow = ws2.Cells(Rows.Count, 5).End(xlUp).Row + 1

    For lCol = 1 To Rng.Columns.Count
        lCol2 = Choose(lCol, 5, 8, 12, 13, 17, 19, 26, 27, 29, 30, 35)
        Rng.Columns(lCol).Offset(1).Resize(Rng.Rows.Count - 1).Copy Destination:=ws2.Cells(lRow, lCol2)
    Next lCol

End Sub

Enorme merci pour ton bout de code.

Par contre je n'arrive pas a sortir de la boucle et la macro, ca me copie meme l'entete

jmd merci pour ton aide, mais le fichier est un peu plus complexe que ca. (je prefere les formules aussi mais la ce n'est pas possible)

J'oubliais aussi, j'aimerai copier coller que les valeurs et non la mise en forme

Re,

Essaie cette nouvelle procédure pour ne copier que les valeurs.

Sinon, pour la 1ère. question, je n'ai pas le souci dans ton classeur.

Cdlt.

Public Sub Copy_data()
Dim ws As Worksheet, ws2 As Worksheet
Dim Rng As Range
Dim lCol As Long, lCol2 As Long, lRow As Long

    Application.ScreenUpdating = False

    Set ws = Worksheets("Feuil1")
    Set ws2 = Worksheets("Feuil2")

    Set Rng = ws.Cells(1).CurrentRegion
    lRow = ws2.Cells(Rows.Count, 5).End(xlUp).Row + 1

    For lCol = 1 To Rng.Columns.Count
        lCol2 = Choose(lCol, 5, 8, 12, 13, 17, 19, 26, 27, 29, 30, 35)
        Rng.Columns(lCol).Offset(1).Resize(Rng.Rows.Count - 1).Copy
        ws2.Cells(lRow, lCol2).PasteSpecial xlPasteValuesAndNumberFormats
        Application.CutCopyMode = False
    Next lCol

End Sub

Bonjour Jean Eric,

Merci pour ta reponse.

Mais ca ne marche toujours pas. Le fichier est un peu plus complexe que celui que j'ai envoyé. Je me suis tiré les cheveux tout le week end mais rien y fait. Ca ne veut pas marcher sur mon fichier.

Re,

Envoie donc un fichier représentatif et précise ta question !...

Cdlt.

Re Bonjour Jean Eric,

Desole pour le retard (business trip)

Voila le fichier.

Le but est que chaque info de la page Request for soit copier coller dans la page Planning.

Mon problème et que chacune des pages ne peut être modifiée (trop simple sinon )

Merci d'avance

2classeur4.xlsm (44.54 Ko)

Bonjour,

Si j'écris que je ne comprends rien ? Tu reformules avec un exemple de résultat !...

Sinon, je ne dispose pas de Microsoft DataGrid control 6.0.

Cdlt.

Desole

Voici le fichier avec le resultat attendu

Cdlt

3classeur4.xlsm (45.26 Ko)
Rechercher des sujets similaires à "copier coller plages differentes differente"