Bonjour à tous,
Cela fait quelques jours que je me prends la tête sur un problème, et je franchi un cap aujourd'hui en vous demandant de l'aide.
Mon problème est le suivant : j'ai une chaine de caractères (prenons "AACACD"). Je souhaite supprimer les doublons de lettre dans cette chaine et sortir dans cet exemple "ACD" (l'ordre des lettres importe peu).
après plusieurs tentatives infructueuses j'en suis arrivé là :
Le 1 en vert c'est pour que la fonction Replace ne remplace qu'une fois dans la chaine le caractère recherché par "".
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 Sub test() serie_depart = "AACACD" serie_intermediaire = serie_depart For i = 2 To Len(serie_depart) For j = 1 To i If i <> j Then If Mid(serie_intermediaire, i, 1) = Mid(serie_intermediaire, j, 1) Then serie_intermediaire = Replace(serie_intermediaire, Mid(serie_intermediaire, i, 1), "", 1, 1) End If End If Next Next MsgBox(serie_intermediaire) End Sub
Je ne sais même pas si je suis sur la bonne voie et que j'ai raté quelque chose ou bien si je suis dans une voie sans issue..
Merci d'avance de votre aide !
Mootchoop
Partager