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

[doublefogg]

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

 

[Jacky67]

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

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

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

 

[doublefogg]

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

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

Merci beaucoup @jacky pour cette réponse rapide
je vais essayer et je reviens vers toi
cdlt

 

[doublefogg]

Bonjour @Jacky67
ça marche parfaitement
merci beaucoup !
Stéphane

 

[doublefogg]

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

 

[Jacky67]

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

Re..
Il y a un mélange de tableau en plage et de tableau structuré
Il faudra choisir entre
Même structure (Xn colonnes) ou tableau structuré dans les feuilles "Famille"
Si cela n'est pas possible, il faudra voir pour un autre codage.

 

[doublefogg]

Merci pour ce retour
En effet, c'est une mauvaise manip de ma part,
il n'y aura que des tableaux standards avec un nombre de colonnes différents,
Mais je peux restructurer mes tableaux familles pour avoir mes 5 colonnes à récupérer dans RECAP toujours au même endroit. Simplement je souhaiterai que RECAP ne récupère que ces 5 colonnes et pas les autres informations
fichier joint modifié

 

[Jacky67]

Merci pour ce retour
En effet, c'est une mauvaise manip de ma part,
il n'y aura que des tableaux standards avec un nombre de colonnes différents,
Mais je peux restructurer mes tableaux familles pour avoir mes 5 colonnes à récupérer dans RECAP toujours au même endroit. Simplement je souhaiterai que RECAP ne récupère que ces 5 colonnes et pas les autres informations
fichier joint modifié

Re..
Voir si la pj fonctionne correctement.
Sinon des tableaux famille avec les 5 colonnes à récupérer débutant en colonne A

 

[doublefogg]

Bonsoir
C'est parfait
encore merci
je vais essayer de décrypter le code maintenant
Bonne soirée