Lone-wolf
XLDnaute Barbatruc
Bonjour le Forum
J'ai un souci avec cette macro à la ligne Redim Preserve
Je ne comprends pas pourquoi cette ligne provoque une erreur, pourtant je l'utilise dans d'autres formulaires sans problèmes.
Si vous pourriez m'éclairer (malgré qui fasse déjà jour ).
EDIT: j'ai trouvé. Il fallait initialiser la Listbox.
J'ai un souci avec cette macro à la ligne Redim Preserve
VB:
Private Sub Lister()
With ActiveSheet
Bd = .Range("a2:h" & .Range("h" & Rows.Count).End(xlUp).Row)
n = 0
End With
ListBox1.Clear
For i = LBound(Bd) To UBound(Bd)
If Bd(i, 1) Like CbEleve & "*" Then
n = n + 1: ReDim Preserve Tbl(1 To UBound(Bd, 2), 1 To n)
For k = 1 To UBound(Bd, 2): Tbl(k, n) = Bd(i, k): Next k
End If
Next i
ListBox1.Column = Tbl
For i = 0 To ListBox1.ListCount - 1
ListBox1.List(i, 6) = Replace(ListBox1.List(i, 6), ",", ".")
Next i
End Sub
Je ne comprends pas pourquoi cette ligne provoque une erreur, pourtant je l'utilise dans d'autres formulaires sans problèmes.
Si vous pourriez m'éclairer (malgré qui fasse déjà jour ).
EDIT: j'ai trouvé. Il fallait initialiser la Listbox.
Dernière édition: