Discussion :

[haifaben]

Bonjour,

Je suis bloquée et je n'ai aucune idée sur la VBA, mais apprement c la solution pour mon probleme, je comptes sur vous les amis.
J'ai un classeur excel avec des feuilles (une centaine ) au nom de chaque filiales et dans chaque feuilles il y l'état de résultat de la filiale (soit 62 lignes ...) mon objectifs et de mettre les etats de résultat de chaque filiale mais dans une seule feuille càd

Ligne 1
Etat de résultat de la filiale 1
Ligne 63
etat de resultat de la filiale 2...

Merci d'avance pour votre aide

[joe.levrai]

Bonjour,

un exemple à adapter

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Rassemblement()
Dim Sh As Worksheet, Col As Integer
Application.ScreenUpdating = False
    With Worksheets.Add
        For Each Sh In ThisWorkbook.Worksheets
            If Sh.Name <> .Name Then
                Col = Sh.UsedRange.Columns.Count
                .Cells(.Rows.Count, 1).End(xlUp)(2).Resize(62, Col).Value = Sh.Cells(1, 1).Resize(62, Col).Value
            End If
        Next Sh
    End With
Application.ScreenUpdating = True
End Sub

1) Crée une nouvelle feuille
2) Pour toutes les autres feuilles : copie les lignes 1 à 62 et les colle dans la feuille crée, feuille après feuille, les unes à la suite des autres
3) On part du principe que les 62 lignes de chaque feuille filiale commencent à la ligne 1

[haifaben]

Merci beaucoup. ça fonctionne parfaitement.

est ce que c'est possible de modifier ce code pour que je puise avant chaque tableau d'état de résultat je mentionne le nom de la feuille correspondante (filiale )
en plus je veux garder le meme format et valeur de l'état de résultat.

Merci infiniment