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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas