Eliminer répétition dans une cellule

Bonjour à tous,

Je suis débutant avec Excel et je n'arrive pas à trouver de solution à mon problème.

J'ai une colonne dans laquelle je stocke ce format de données :

16/16/23/96/96

01/01/01/18/18/25

12/12/87

La longueur de la chaîne est variable et les nombres sont toujours classés par ordre croissant.

Je souhaiterai obtenir dans une autre colonne :

16/23/96

01/18/25

12/87

Est-ce possible ? Je vous remercie de votre aide.

Bonjour,

merci de joindre une feuille exemple

Amicalement

Claude

Voici une feuille exemple.

Merci

re,

ici, j'utilise les colonnes C:D, mais si elles sont occupées

on peut insérer et supprimer 2 colonnes temporaires.

Sub Décompose()
Dim Lg%, A%, i%, x
'Macro par Claude Dubois pour "balatrac" Excel-Pratique le 09/02/11
    Application.ScreenUpdating = False
    Lg = Range("A65536").End(xlUp).Row
    Range("b2:b" & Lg).ClearContents

    For A = 2 To Lg
            Range("c1") = "extr"
            x = 0
            x = Split(Cells(A, "a"), "/")
        For i = 0 To UBound(x)
            If UBound(x) > 0 Then
                Range("c65536").End(xlUp)(2) = x(i)
            Else
                Cells(A, "b") = x(i)
            End If
        Next i
        If UBound(x) > 0 Then
            Range("c1:c" & [c65000].End(xlUp).Row).AdvancedFilter _
            Action:=xlFilterCopy, CriteriaRange:= _
            Range("k1:k2"), CopyToRange:=Range("d1"), Unique:=True

            For i = 2 To Range("d65536").End(xlUp).Row
                Cells(A, "b") = Cells(A, "b") & "/" & Cells(i, "d")
            Next i
                Range("c:d").ClearContents
            Cells(A, "b") = Mid(Cells(A, "b"), 2, Len(Cells(A, "b"))) 'suppr 1er "/"
        End If
    Next A
End Sub

Amicalement

Claude

Bonjour

Bonjour Claude

une autre méthode toujours avec une macro

Bonjour,

Merci de vos réponses, je regarde ça de suite.