Message d'erreur 381

youky(BJ)

XLDnaute Barbatruc

• 10 Août 2012

• #2

Re : Message d'erreur 381

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

Code:

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

Bruno

 

Vote positif 0 Vote négatif

V

VDAVID

XLDnaute Impliqué

• 10 Août 2012

• #3

Re : Message d'erreur 381

Bonjour Maval,

Essayes peut-être comme ça:

Code:

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

Bonne journée !

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 10 Août 2012

• #4

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 10 Août 2012

• #5

Re : Message d'erreur 381

Bonjour le forum

Je vous remercie beaucoup Nickel

Bonne journée

Maval

 

Vote positif 0 Vote négatif