Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Choubidoua
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

Choubidoua

XLDnaute Nouveau
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 🙂
 
Trier par date Trier par votes
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
Code: 
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 :
Code: 
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
 
Vote positif 0 Vote négatif
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.
 

Pièces jointes

Vote positif 0 Vote négatif
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
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2019 Renvoyé à la ligne suivante si la ligne demandé n'est pas libre
Réponses
9
Affichages
151
Phil69970
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
299
AtTheOne
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
560
ph.vanne
  • Question Question
XL 2016 copier valeur actuel
2
Réponses
18
Affichages
329
sylvanu
N
  • Résolu(e)
Microsoft 365 Macro entre 2 classeurs
2
Réponses
19
Affichages
371
Nounours4173
N
  • Résolu(e)
XL 2016 macro fichier fermé
Réponses
1
Affichages
102
eastwick
C
  • Question Question
Microsoft 365 Enregistrer via VBA sans ouvrir fichier
Réponses
9
Affichages
365
cdric78
C
  • Résolu(e)
XL 2021 Exécuter une macro sur plusieurs feuilles
Réponses
9
Affichages
463
micie1509
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
581
Phil69970
M
  • Question Question
XL 2021 VBA Excel Erreur 2023
Réponses
2
Affichages
290
MICHIS
M
G
  • Question Question
XL 2019 Sélectionner un fichier pour mettre à jour une base de données
Réponses
3
Affichages
271
sylvanu
M
  • Question Question
Microsoft 365 deux macros succesives et un bouton
2
Réponses
17
Affichages
1 K
MICHAEL
M
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
2 K
job75
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
665
robpellan52
R
V
  • Question Question
XL pour MAC outil coller le contenu du presse papier
Réponses
2
Affichages
650
Valter
V
G
  • Résolu(e)
XL 2013 copier coller valeur d'une colonne dynamique
Réponses
13
Affichages
757
gwenn49
G
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
2 K
AtTheOne
F
  • Résolu(e)
Microsoft 365 Message Box oui/non
Réponses
2
Affichages
403
Francky79
F
O
  • Question Question
XL 2010 aide sur code VBA collationnement de données
Réponses
10
Affichages
800
olivier388
O
F
  • Résolu(e)
XL 2021 Réaliser une macro pour copier une ligne avec formule ?
Réponses
4
Affichages
641
fanou06
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…