Bonsoir,
Par formule, je ne sais pas faire.....
Par fonction personnalisée, j'ai quelque chose à te proposer....
regarde le fichier joint
En colonne W, la formule :
=doublons($Q5:$V5;1)
en colonne X, la formule :
=doublons($Q5:$V5;2)
et la fonction, visible dans le code du module 1 :
Function doublons(Plg As Range, Num As Byte)
Dim Cel As Range
For Each Cel In Plg
If Application.CountIf(Plg, Cel.Value) > 1 Then
If Num = 1 Then
doublons = Cel.Value
Exit Function
Else
If Application.CountIf(Plg, Cel.Value) > 1 And Cel.Value <> Cells(Cel.Row, 23) Then
doublons = Cel.Value
End If
End If
End If
Next Cel
If doublons = 0 Then doublons = ""
End Function
Y'a sûrement plus simple, mais ce soir, c'est tout ce que j'ai trouvé.....
Le fichier :
https://www.excel-pratique.com/~files/doc/calcul_formule_v1.xls