VBA Compter nombre de clients par référence achetée

Bonjour à toutes et à tous,

Je m'appelle Lola et je travaille en tant qu'assistante commerciale dans une PME de prêt à porter.

Dans le cadre de mon travail je dois effectuer des extractions de facturation auprès de nos clients. Le but étant de pouvoir déterminer chez combien de clients sont achetés nos références.

Voici un exemple simplifié d'extraction que je peux trouver dans mon système.
Le but étant d'utiliser un TCD afin de synthétiser l'extraction et d'obtenir par référence le nombre de client consommateur.

La colonne en vert a été rajouté, par moi même , avec les valeurs numériques nécessaires pour obtenir dans le TCD le nombre de personne consommatrice de telle ou telle référence.

Le besoin étant récurrent j'ai pensé à réaliser une petite Macro avec une boucle de calcul, mais je débute complétement dans ce domaine. Pour info les références sont triées par ordre alphébtique /numérique.

Savez-vous m'aider sur ce sujet? :oops::oops:

En vous remerciant,

Lola

Pièce jointe 245579Pièce jointe 245582

Bonjour,

par quel moyen peut-on obtenir les nombres de personnes que tu as ajouté manuellement ?

L'approche du TCD est bonne par ailleurs.

Si je résume ta question, tu veux faire la somme des valeurs en colonne verte pour les ligne dont la colonne B est identique à la valeur d'étiquette à gauche de la cellule où est placée la fonction ?

Si c'est bien ça, tu peux le faire avec une simple fonction SOMME.SI().

En supposant que tes 4 colonnes de données soient A:D,
que tes données commencent en ligne 2 et aillent jusqu'à la ligne 100,
que le "3" complètement à droite soit en "F7",
Tu places en F7 la fonction :

Code:

---

=SOMME.SI(B$2:B$100;E7;D$2:D$100)

---

Tu copies F7 sur les case du dessous autant de fois que tu as de références.

bonsoir à toutes et à tous
comme débutant j'ai pensé à concaténer à la colonne D la colonne B & la colonne C

Citation:

---

=SI(B2<>"";CONCATENER(B2;C2);"")

---

puis
tu insère un userform avec combobox et un bouton de commande

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub CommandButton1_Click() Dim unique As New Collection Dim REF As String REF = ComboBox1.Value On Error Resume Next For Each cel In Range("D2:D" & [D65000].End(xlUp).Row) If Cells(cel.Row, 2) = REF Then unique.Add cel.Value, CStr(cel.Value) End If Next cel On Error GoTo 0 MsgBox "Eléments uniques : " & unique.Count End Sub   Private Sub UserForm_Initialize() Dim i As Integer For i = 2 To Sheets("feuil1").Range("B65536").End(xlUp).Row ComboBox1 = Sheets("feuil1").Range("B" & i) If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Sheets("feuil1").Range("B" & i) Next i End Sub

---

Certes c'est du bricolage d'un apprenti en VBA et les GRAND Monsieur de ce site ont des solutions meilleures