Suppression doublons

3 réponses

zmriss

15/08/2006 à 18:22

Bonjour,

Comment on peut supprimer les douvlons d'une chaine de caract=E8re ?
exemple F(1222346778) =3D=3D> 1234678

Merci

3 réponses

FxM

15/08/2006 à 18:29

Bonjour,

Comment on peut supprimer les douvlons d'une chaine de caractère ?
exemple F(1222346778) ==> 1234678

Merci

Bonsoir,

Est-ce que tu peux avoir F(1234321) et dans ce cas, quel doit être le
résultat ?
Tu notes F(...). CEla veut-il dire que tu attends qq chose en VBA ?

@+
FxM

15/08/2006 à 18:46

Bonjour,

Dans un module:

Function SansDoublons(chaine)
temp = ""
For i = 1 To Len(chaine)
c = Mid(chaine, i, 1)
If InStr(temp, c) = 0 Then temp = temp & c
Next i
SansDoublons = temp
End Function

Dans le tableur: =SansDoublons(A1)

Cordialement JB

Bonjour,

Comment on peut supprimer les douvlons d'une chaine de caractère ?
exemple F(1222346778) ==> 1234678

Merci

zmriss

15/08/2006 à 20:33

Merci beaucoup u are the boss :)
FxM : en fait, mon besoin est de rendre une chaine de caractère et
d'enlever les lettres qui se repetent (pour une appli sudoku)

Bonjour,

Dans un module:

Function SansDoublons(chaine)
temp = ""
For i = 1 To Len(chaine)
c = Mid(chaine, i, 1)
If InStr(temp, c) = 0 Then temp = temp & c
Next i
SansDoublons = temp
End Function

Dans le tableur: =SansDoublons(A1)

Cordialement JB

Bonjour,

Comment on peut supprimer les douvlons d'une chaine de caractère ?
exemple F(1222346778) ==> 1234678

Merci

Suppression doublons

3 réponses

Veuillez sélectionner un problème