Discussion :

[gaston64]

j'ai a disposition une suite de caractères

ex: a;a;a;b;b;c;b;a;c;c;c;b;a;a;a;b;c;c;c

1. dans un premier temps je souhaite supprimer de cette suite tous les éléments en doublon et obtenir:

ex: a;b;c

2. je souhaite par la suite afficher dans 3 textBox distinctes chaque élément contenu dans la suite (mise à par les ; ) tel que:

textBox1="a"
textBox2="b"
textBox3="c"

Comment procéder? Merci d'avance !

[Minick]

Salut,

En supposant que ta chaine est en Cellule A1 de la feuille active
tu peux essayer ca:

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
    Dim ElementsUniques As New Collection
    Dim Chaine As String
    Dim Cpt As Integer
 
    Chaine = Range("A1").Value
 
    For Cpt = 1 To Len(Chaine)
        On Error Resume Next
            If Mid(Chaine, Cpt, 1) <> ";" Then
                ElementsUniques.Add Mid(Chaine, Cpt, 1), CStr(Mid(Chaine, Cpt, 1))
            End If
        On Error GoTo 0
    Next Cpt
 
    For Cpt = 1 To ElementsUniques.Count
        If Cpt > 3 Then Exit For
        Me.Controls("TextBox" & Cpt) = ElementsUniques(Cpt)
    Next Cpt

[Didier Gonard]

Bonjour,

Du même genre, pour l'emploi de Split, trop souvent négligé..

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
Private Sub UserForm_Initialize()
Dim tboExtract As Variant
Dim I
Dim Unseul As New Collection
Dim strElt As Variant
Dim j
 
tboExtract = Split(Cells(3, 3), ";")
On Error Resume Next
For I = 0 To UBound(tboExtract)
   Unseul.Add tboExtract(I), tboExtract(I)
Next I
 
For Each strElt In Unseul
j = j + 1
UserForm1.Controls("TextBox" & j).Value = strElt
Next
On Error GoTo 0
End Sub

Ps : pas de gestion du nombre de textbox relatif aux nombre de caractères différents que tu ne précises pas .

cordialement,

Didier

[gaston64]

Merci beauoup.

concernant le nombre textbox j'en ai créé suffisament pour que:

nbr de textbox > nbr d'élément diff. de la suite.

vos réponses elles me sont bien utiles !