Occurence sur deux colonnes en fonction de doublons

moussoni

XLDnaute Nouveau
Bonjour à tous,

Je souhaiterai compter le nombre d'occurrence sur une colonne en fonction d'un critère sur une deuxième colonne.

Col A Col B
Mr AAA
Mlle BBB
Mme CCC
Enfant DDD
Bébé EEE
Mr AAA
Mme HHH
Bébé EEE

Par exemple si je fais NB.SI(A:A;A2) = 2 car le nom Mr apparaît deux fois sauf qu'étant donné que le type Mr en col A est associé au même code AAA en col B je souhaiterai que le résultat soit de 1 uniquement car j'ai un doublon dans la col B. Sachant que j'ai plusieurs éléments en colonne A à Compter

https://mon-partage.fr/f/2XBvc8YZ/

Merci beaucoup de votre aide !
 

youky(BJ)

XLDnaute Barbatruc
Bonjour,
Je n'ai pas chargé le fichier, il y a tout ce qu'il faut ici…
Je sais faire seulement en macro que l'on peut transformer en function donc voici une macro
avec dico.
Bruno
VB:
Sub compter()
Dim ab As String
With Sheets("Feuil1") 'a adapter
Set dico = CreateObject("Scripting.Dictionary")
For Each c In .Range([a2], .[a65000].End(xlUp))
ab = c.Value & c.Offset(, 1)
dico.Item(ab) = dico.Item(ab)
Next c
MsgBox dico.Count
End With
End Sub
 

moussoni

XLDnaute Nouveau
Bonjour,
Je n'ai pas chargé le fichier, il y a tout ce qu'il faut ici…
Je sais faire seulement en macro que l'on peut transformer en function donc voici une macro
avec dico.
Bruno
VB:
Sub compter()
Dim ab As String
With Sheets("Feuil1") 'a adapter
Set dico = CreateObject("Scripting.Dictionary")
For Each c In .Range([a2], .[a65000].End(xlUp))
ab = c.Value & c.Offset(, 1)
dico.Item(ab) = dico.Item(ab)
Next c
MsgBox dico.Count
End With
End Sub
Merci Youky(Bj), une fois de plus tu me sauves :) Je vais de ce pas tester tout cela
 

Discussions similaires


Haut Bas