Bonsoir Laurent,
Une solution avec Listbox.additem et une fonction de chaîne.
Private Sub UserForm_Initialize()
Dim RgListSource As Range
Dim i As Integer
Dim VarItem As Variant
Set RgListSource = Range('A1').CurrentRegion
For i = 1 To RgListSource.Cells.Count
VarItem = RgListSource(i, 1).Value
If Left(VarItem, 1) = 'x' Then
ListBox1.AddItem VarItem
Else
ListBox2.AddItem VarItem
End If
Next i
End Sub
et la liste de test à coller en A1 de ta feuille active:
yueizyuhz
xazeaz
xhfsh
xjzflkjek
kjhjkdh
hhdah
sqhkhk
qshgqd
x1235
xkdlsm123
dsf123
Voilà, n'hésites pas si tu as des questions.
EDITION!!
Je n'ai pas compris où se trouve le 'x'... peux tu préciser?
Message édité par: luki, à: 26/12/2005 23:32