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