Synthèse de plusieurs feuil sur EXCEL

[bflo38]

Bonjour à tous,

Je suis à la recherche pour mon travail d'une fonction ou macro qui me permetterait de synthétiser plusieurs éléments sur plusieurs feuilles excel.

Je m'explique : dans mon fichier sur la feuille bilan j'aimerai rassemblé les éléments présents sur les feuilles 1075, 1076 et 1079.

Sachant que d'autres feuilles vont être creer.

Pouvez vous m'aider SVP

Merci

 

[Efgé]

Re : Synthèse de plusieurs feuil sur EXCEL

Bonjour bflo et bienvenu sur le forum
Une proposition, pour le client je récupère la cellule B4 des feuilles.

Sub Bilan()
Dim F As Worksheet, T As Variant
For Each F In Worksheets
    If F.Name < > "Synthèse" And F.Name < > "ModèleFS" And _
        F.Name < > ActiveSheet.Name Then
         T = F.Range(F.Range("A14"), F.Range("A14").End(xlDown).Offset(0, 4))
         With ActiveSheet.Cells(Rows.Count, 2).End(xlUp)
            If .Row + UBound(T, 1) < Rows.Count Then
                .Offset(1, 0).Resize(UBound(T, 1), UBound(T, 2)) = T
                .Offset(1, -1).Resize(UBound(T, 1), 1) = F.Range("B4")
            End If
        End With
    End If
Next F
End Sub

Cordialement

 

[klin89]

Re : Synthèse de plusieurs feuil sur EXCEL

Bonjour bflo38, Efgé 🙂

Pour saluer Efgé, j'ai enlevé un If...End If

Sub Bilan1()
Dim F As Variant, T As Variant
For Each F In Array("1075", "1076", "1079")
  T = Sheets(F).Range(Sheets(F).Range("A14"), Sheets(F).Range("A14").End(xlDown).Offset(0, 4))
  With ActiveSheet.Cells(Rows.Count, 2).End(xlUp)
    If .Row + UBound(T, 1) < Rows.Count Then
      .Offset(1, 0).Resize(UBound(T, 1), UBound(T, 2)) = T
      .Offset(1, -1).Resize(UBound(T, 1), 1) = Sheets(F).Range("B4")
    End If
  End With
Next F
End Sub

Edit : et oui Efgé, un peu vite en effet, c'est pour initier notre ami 🙄

Klin89

 

[Efgé]

Re : Synthèse de plusieurs feuil sur EXCEL

Re bflo38, Bonjour klin89 🙂
Surtout pour rendre son salut à klin
Effectivement, on pourrai... ...mais....

...Sachant que d'autres feuilles vont être creer.

😀
Cordialement

 

[Efgé]

Re : Synthèse de plusieurs feuil sur EXCEL

Re
A bien y regarder, il conviendrai même d'en rajouter, au cas ou une feuille ne soit vide 😀 :

If F.Range("A14") < > "" And .Row + UBound(T, 1) < Rows.Count Then

Cordialement

 

[bflo38]

Re : Synthèse de plusieurs feuil sur EXCEL

Merci à tous, je suis vraiment novice (rire)

la solution de efgé marche super bien sauf que ca me limite à un certain nombre d'onglet.

voici mon fichier (qui n'est pas fini car il me reste plein d'onglet a rajouter)

Free - Envoyez vos documents (le ficier est trop lourd)


merci de votre aide

 

[Efgé]

Re : Synthèse de plusieurs feuil sur EXCEL

Bonjour bflo38, klin 🙂, le fil
Ma proposition ne te limite pas en nombre de feuille, elle ne prend pas en compte les feuilles "Synthèse" , "ModèleFS" et la feuille qui porte le bouton....
C'est la proposition de klin qui est limitative.
Je ne peux pas récupérer les fichiers sur FREE, ni sur CJoint.Com, ni sur....
Essai de metttre un fichier ici, sans trops de feuilles, sans données confidentielles.
A te re lire
Cordialement

 

[bflo38]

Re : Synthèse de plusieurs feuil sur EXCEL

voici le fichier

par contre il faut que tu crées plusieurs onglet pour voir le problème

merci bcp

 

[Efgé]

Re : Synthèse de plusieurs feuil sur EXCEL

Re
Un ou deux petits ajustements et je pense que c'est bon 🙂 :

Sub Bilan()
Dim F As Worksheet, T As Variant
ActiveSheet.Range("A2:F" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1).ClearContents
For Each F In Worksheets
    If F.Name < > "Synthèse" And F.Name < > "ModèleFS" And _
        F.Name < > ActiveSheet.Name And F.Name < > "PASTOUCH" Then
         T = F.Range(F.Range("A14"), F.Range("A" & Rows.Count).End(xlUp).Offset(0, 4))
         With ActiveSheet.Cells(Rows.Count, 2).End(xlUp)
            If F.Range("A14")  "" And .Row + UBound(T, 1) < Rows.Count Then
                .Offset(1, 0).Resize(UBound(T, 1), UBound(T, 2)) = T
                .Offset(1, -1).Resize(UBound(T, 1), 1) = F.Range("B5")
            End If
        End With
    End If
Next F
End Sub

Cordialement

 

[bflo38]

Re : Synthèse de plusieurs feuil sur EXCEL

Merci ca marche super !!!!!!