Discussion :

[GIZMOG]

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?

En vous remerciant,

Lola

[Jean-Philippe André]

Bonjour,

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

L'approche du TCD est bonne par ailleurs.

[Menhir]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=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.

[BENNASR]

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

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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