XL 2010 Pr de code

Scorpio · 12 Février 2017

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++++

Dranreb · 12 Février 2017

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

Scorpio · 12 Février 2017

Salut Dranreb,
OK,Je crois que ça marche, merci de ton aide Dranreb
A++++ merci

XL 2010 Pr de code

Scorpio

XLDnaute Impliqué

Pièces jointes

Dranreb

XLDnaute Barbatruc

Scorpio

XLDnaute Impliqué

Discussions similaires

XL 2010 Pr de code

Scorpio

XLDnaute Impliqué

Pièces jointes

Dranreb

XLDnaute Barbatruc

Scorpio

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency