Concaténation d'une pléthore d'onglet

Bonjour à tous,

Dans la mise en place du DUER dans l'entreprise je l'ai fait par poste.

30 risques par postes.

Même nombre de colonne même disposition.

J'aimerais pouvoir sortir facilement une statistique qui va me sortir le nombre de risque en rouge pour chaque item

et le nombre de risque en orange pour chaque item

Ou un tableau qui reprend les 23 risques et marques le nombre d'itération par cotation

Une idée pour regrouper les tableaux ?

Après un simple tableau croisée dynamique va suffir

Bonne journée

PS : Fichier trop gros ci joint le lien sur mon google drive

https://drive.google.com/open?id=1dXZOivNhNFo96pqOBeZ6LMFRu7lcrrB9

Bonjour,

Tous les onglets sont bien identiques à part Illustration ?

Une remarque ... dommage d'inclure dans les noms des lignes vides ! et dommage de ne pas utiliser la mise en "tableau" au sens excel du terme !

Aide et illustration en plus

C'est a dire des noms de ligne vide ?

C'est à dire le sens du terme ?

Bonne journée

J'ai supprimé des onglets pour te renvoyer le fichier.

Il suffit de créer un onglet "Compilation" et ajouter ce code

Option Explicit

Sub compiler()
Dim ligne As Long, ws As Worksheet
Sheets("Compilation").Select
    Range("A1").CurrentRegion.Offset(1, 0).ClearContents
    ligne = 2
    For Each ws In Worksheets
        If ws.Name <> "Compilation" And ws.Name <> "Illustration" And ws.Name <> "Aide" Then
            On Error Resume Next
            ws.ShowAllData
            On Error GoTo 0
            ws.Range("A9:K" & ws.Cells(Rows.Count, 1).End(xlUp).Row).Copy Destination:=ActiveSheet.Cells(ligne, 1)
            ligne = Cells(Rows.Count, 1).End(xlUp).Row + 1
        End If
    Next
End Sub