Bonjour à tous :),
J'ai une fonction doublon (voir code juste ci-dessous ou dans le fichier-joint) mais qui affiche un 0 s'il y a plus de cellules concernant la formule que de noms à afficher sans doublons. Quelqu'un s'aurait-il comment modifier le code pour que ça n'affiche plus un 0, mais rien du tout à la place ?
Function SansDoublons(champ As Range)
Application.ScreenUpdating = False
Set mondico = CreateObject("Scripting.Dictionary")
mondico.CompareMode = vbTextCompare
a = champ
For Each c In a
If Not mondico.Exists(c) And c <> "" Then mondico(c) = ""
Next c
Dim temp()
ReDim temp(1 To Application.Caller.Rows.Count)
i = 1
For Each c In mondico.keys
temp(i) = c
i = i + 1
Next
SansDoublons = Application.Transpose(temp)
End Function