Microsoft 365 Compter des quantités sur plusieurs critères

[netparty]

Bonjour à tous
Je cherche le moyen de compter la quantités de matériel en regroupant les modèles identiques.
Auriez-vous une idée pour la formule à utiliser.

Merci d'avance

 

[fanfan38]

Bonjour
Je ne vois pas de quantité dans ton tableau
Ci joint ma proposition

A+ François

 

[JHA]

Bonjour à tous,

Avec Power Query et une concatenation

JHA

 

[netparty]

Bonjour
Je ne vois pas de quantité dans ton tableau
Ci joint ma proposition

A+ François

Bonjour @fanfan38
Merci pour ton fichier
Mais j'aimerai le total de chaque ligne identique
Bonne journée

 

[netparty]

Bonjour à tous,

Avec Power Query et une concatenation

JHA

Bonjour @JHA

Merci pour ton fichier
Est-il possible d'avoir le total par ligne identique
Bonne journée

 

[danielco]

Bonjour à tous,

Un essai avec deux formules (en jaune).

Daniel

 

[netparty]

Bonjour à tous,

Un essai avec deux formules (en jaune).

Daniel

Bonjour @danielco

Merci pour ton fichier
Je ne connaissais pas ces formules

Bonne journée

 

[job75]

Bonjour à tous,

Une solution VBA avec le filtre automatique :

Sub Unique()
Dim d As Object, i&, x$
Set d = CreateObject("Scripting.Dictionary")
With [A1].CurrentRegion.Resize(, 9)
ReDim resu(1 To .Rows.Count, 1 To 1)
resu(1, 1) = "Quantité"
    For i = 2 To .Rows.Count
        x = .Cells(i, 1) & .Cells(i, 6) & .Cells(i, 8)
        If x <> "" And Not d.exists(x) Then d(x) = i
        resu(d(x), 1) = resu(d(x), 1) + 1
    Next
    .AutoFilter
    .Columns(9) = resu
    .AutoFilter 9, ">0"
End With
End Sub

A+

 

[netparty]

Bonjour à tous,

Une solution VBA avec le filtre automatique :

Sub Unique()
Dim d As Object, i&, x$
Set d = CreateObject("Scripting.Dictionary")
With [A1].CurrentRegion.Resize(, 9)
ReDim resu(1 To .Rows.Count, 1 To 1)
resu(1, 1) = "Quantité"
    For i = 2 To .Rows.Count
        x = .Cells(i, 1) & .Cells(i, 6) & .Cells(i, 8)
        If x <> "" And Not d.exists(x) Then d(x) = i
        resu(d(x), 1) = resu(d(x), 1) + 1
    Next
    .AutoFilter
    .Columns(9) = resu
    .AutoFilter 9, ">0"
End With
End Sub

A+

Bonjour @job75

Merci c'est pas mal
Par contre si je veux adapter l'emplacement de mes colonnes ou ajouter un autre filtre que faut-il adapter dans le code.
Je joint le fichier adapté
Bonne journée

 

[Cousinhub]

Bonjour,
Une solution à base de Power Query (plus un code VBA pour actualiser).
Dans l'onglet "Base", ta base de données sous forme de Tableau Structuré, et nommé "T_Data"
Dans l'onglet "Recap", à gauche, tous les titres de ta base de données en colonne A (à bien renseigner - un Copier/Coller, recopie "Transposée", pour avoir une concordance exacte des titres)
En colonne B, tu choisis les filtres (données) dont tu veux calculer les types de manière unique (une validation des données te permet de choisir le X)
Le bouton "Actualiser"
Et le Tableau "T_Final", qui te donne les nombres uniques selon tes choix...
Bon dimanche

 

[netparty]

Bonjour,
Une solution à base de Power Query (plus un code VBA pour actualiser).
Dans l'onglet "Base", ta base de données sous forme de Tableau Structuré, et nommé "T_Data"
Dans l'onglet "Recap", à gauche, tous les titres de ta base de données en colonne A (à bien renseigner - un Copier/Coller, recopie "Transposée", pour avoir une concordance exacte des titres)
En colonne B, tu choisis les filtres (données) dont tu veux calculer les types de manière unique (une validation des données te permet de choisir le X)
Le bouton "Actualiser"
Et le Tableau "T_Final", qui te donne les nombres uniques selon tes choix...
Bon dimanche

Bonjour @Cousinhub

Un tout grand merci, cela à l'air si facile avec PowerQuery

Bon dimanche

 

[job75]

Par contre si je veux adapter l'emplacement de mes colonnes ou ajouter un autre filtre que faut-il adapter dans le code.

Pour adapter il suffit en effet de modifier les positions des colonnes :

Sub Unique()
Dim d As Object, i&, x$
Set d = CreateObject("Scripting.Dictionary")
With [A1].CurrentRegion.Resize(, 30)
ReDim resu(1 To .Rows.Count, 1 To 1)
resu(1, 1) = "Quantité"
    For i = 2 To .Rows.Count
        x = .Cells(i, 6) & .Cells(i, 16) & .Cells(i, 18)
        If x <> "" And Not d.exists(x) Then d(x) = i
        resu(d(x), 1) = resu(d(x), 1) + 1
    Next
    .AutoFilter
    .Columns(30) = resu
    .AutoFilter 30, ">0"
End With
End Sub

 

[Cousinhub]

Bonsoir Job,
Il manque l'option "ajouter un filtre", non?
Bonne soirée

 

[job75]

Il manque l'option "ajouter un filtre", non?

Pourquoi une option ? La macro crée un filtre sur le tableau, un point c'et tout.

 

[netparty]

Pour adapter il suffit en effet de modifier les positions des colonnes :

Sub Unique()
Dim d As Object, i&, x$
Set d = CreateObject("Scripting.Dictionary")
With [A1].CurrentRegion.Resize(, 30)
ReDim resu(1 To .Rows.Count, 1 To 1)
resu(1, 1) = "Quantité"
    For i = 2 To .Rows.Count
        x = .Cells(i, 6) & .Cells(i, 16) & .Cells(i, 18)
        If x <> "" And Not d.exists(x) Then d(x) = i
        resu(d(x), 1) = resu(d(x), 1) + 1
    Next
    .AutoFilter
    .Columns(30) = resu
    .AutoFilter 30, ">0"
End With
End Sub

Bonjour @job75

Merci pour cette adaptation et est-il possible d'avoir le résultat dans une nouvelle feuille ?

Bonne journée