Valeurs combobox correspondantes VBA avec plages

Question

J'essaie de faire correspondre la valeur dans une zone de liste déroulante avec les valeurs d'une plage et de mettre des valeurs correspondantes dans un tableau. Cependant, selon la fenêtre de surveillance, mon tableau ne stocke aucune valeur. Je pense qu'il y a quelque chose qui ne va pas dans ma référence à la valeur du combobox mais je ne suis pas sûr de savoir comment le corriger. Toute contribution appréciée.

ILsearch est le nom de mon userform

AnSelect est le nom de mon combobox

Dim ia As Long 
Dim Anion As Range, AnFind As Range 
Dim AnResults() As Variant 

    If ILsearch.ICheck1.Value = True Then 
    Set Anion = Worksheets("Properties").Range("T7:T600") 
    For Each AnFind In Anion 
     If AnFind.Value = ILsearch.AnSelect.Value Then 
      ia = ia + 1 
      ReDim Preserve AnResults(ia) 
      AnResults(ia - 1) = AnFind.Row 
     End If 
    Next AnFind 
    End If 

Answer 1

Cela a fonctionné pour moi:

Dim ia As Long 
Dim Anion As Range, AnFind As Range 
Dim AnResults() As Variant 

    ia = 0 
    If ILsearch.ICheck1.Value = True Then 
     Set Anion = Worksheets("Properties").Range("T7:T600") 
     For Each AnFind In Anion.Cells 
     If AnFind.Value = ILSearch.AnSelect.Value Then 
      ia = ia + 1 
      ReDim Preserve AnResults(1 To ia) 
      AnResults(ia) = AnFind.Row 
     End If 
     Next AnFind 

     MsgBox Join(AnResults, ",") 
    End If