Supprimer caractère en double

Bonjour,

Je cherche une fonction qui supprime un caractère en double dans une chaîne de caractère.

Par exemple, j'ai dans ma cellule 123451 (ou abcda) et je voudrais supprimer le doublon, c-à-d obtenir 12345 (ou abcd) (sachant que le caractère en double n'est pas forcément à l'extrémité de la chaîne de caractère).

Quelqu'un connaîtrait-il une fonction qui fait ça ?

Merci !

Bonjour,

A tester dans ton environnement.

Option Explicit
Option Compare Text
Public Function SupDoublons(Cel) As String
Dim a As String, _
    b As String, _
    l As String

    a = Cel
    Do
        l = Left(a, 1)
        b = b & l
        a = Replace(a, l, "")
    Loop Until a = ""
    SupDoublons = b

End Function

Effectivement ça marche bien merci !

Par contre je me suis en fait un peu trompé dans ma descritpion, ce qu'il faudrait c'est que quand j'ai un caractère en double, on supprime carrément les 2 caractère, pas que celui en double.

Ex : 123435 => 1245

Je suppose qu'il n'y a pas grand chose à changer au code mais je ne m'y connais vraiment pas en VBA donc je vois pas trop ...

Merci !

En fait c'est bon j'ai réussi à adapter.

Merci !

Rechercher des sujets similaires à "supprimer caractere double"