1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Public Function DelDoublons2(aDblons As String) As String
Dim sTemp() As String
Dim I As Integer
Dim PosCur As Integer
aDblons = aDblons & "|" 'un pipe à la droite du dernier
sTemp = Split(Replace(aDblons, ",", "|,"), ",") 'un pipe à la droite de chaque autre
For I = 0 To UBound(Split(aDblons, ",", -1, vbBinaryCompare))
PosCur = PosCur + Len(sTemp(I)) + 1
If InStr(PosCur, aDblons, sTemp(I)) = 0 Then DelDoublons2 = DelDoublons2 & ", " & sTemp(I)
Next I
DelDoublons2 = Replace(DelDoublons2, "|", "") ' pour éliminer les pipes
If Left(DelDoublons2, 2) = ", " Then DelDoublons2 = Right(DelDoublons2, Len(DelDoublons2) - 2)
End Function |
Partager