Occurence sur deux colonnes en fonction de doublons

youky(BJ) à dit:

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

Cliquez pour agrandir...

mapomme à dit:

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) 😉

Cliquez pour agrandir...