Message d'erreur 381

[maval]

Bonjour

J'utilise ce bout de code pour alimenter un listbox à partir d'un tableau se trouvant sur ma feuille.

  With ListBox1
    .List = Range("C3:C" & Range("C65536").End(xlUp).Row).Value
  End With

La ligne indiquée crée une erreur 381 : impossible de définir la propriété List. index de table de propriétés non valide.


Pourriez-vous m'indiquer comment résoudre ce problème

Je vous remercie d avance

Cordialement

Maval

 

[youky(BJ)]

Re : Message d'erreur 381

Salut Maval,
Peut être utiliser le nom d'onglet avec with
exemple

 With Feuil1 'si Feuil1
   Listbox1 .List = .Range("C3:C" & .Range("C65536").End(xlUp).Row).Value
  End With

Bruno

 

[VDAVID]

Re : Message d'erreur 381

Bonjour Maval,

Essayes peut-être comme ça:

With ListBox1
For X = 3 To Range("C65536").End(xlUp).Row
.AddItem Range("C" & X) '1ère colonne
Next
End With

Bonne journée !

 

[camarchepas]

Re : Message d'erreur 381

Bonjour,

Pour rester dans ta logique,

Manque juste les parenthèses :

Dim lignes As Long
lignes = Range("C" & Rows.Count - 1).End(xlUp).Row
UserForm1.Show
With UserForm1.ListBox1
.List() = Range("C3:C" & lignes).Value
End With
End Sub

 

[maval]

Re : Message d'erreur 381

Bonjour le forum

Je vous remercie beaucoup Nickel

Bonne journée

Maval