Trouver le nombre de valeurs Résolu

Question

Bonjour,

Je voudrais avoir un formule pour trouver le nombre de valeurs dans la colonne B qui correspond à une valeur dans la colonne A.  

Veuillez trouver un exemple ci-dessous:   il y a 3 clients qui achètent le produit 1 & 2 clients qui achète produit 2.

	       colonne A	colonne B
ligne 1	produit 1	client x
ligne 2	produit 1	client y
ligne 3	produit 2	cleint z
ligne 4	produit 1	client o
ligne 5	produit 2	client p

Merci de m'aider à trouver le bon ou les bons formules.  C'est urgent!!
Bien cordialement

Vaucluse · Answer

Bonjour

=NB.SI(B:B;"produit1")

si bien sur vous n'avez qu'une fois le nom du client pour chaque produit dans la colonne B

crdlmnt

ccm81 · Answer

Bonjour,

Exemples pour les deux possibilités évoquées en vain ;-) par Vaucluse  que je salue au passage
- formule pour le nombre de clients
- fonction personnalisée (macro) pour le nombre de clients différents

https://www.cjoint.com/c/HFsozO3RMJB

> EZV12 Dans ton dernier post, tu as oublié de donner le résultat attendu :  y a beaucoup de doublons pour le même produit et clients., que fait on avec ces doublons ?

Cdlmnt

ccm81 · Answer

Pour intégrer la fonction personnalisée Kompte dans ton fichier
1. Alt-F11 pour accéder à l'éditeur vba
2. Insertion/Module pour créer le Module 1
3. Coller tout le code dans ce Module 

Option Explicit

Const sep = ";"

Public Function Kompte(plageP As Range, plageC As Range, p As String) As Long
Dim nbc As Long, li As Long, nbli As Long, n As Long
Dim dico As Object, cle As String, valeur As String, cles, valeurs, nbcles As Long
Set dico = CreateObject("scripting.dictionary")
nbli = plageP.Rows.Count
For li = 1 To nbli
  cle = plageP.Cells(li, 1).Value
  valeur = plageC.Cells(li, 1).Value
  If dico.exists(cle) Then
    If InStr(1, dico(cle), valeur) = 0 Then dico(cle) = dico(cle) & sep & valeur
  Else
    dico.Add cle, valeur
  End If
Next li
nbcles = dico.Count
cles = dico.keys
valeurs = dico.items
If dico(p) = "" Then
  Kompte = 0
Else
  Kompte = UBound(Split(dico(p), sep)) + 1
End If
End Function
4. Modifier éventuellement la valeur de la constante lideb = 2 (1° ligne des données)
5. Ne pas oublier de sauvegarder ton fichier avec l'extension .xlsm (fichier prenant en compte les macros)

Si c'est fini, peux tu mettre le sujet à résolu (en haut à droite, la roue dentée)

Bonne soirée

ccm81 · Answer

Pour vba, pas besoin de connaître, si tu fais ce que j'ai mis plus haut, ça se limite presque à un copier/coller

Sinon, une solution avec formule matricielle pour comptage sans doublon
https://www.cjoint.com/c/HFstMTy5iXB

Cdlmnt

michel_m · Answer

Bonjour,

On peut peut-^tre essayer un TCD ( tableau Croisé Dynamique).....

Trouver le nombre de valeurs

5 réponses

Discussions similaires

Newsletters