Bonjour à tous,

La situation : un fichier Source qui contient une 40aine de colonne.
Un fichier Recap dans lequel j'ai fais une macro qui me permet de copier juste les informations du clients (nom, adresse, ect ...) issu du fichier source vers le fichier recap.

Je veux récupérer uniquement les colonnes G à R, sans la K et la P. Pour ce faire j'utilise le code suivant :

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
18
19
DerniereLigne = ActiveSheet.UsedRange.Rows.Count
 
classeurSource.Sheets("Rapport 1").Range("G3:J" & DerniereLigne).Cells.Copy
classeurDestination.Activate
classeurDestination.Sheets("Feuil1").Range("B2").Select
classeurDestination.Sheets("Feuil1").Paste
 
classeurSource.Sheets("Rapport 1").Range("L3:O" & DerniereLigne).Cells.Copy
classeurDestination.Activate
classeurDestination.Sheets("Feuil1").Range("F2").Select
classeurDestination.Sheets("Feuil1").Paste
 
classeurSource.Sheets("Rapport 1").Range("Q3:R" & DerniereLigne).Cells.Copy
classeurDestination.Activate
classeurDestination.Sheets("Feuil1").Range("J2").Select
classeurDestination.Sheets("Feuil1").Paste
 
'fermer le classeur source
classeurSource.Close False
Déjà je voudrais optimiser ce bout de code, quand j'essaye de faire un Range("G3:J" & DerniereLigne, "L3:O" & DerniereLigne, "Q3:R" & DerniereLigne), ça me sélectionne tout, même la colonne K et P (comme si je faisais un Range("G3:R" & DerniereLigne). Donc comment faudrait-il faire ?

Ma deuxième question, je voudrais lorsque je copie les colonnes L, M, N (numéro de voie, type de voie, libellé de la voie) depuis mon fichier Source, pouvoir les coller sur mon fichier récap mais concatener que sur 1 cellule (adresse) et non 3 comme actuellement avec ma méthode.

Merci d'avance