remplissage de listbox à l'aide des éléments d'une suite

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 !

Salut,

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

Code:

---

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

---

Bonjour,

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

Code:

---

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

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 !