Remplir une ListBox avec un Segment

[Gabby]

Bonjour le forum,

Je bloque sur un bout de code depuis hier et je ne pense plus qu'a ça !

J'aimerai remplir une listbox avec les données que que je prend dans un segment.

J'ai essayé le bout de code ci dessous mais il me retourne une erreur d’exécution 5 avec Argument ou appel de procédure incorrect

 ListBox1.Clear
    For Each Cel In ThisWorkbook.SlicerCaches("Segment_Programme11")
        If Cel.Value <> "" Then
            ListBox1.AddItem Cel.Value
        End If
    Next Cel

Merci de votre aide si vous avez une iée.

 

[Gabby]

Re : Remplir une ListBox avec un Segment

Bon j'ai pas eu de réponse ici, mais j'ai la solution.

For Each oSlcItem In ActiveWorkbook.SlicerCaches("Segment_Programme11").SlicerItems
        ListBox.AddItem oSlcItem.Caption
    Next

Donc merci a steff999 sur [XL-2010] Remplir une ListBox avec un Segment [Résolu] - Forum du club des développeurs et IT Pro

 

[Gabby]

Re : Remplir une ListBox avec un Segment

Tans que j'y suis

Est il possible de modifier les données d'une listbox a partir d'une autre ?


Mon code pour initialiser les listbox est le suivant.

    ListBox2.Clear
    For Each oSlcItem2 In ActiveWorkbook.SlicerCaches("Segment_client").SlicerItems
         ListBox2.AddItem oSlcItem2.Caption
    Next
 
    ListBox3.Clear
    For Each oSlcItem3 In ActiveWorkbook.SlicerCaches("Segment_Programme11").SlicerItems
        ListBox3.AddItem oSlcItem3.Caption
    Next

Ensuite j'ai trouvé un bout de code sur le net ou en rentrant des données dans un textbox la listbox change en diminuant les choix.

voici ce code.

Private Sub TextBox1_Change()
    ListBox1.Clear
    For Each Cel In ThisWorkbook.Worksheets("Marches").Range("markets")
        If LCase(Cel.Value) Like TextBox1.Text & "*" Then
            ListBox1.AddItem Cel.Value
        End If
    Next Cel
End Sub

J'aimerai utiliser ce code et selon mes choix multiple dans le listbox2 avoir un choix restreint dans le listbox3.


Exemple :

listbox2 j'ai :

maison_Fr1
maison_Es2
maison_DE3
APT_Fr1
APT_Es2
APT_ES3

dans listbox3 j'ai :

APT_new
APT_old
Maison_new
maison_old

Donc si dans listbox2 je clic sur APT_FR1 ou APT_ES2 il ne me propose dans le listbox3 que APT_new et APT_old.


Merci encore pour votre aide

 

[grisan29]

Re : Remplir une ListBox avec un Segment

bonsoir Gabby
tu es gourmand en cette fin d'année 2 post identique sur 2 forums !!!!🙂

Pascal