XL 2010 Pr de code

Scorpio

XLDnaute Impliqué
Bonjour à tous,
Y aurait-il un membre qui pourrais s'il vous plaît me donner un coup de main, pour corriger ce code, qui devient jaune, lorsque je l'utilise

Private Sub UserForm_Initialize()
Form1.ListBox1.RowSource = ActiveSheet.Range("A1").CurrentRegion.Offset(1, 0).Resize(ActiveSheet.Range("A1").CurrentRegion.Rows.Count - 1, 4).Address
End Sub


Merci et bon dimanche
A++++
 

Pièces jointes

  • TransfertChoixOngletV1.xlsm
    37.6 KB · Affichages: 12

Dranreb

XLDnaute Barbatruc
Bonjour.
Décomposez, peut être :
VB:
Private Sub UserForm_Initialize()
Dim R As Range
Set R = Intersect(ActiveSheet.[A2:D1000000], ActiveSheet.UsedRange)
If R Is Nothing Then Exit Sub
Form1.ListBox1.RowSource = R.Address
End Sub

Remarque, en mettant ça comme instruction finale ça va aussi bien :
VB:
Me.ListBox1.List = R.Value