Discussion :

[OLIV420]

Bonsoir,

je bloque pour une manipulation qui me paraissait simple pourtant, j'ai 12 feuilles, une pour chaque mois, où des collaborateurs renseignent des interventions (nom du client, jour d'intervention, temps...). Je souhaite regrouper toute les informations saisies dans ces 12 feuilles (sans prendre les 3 premières feuilles du classeur qui constituent le sommaire, les paramètres et la base de données) de la colonne A à I à partir de la 2ème ligne (la 1ère étant mes êtes) sur une seule afin de pouvoir faire un TCD.

Je ne peux pas utiliser la fonction consolider, alors je pensais peut être à une macro, qu'en pensez vous?

J'ai retrouvé sur le forum cette macro mais elle ne fonctionne pas car elle importe les entêtes de colonnes et plusieurs fois les mêmes feuilles:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro2()
'
Dim Ligne, Nombre As Long
Application.ScreenUpdating = False
For Nombre = Sheets.Count To 2 Step -1 'selectionne toutes les feuilles
Ligne = Range("a65536").End(xlUp).Row + 1 'prends toutes les lignes
Sheets(Nombre).Range("A1").CurrentRegion.Copy
Sheets(1).Activate
Range("A" & Ligne).Select
ActiveSheet.Paste
Next Nombre
Application.ScreenUpdating = True
End Sub

Merci de votre aide

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
Dim lastlig As Long
Dim s As Byte
 
For s = 4 To ThisWorkbook.Worksheets.Count
    With Sheets(s)
        lastlig = .Cells(Rows.Count, 1).End(xlUp).Row
        .Range("A2:I" & lastlig).Copy Sheets(1).Cells(Rows.Count, 1).End(xlUp)(2)
    End With
Next s

[OLIV420]

Merci pour cette réponse,

La macro fonctionne bien, par contre maintenant l'import est doublé, pourquoi?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro2()
'
Dim lastlig As Long
Dim s As Byte
 
For s = 4 To ThisWorkbook.Worksheets.Count
    With Sheets(s)
        lastlig = .Cells(Rows.Count, 1).End(xlUp).Row
        .Range("A2:I" & lastlig).Copy Sheets(1).Cells(Rows.Count, 1).End(xlUp)(2)
    End With
Next s
End Sub