Le filtre automatique ne fonctionne pas correctement

Question

J'essaie de filtrer certaines cellules en fonction des valeurs d'une colonne, mais je crains que la première action de filtrage ne pollue le reste, bien que j'essaie de désactiver le filtre en définissant filtermode sur false.

Ma méthode de sélection ressemble à ceci:

Function GetRowRange(sheetRange, column, value) As Range 
'check for a valid section column 
sheetRange.AutoFilterMode = False 
sheetRange.UsedRange.AutoFilter Field:=column, Criteria1:=value 
Set GetRowRange = sheetRange.UsedRange.SpecialCells(xlCellTypeVisible) 
MsgBox ("col:" & column & " val: " & value & " rows:" & GetRowRange.Rows.Count) 
sheetRange.AutoFilterMode = False 
End Function 

Et du msgbox je peux voir que seuls les premiers retours des lignes

Answer 1

Ce problème est assez méchant! :-)

Le problème est qu'après l'application de l'Autofilter et .SpecialCells(xlCellTypeVisible), votre nouvel objet Range est composé de plusieurs plages combinées.

E.g. lors du filtrage de cette table pour B,

votre objet plage aura 3 zones, chaque 1x2 cellules. Pour une raison étrange, Rows.Count ne prend pas en compte ces zones, donc Selection.Rows.Count est 1 si elle doit être 3. Toutefois, si vous en boucle sur l'énumération des lignes, il va fonctionner comme prévu:

lngCount = 0 
For Each r In Selection.Rows 
    lngCount = lngCount + 1 
Next 

Cette volonté return 3.

Donc, votre GetRowRange renverra la bonne plage, mais la routine .Rows.Count donnera le mauvais résultat. Utilisez cette fonction à la place:

Function RowCount(rngAreas As Range) As Long 
    Dim lngCount As Long 
    Dim rng As Range 
    For Each rng In rngAreas.Areas 
     lngCount = lngCount + rng.Rows.Count 
    Next 
    RowCount = lngCount 
End Function 

Juste une remarque: sachez que votre GetRowRange retournera également toujours la première ligne d'en-tête de votre table, donc gérer cette conséquence!