Erreur sur ListBox

[allegro50]

Bonsoir le Forum

Le code ci-dessous qui devrait modifier les valeurs affichées dans la listbox en fonction de la valeur de la variable onglet (en fait j'ai une liste source par feuille) me renvoie sur la ligne rouge une "erreur 70 Acces refusé" que l'aide ne semble pas connaitre.
Qu'est ce qui peut la provoquer ??

Private Sub ComboBox1_Change()
ListStock.Visible = True
onglet = ComboBox1.Text
If onglet = "" Then MsgBox "Choisissez une Valeur": Exit Sub
ListStock.AddItem (Sheets(onglet).Range("AA2:AD100"))
End Sub

Merci de votre aide

 

[Pierrot93]

Re : Erreur sur ListBox

Bonjour Allegro,

peut être comme ci dessous :

ListStock.List = Sheets(onglet).Range("AA2:AD100")

bonne journée
@+

 

[Pierrot93]

Re : Erreur sur ListBox

Bonjour Allegro, Hervé

il faut ajouter ".Value" à la ligne de code indiquée,

(Merci à Hervé de me l'avoir fait remarquer par MP)

@+

 

[allegro50]

Re : Erreur sur ListBox

Bonjour Pierrot, Hervé, le forum

Ca fonctionne tres bien. En fait outre l'erreur de syntaxe , j'avais renseigne le RowSource ds les proprietes de la listbox et il n'a pas aimé

Merci de votre efficacité

A plus