listview - filtrer les données à incorporer

[LaurentG]

Bonjour,

j'ai un petit problème.
J'ai dans une feuille excel toute une série de données l'une en dessous des autres. Dans la colonne B il y a pour certaines d'entre elles un 'X', et pour d'autre rien.

J'ai un userform avec 2 listview.
Dans celle de droite j'aimerais lister les données pour lesquelles il n'y a pas de X à coté, et dans celle de gauche lister celles qui ont un X à côté.

Est-ce possible?

Merci beaucoup

Laurent

 

[Luki]

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

 

[Luki]

Re laurent,

Je suis presque bon pour le ZOP!

Tu parles de listWiew et je te réponds ListBox!

D'ailleurs pourquoi pas une listbox ?

En fait, j' avoue que je ne connaissait pas les listwiew il y a 10 minutes! C'est à partir de quelle version d'xl? Car chez moi, je les ai jamais rencontrées!

En complément, tu peux suivre ce fil:
Lien supprimé

 

[LaurentG]

Bonjour Luki,

Merci pour ton aide

Effectivement c'est beaucoup plus simple avec une listbox! J'ai adapté le code pour qu'il fasse une selection en fonction du 'x'.

La version dXl est 2002. Mais je n'ai jamais vraiment compris le fonctionnement de la listview...

Merci encore!

Laurent

 

[Luki]

Bonjour Laurent,

Bon courage et bonne Année!