Discussion :

[Curlita]

Bonjour à tous,

J'ai créé un fichier, avec 4 onglets: "Synthèse", "2015", "2014", "2013".
Le "Synthèse" est vide, et a pour objectif de compiler 3 les onglets suivants.
Les onglets "2015", "2014", "2013" sont extrait d'un même applicatif et ont strictement le même format (seul le nombre de lignes change). Le titre est en ligne 3, et la dernière colonne est la K.

J'ai créé la macro ci dessous pour les compiler dans Synthèse:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub LISTING()
 
Dim Classeur As Workbook
Set Classeur = ThisWorkbook
 
For i = 2 To 4
 
 Sheets(i).Activate
 Sheets(i).Range("A3:k2000").Copy Classeur.Sheets("Synthèse").Range("A5").End(xlUp)(2)
 Sheets("Synthèse").Activate
 
Next i
 
End Sub

Et là 2 problèmes quand j'exécute la macro:
Seul l'onglet "2013" est repris, et le titre des colonnes remonte deux fois.
Une idée?

Merci, et bonne journée,