XL 2016 remontée informations et suppression ligne

mapomme à dit:

Bonjour @marc.gilliand ,

Un essai avec une petite macro.

• La feuille "Total des fournisseurs" se met à jour quand on la sélectionne
• On peut ajouter ou supprimer des feuilles fournisseurs (par exemple, dupliquer une feuille fournisseur, sélectionner la feuille "Total des fournisseurs", supprimer une feuille fournisseur, re-sélectionner la feuille "Total des fournisseurs")

nota: on ne compte que les lignes dont la quantité est supérieure à 0 (colonne O) et les lignes dont l'indicateur de suppression est différent de "L" (colonne J).

Pour le 3ème point, pas d'idée car pas de suggestion de feuille résultat.

Le code VBA est dans le module de la feuille "Total des fournisseurs":

VB:

Private Sub Worksheet_Activate()
Const Formul = "=SUMIFS('xxx'!C[14],'xxx'!C[13],"">0"",'xxx'!C[8],""<>""&""L"")"
Dim wsh
   Application.ScreenUpdating = False
   If Me.FilterMode Then Me.ShowAllData
   Range("a:b").ClearContents
   Range("a1") = "Fournisseur": Range("b1") = "Total"
   For Each wsh In ThisWorkbook.Worksheets
      If wsh.Name <> Me.Name Then
         Cells(Rows.Count, "a").End(xlUp).Offset(1) = wsh.Name
         Cells(Rows.Count, "a").End(xlUp).Offset(, 1).Formula = Replace(Formul, "xxx", wsh.Name)
         Cells(Rows.Count, "a").End(xlUp).Offset(, 1).NumberFormat = "#,##0.00"
      End If
   Next wsh
End Sub

Cliquez pour agrandir...