Microsoft 365 Récapitulatif bon de commande sur un seul onglet

doublefogg à dit:

Bonjour
J'ai un fichier exemple (joint) sur lequel figure plusieurs onglet reprenant des familles de produits différentes. le client n'a qu'a entrer la quantité désirée dans chaque onglet pour sa commande. Je souhaiterai que l'onglet RECAP, reprenne toutes les lignes de chaque produit par onglet FAMILLE pour lesquels la quantité serait >1 et qu'il les mettent les unes à la suite des autres. Un bouton dans l'onglet RECAP permettrait un "REFRESH"

merci pour votre aide

Cdlt

Cliquez pour agrandir...

Private Sub Worksheet_Activate()
    Dim Sh As Worksheet, Derlg&
    Application.ScreenUpdating = False
    Range("a2:e" & Rows.Count).Clear
    For Each Sh In ThisWorkbook.Worksheets
        If UCase(Left(Sh.Name, 7)) = "FAMILLE" Then
            On Error Resume Next
            Derlg = Cells(Rows.Count, "A").End(xlUp).Row + 1
            With Sh.UsedRange
                .AutoFilter Field:=3, Criteria1:="<>"
                .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Copy
                Cells(Derlg, 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
                .AutoFilter
            End With
        End If
    Next
End Sub

Jacky67 à dit:

Bonjour,
Ce code placé dans le module de la feuille "RECAP"
La mise à jour se fera à chaque sélection de cette feuille

VB:

Private Sub Worksheet_Activate()
    Dim Sh As Worksheet, Derlg&
    Application.ScreenUpdating = False
    Range("a2:e" & Rows.Count).Clear
    For Each Sh In ThisWorkbook.Worksheets
        If UCase(Left(Sh.Name, 7)) = "FAMILLE" Then
            On Error Resume Next
            Derlg = Cells(Rows.Count, "A").End(xlUp).Row + 1
            With Sh.UsedRange
                .AutoFilter Field:=3, Criteria1:="<>"
                .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Copy
                Cells(Derlg, 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
                .AutoFilter
            End With
        End If
    Next
End Sub

Cliquez pour agrandir...

doublefogg à dit:

Re-bonjour @Jacky67
Je me permets de revenir vers toi concernant ce code.
J'aurais souhaité l'appliquer à un fichier qui comprends beaucoup plus de colonnes, mais je ne souhaite copier dans le récap que 4 colonnes.
Est-il possible de choisir les colonnes dans le RECAP ?
exemple fichier joint (uniquement les colonnes en jaunes)
en gros, dans le code, quelles sont les éventuelles variables que je pourrais faire évoluer, mes connaissances sont trop limitées pour tout décrypter
merci beaucoup
Stéphane

Cliquez pour agrandir...