Discussion :

[Soticca]

Bonjour,

J'ai des listbox sur une feuille que je rempli via un userForm. Jusque là pas de soucis.

Par contre, j'ai une procédure qui doit lire le contenu de ces listbox et là je n'y arrive pas. Autant je n'ai pas de soucis pour lire un listbox dans un userform, autant sur une feuille je sèche.

Sachant qu'en plus ils peuvent être à colonne unique ou multi colonne.

Avez-vous une idée ?

Ce que j'ai essayé qui ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
val2 = Worksheets(CO_sheetACSaisie).lstClientNewAC.list(i, 1)
val2 = Worksheets(CO_sheetACSaisie).lstClientNewAC.column(i, 1)

Par contre, j'arrive quand même à savoir si il est vide via :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nbLignes = Worksheets(CO_sheetACSaisie).lstClientNewAC.ListCount

[Theze]

Bonjour,

Sur une feuille, un objet ActiveX est un OLEObject et c'est par cette propriété qu'il te faut y accéder. Un OLEObject est générique ceci veux dire qu'ils ont tous des propriétés et méthodes de base mais si tu veux utiliser les propriétés propres à l'objet, il te faut utiliser la propriété "Object". Ceci ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Worksheets("Feuil1").OLEObjects("ListBox1").AddItem "Elément 1"

mais ceci oui :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Worksheets("Feuil1").OLEObjects("ListBox1").Object.AddItem "Elément 1"

Après sélection dans la ListBox sur la feuille, ce code te retourne la valeur sélectionnée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub Test()
 
    Dim Lst As OLEObject
 
    Set Lst = Worksheets("Feuil1").OLEObjects("ListBox1")
 
    MsgBox Lst.Object.List(Lst.Object.ListIndex)
 
End Sub

ou encore :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub Test()
 
    With Worksheets("Feuil1").OLEObjects("ListBox1").Object
 
        MsgBox .List(.ListIndex)
 
    End With
 
End Sub

Si ta ListBox est multi-colonnes, il te suffit, depuis la propriété "Object", de procéder de la même façon que pour une ListBox sur un UserForm !

[Soticca]

Merci pour la réponse, cela fonctionne