D
Don diego de la vega
Guest
Bjr a tous, j'ai entre ce code dans mon userform, bon super ca marche sauf que je suis bloque a la 257eme ligne et je voudrais etendre mon "range" jusqu'a A6000...quelqu'un pourrait-il m'aider...
Public Sub initlistbox()
Dim c As Range
Dim x As Byte
x = 0
For Each c In Range("A3:A257")
With ListBox1
.AddItem c
.List(x, 0) = c
.List(x, 1) = c.Offset(0, 1)
.List(x, 2) = c.Offset(0, 2)
.List(x, 3) = c.Offset(0, 3)
.List(x, 4) = c.Row
x = x + 1
End With
Next c
End Sub
Private Sub UserForm_Initialize()
Dim c As Range
Dim x As Byte
With ListBox1
.ColumnCount = 2
.ColumnWidths = "140,60"
.MultiSelect = fmMultiSelectMulti
End With
initlistbox
End Sub
Si vous vous voulez plus d'info contactez moi...Merci de votre aide precieuse
Bonne journee
Public Sub initlistbox()
Dim c As Range
Dim x As Byte
x = 0
For Each c In Range("A3:A257")
With ListBox1
.AddItem c
.List(x, 0) = c
.List(x, 1) = c.Offset(0, 1)
.List(x, 2) = c.Offset(0, 2)
.List(x, 3) = c.Offset(0, 3)
.List(x, 4) = c.Row
x = x + 1
End With
Next c
End Sub
Private Sub UserForm_Initialize()
Dim c As Range
Dim x As Byte
With ListBox1
.ColumnCount = 2
.ColumnWidths = "140,60"
.MultiSelect = fmMultiSelectMulti
End With
initlistbox
End Sub
Si vous vous voulez plus d'info contactez moi...Merci de votre aide precieuse
Bonne journee
