Discussion :

[bosk1000]

bonjour à tous

dans mon fichier j'ai 7 pages (traiteur, volaille, agneau, veau, porc, boeuf, produit complémentaire, produit laboratoire)

et une 8eme page "source"

ce que je n'arive pas a faire, c'est que les information contenue dans les 7 premiere page de la collone A à R, à partir de la 2eme ligne jusqu'a la dernière écrite aille se regrouper dans la 8eme page "source", les une à la suite des autres. il n'y a aucune importance pour l'ordre des 7 feuilles

merci pour votre aide

[kiki29]

Salut,une simple recherche sur le site devrait être suffisante http://www.google.fr/#sclient=psy&hl...w=1033&bih=726

Sinon,à adapter

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
Sub ConcatenationFeuilles()
Dim i As Long, T() As Variant
 
    Application.ScreenUpdating = False
    ShConcat.Cells.Clear
    For i = 1 To Sheets.Count
        If Sheets(i).Name <> ShConcat.Name Then
            With Sheets(i)
                T = .Range("A4:J" & .Range("A" & Rows.Count).End(xlUp).Row).Value
                ShConcat.Range("A" & 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

ShConcat étant le CodeName de la feuille "source"

Pour le CodeName voir http://www.developpez.net/forums/d92...cel/vba-bases/

[bosk1000]

merci
j'ai pue l'adapter
reste a en comprendre le cheminement