Discussion :

[Mootchoop]

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à :

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

Le 1 en vert c'est pour que la fonction Replace ne remplace qu'une fois dans la chaine le caractère recherché par "".

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

[Krovax]

Bonjour
en gros tu ne veux récupérer que la première occurence d'une lettre
je ferais plutot ceci

(je suis encore en train de boire mon café donc test bien le code je ne suis pas sure d'être vraiment reveillé )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub cc()
Dim ligne1 As String, ligne2 As String, lettre As String
 
ligne1 = "aacadddadsf"
 
Do
   lettre = Left(ligne1, 1)
   ligne2 = ligne2 & lettre
   ligne1 = Replace(ligne1, lettre, "")
Loop Until ligne1 = ""
MsgBox ligne2
End Sub

Le code en bref je prend la première lettre de la ligne je la place dans le résultat et je la supprime de la ligne, puis je passe a la suivante parmis celle qui reste

edit bon j'ai fini mon/mes café le code a l'air bon par contre il distingue minuscule et majuscule donc Acaa devient Aca si ca pose problème il ya plusieurs solution mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

option compare text

en tête de module ou alors rajouter avant la boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ligne1=ucase(ligne1)

pour tout passer en majuscule

[Mootchoop]

Bonjour Krovax,

je n'avais pas pensé à créer une nouvelle variable en y ajoutant chaque lettre une par une, c'est une super idée, bravo et merci beaucoup !

Mootchoop