Bonjour,

j'ai un petit souci:
J'ai des onglets avec des tableaux avec des nombres de lignes variables.
Je voudrais récupérer toute les lignes de chaque tableau sur une même feuille(Ca c'est bon ca marche) [B]avec devant chaque ligne indiquer le nom de l'onglet lui correspondant (ca je n'y arrive pas)
voici mon code:
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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub ConcatenationFeuilles()
 
 
Dim i As Long, T() As Variant
 
 Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "TOTAL"
 
 
 
    ' Copie En-Tête
        For i = 1 To Worksheets.Count
        If Worksheets(i).Name <> "TOTAL" Then
            With Worksheets(i)
                T = .Range("a1:ah1").Value
                Sheets("TOTAL").Range("b1").Resize(UBound(T, 1), UBound(T, 2)) = T
            End With
            Exit For
        End If
    Next i
 
 
    '   Copie des données
    For i = 1 To Worksheets.Count
        If Worksheets(i).Name <> Sheets("TOTAL").Name Then
            With Worksheets(i)
             Sheets("TOTAL").Range("a:a").Value = Worksheets(i).Name (LA EST MON PROBLEME)
                T = .Range("a2:AH" & .Range("a" & Rows.Count).End(xlUp).Row).Value
                Sheets("TOTAL").Range("b" & Rows.Count).End(xlUp).Offset(1).Resize(UBound(T, 1), UBound(T, 2)) = T
 
 
 
            End With
        End If
    Next i
    Erase T
 
    Application.ScreenUpdating = True
 
 
End Sub
merci d'avance