Occurence sur deux colonnes en fonction de doublons

[moussoni]

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

Ce lien n'existe plus

Merci beaucoup de votre aide !

 

[youky(BJ)]

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

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

 

[mapomme]

Bonjour @moussoni,

Pas bien compris la demande 😵, voir les formules dans le fichier joint (deux interprétations de la demande donc deux formules).

edit : bonjour @youky(BJ) 😉

 

[moussoni]

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

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

 

[moussoni]

Bonjour @moussoni,

Pas bien compris la demande 😵, voir les formules dans le fichier joint (deux interprétations de la demande donc deux formules).

edit : bonjour @youky(BJ) 😉

Merci beaucoup mapomme 🙂 Je vais tester tout ça !!!