la méthode rows de l'objet _global a échoué

[anass1]

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

 

[Dranreb]

Bonjour
Mettez :
aa = Feuil1.Range("A2:C" & Feuil1.Range("A" & Feuil1.Rows.Count).End(xlUp).Row)
Notez que moi je préfère :
aa = Feuil1.Range("A2:C" & Feuil1.Cells(Feuil1.Rows.Count, "A").End(xlUp).Row)
Ou encore :
aa = Feuil1.Range("A2:C2").Resize(Feuil1.Cells(1000000, "A").End(xlUp).Row - 1)
Mais que j'écris abrégé en :
aa = Feuil1.[A2:C2].Resize(Feuil1.[A1000000].End(xlUp).Row - 1)

 

[anass1]

Merci beaucoup M.Dranre
je me excuse; une autre question
erreur dans ce "impossible de définir la propriété rowsource. valeur de propriété non valide"

Me.ComboBox1.RowSource = ""
Select Case Me.ComboBox2
Case "AA"
Me.ComboBox1.RowSource = "AA"
Case "BB"
Me.ComboBox1.RowSource = "BB"

Peut-on faire quelque chose?
Désolé pour le dérangement

 

[Dranreb]

Ni "AA" ni "BB" ne sont des adresses de plages valides. "AA:AA" ou "BB:BB" oui.

 

[anass1]

Sont des adresses de plages valides

 

[Dranreb]

Ben alors mettez dans un module :

Sub Test()
Dim R As Range
Set R = ActiveSheet.Range("AA")
End Sub

Vous verrez bien.

Sélectionnez plutôt la plage que vous voulez spécifier et exécutez cette autre macro pour qu'elle vous affiche ce que vous devez mettre :

Sub Test2()
MsgBox Selection.Address
End Sub

 

[anass1]

Merci .Dranre
Bonne soirée
Bien cordialement.