Amélioration algorithme détection de doublons

[arthurho]

Bonjour

Jai codé une fonction me permettant de détecter les doublons dans une fonction :

Sub detecterdoublons()
Dim release_tab() As String, release_tab2() As String
Dim version_nb As Integer
version_nb = 1
lastcell = False
With ActiveSheet.Range("A1:A65536").Select
    Do While Not IsEmpty(ActiveCell)

        
        ReDim Preserve release_tab(1 To version_nb)
        release_tab(version_nb) = ActiveCell.Value
    

    ActiveCell.Offset(1, 0).Select
    version_nb = version_nb + 1
    Loop
    i = 1
    j = 1
    For j = 1 To UBound(release_tab)
        For i = 1 To UBound(release_tab)
            If release_tab(i) = release_tab(j) And i <> j Then
            MsgBox release_tab(i)
            End If
        Next i
    Next j
End With
End Sub

Je souhaiterais obtenir pour la colonne suivante : A,A,A,A,B,B,B,C,C,B,B,B
le résultat: A,B,C

Que dois je faire de plus ?

Merci de votre aide ,

Cdt,

Arthur HO.

 

[BOISGONTIER]

Re : Amélioration algorithme détection de doublons

Bonjour,

Liste sans doublons

JB