Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Tableau recap de tous les onglets en un clic

p_michel

XLDnaute Nouveau
Bonjour à tous,
Je rechercher désespérement comment produire un tableau recap des données se trouvant sur plusieurs onglets
Je m'explque, j'ai une équipe de 5 personnes qui complètent quotidiennement des informations et je souhaiterais pouvoir produire un tableau recap de leur activités
Pour ce faire je dois mettre dans la colonne A de l'onglet recap tous les noms des onglets ( sachant qu'il s'agit d'un jour) et faire une synthèse des données de chaque onglet par ligne.
Je suis bien entendu ouvert à toutes propositions et pour ce faire vous trouverez un fichier recap
Merci pour votre aide
Michel
 

Pièces jointes

  • Test Charlotte.xlsx
    29.6 KB · Affichages: 12

vgendron

XLDnaute Barbatruc
Bonjour
un essai avec cette macro

VB:
Sub recap()

For Each ws In ActiveWorkbook.Sheets
    If ws.Name <> "Tables" Then
        With ws
            NbInt = 0
            NbExt = 0
            Jour = .Name
            Comptes = .Range("A" & .Rows.Count).End(xlUp).Row - 1
            Promesse = WorksheetFunction.Sum(.Range("C2:C" & Comptes + 1))
            For j = 2 To Comptes
                If Left(.Range("B" & j), 3) = "Int" Then NbInt = NbInt + 1
                If Left(.Range("B" & j), 3) = "Ext" Then NbExt = NbExt + 1
            Next j
        End With
        With Sheets("Tables")
            .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0) = Jour
            .Range("B" & .Rows.Count).End(xlUp).Offset(1, 0) = Comptes
            .Range("C" & .Rows.Count).End(xlUp).Offset(1, 0) = NbExt
            .Range("D" & .Rows.Count).End(xlUp).Offset(1, 0) = NbInt
            .Range("E" & .Rows.Count).End(xlUp).Offset(1, 0) = Promesse
        End With
    End If
Next ws
End Sub
 

Pièces jointes

  • Test Charlotte.xlsm
    40.2 KB · Affichages: 21

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…