anass1
XLDnaute Junior
Bonjour
lorsqu'on fait une recherche dans listbox par ce code, un erreur se produit
NB: Classeur ou fenêtre doit rester en cache (masquée )
erreur d'execution 1004 : la méthode rows de l'objet _global a échoué
Merci
Dim i&, aa, bb, cc, a&, y&
aa = Feuil1.Range("A2:C" & Feuil1.Range("A" & Rows.Count).End(xlUp).Row)
y = 1
ReDim bb(3, y)
For i = 1 To UBound(aa)
If IsError(aa(i, 1)) Then GoTo 1
If aa(i, 1) & aa(i, 2) & aa(i, 3) Like "*" & TextBox1 & "*" Then
ReDim Preserve bb(3, y)
For a = 1 To 3
bb(a, y) = aa(i, a)
Next a
y = y + 1
End If
1 Next i
ReDim cc(UBound(bb, 2), UBound(bb))
For i = 1 To UBound(bb, 2)
For a = 1 To UBound(bb)
cc(i, a) = bb(a, i)
Next a
Next i
With ListBox1
.List = cc
End With
lorsqu'on fait une recherche dans listbox par ce code, un erreur se produit
NB: Classeur ou fenêtre doit rester en cache (masquée )
erreur d'execution 1004 : la méthode rows de l'objet _global a échoué
Merci
Dim i&, aa, bb, cc, a&, y&
aa = Feuil1.Range("A2:C" & Feuil1.Range("A" & Rows.Count).End(xlUp).Row)
y = 1
ReDim bb(3, y)
For i = 1 To UBound(aa)
If IsError(aa(i, 1)) Then GoTo 1
If aa(i, 1) & aa(i, 2) & aa(i, 3) Like "*" & TextBox1 & "*" Then
ReDim Preserve bb(3, y)
For a = 1 To 3
bb(a, y) = aa(i, a)
Next a
y = y + 1
End If
1 Next i
ReDim cc(UBound(bb, 2), UBound(bb))
For i = 1 To UBound(bb, 2)
For a = 1 To UBound(bb)
cc(i, a) = bb(a, i)
Next a
Next i
With ListBox1
.List = cc
End With