Problème Copie-Colle de deux feuilles vers une troisième

[Choubidoua]

Bonjour à tous !

J'ai un soucis lors d'un copier-coller.

Je cherche à copier les colonnes de deux feuilles, vers une troisième.

La première copie fonctionne, la deuxième aussi mais les valeurs se retrouvent décalées de 5 colonnes à droite.

Voici mon code:

Sub test()

Sheets("Export Cov Entier").Select
Columns("A").Select
Selection.ClearContents


Sheets("Points Sup Covadis").Select
Columns("A:F").Select
Selection.Copy
Sheets("Export Cov Entier").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Export Covadis").Select
Columns("A:F").Select
Selection.Copy
Sheets("Export Cov Entier").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

End Sub


Je tourne en rond depuis quelques jours, je n'ai bientôt plus de cheveux !
Si quelqu'un pouvait me donner un coup de main, ce serait sympa pour mon coiffeur

 

[Littledave]

Re : Problème Copie-Colle de deux feuilles vers une troisième

Salut,

Ton problème vient du dernier copier coller dans ta macro Test.

Tu demandes en effet à Excel d'insérer les colonnes copiées dans ta feuille de destination

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Je suppose donc que tu dois avoir des formules en colonnes Q qui donc se retrouvent décalées à cause de l'insertion des colonnes copiées depuis ta feuille "Export Cov Entier".

Donc tu peux contourner ton problème en inversant le copier coller de tes sélections et de copier la sélection de la feuille "Points Sup Covadis" non plus en A1 mais en G1.

Voici le code que je te propose :

Sheets("Export Cov Entier").Select
Columns("A:P").Select
Selection.ClearContents


Sheets("Export Covadis").Select
Columns("A:F").Select
Selection.Copy
Sheets("Export Cov Entier").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

Sheets("Points Sup Covadis").Select
Columns("A:F").Select
Selection.Copy
Sheets("Export Cov Entier").Select
Range("G1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select

En espérant que cela réglera ton problème.

@++
David

 

[Choubidoua]

Re : Problème Copie-Colle de deux feuilles vers une troisième

Salut David !
Merci de ta réponse.

Alors quand je test avec ta modification, il se passe exactement la même chose.
Toujours ce décalage.

Peut être que je n'ai pas été assez clair.

J'ai deux feuilles avec 5 colonnes et X lignes.
Le but est de copier coller ses données, à la suite, dans une troisième feuille.

Et pour le moment, lors de la deuxième copie, les données se retrouvent à la ligne 1 colonnes G à K au lieu de la ligne X colonne A à E.

Je vais aussi mettre mon fichier de travail.

 

[Littledave]

Re : Problème Copie-Colle de deux feuilles vers une troisième

Salut,

Je te joins ton fichier modifié.
Tu remarqueras que je n'utilise pas de macros dans ta feuille 'Export Cov Entier'.
Le problème de ta macro vient du fait que tu sélectionnes des colonnes et ensuite tu insère cette sélection dans la feuille 'Export Cov Entier'. Excel insère donc des colonnes avant la sélection en cours.


J'ai donc modifié la feuille 'Export Cov Entier' en mettant en colonne A et B des formules permettant de récupérer les données des feuilles 'Points Sup Covadis' et 'Export Covadis'.
Ces formules sont valides pour 1000 données en ligne. Si toute fois cela n'était pas assez, tu as juste a recopier la dernière ligne de formule (des Colonnes A à H) vers le bas sur le nombre de lignes voulues.

En espérant que cette fois ton problème sera résolu.
Je te joins le fichier modifié

David

 

[Choubidoua]

Re : Problème Copie-Colle de deux feuilles vers une troisième

Impeccable !
Ça marche bien. Je vais faire des tests et continuer à ajouter des choses.

Merci beaucoup