descendre d'une ligne sur filtre

[phil75016]

Bonjour

Comment descendre d'une ligne sur un tableau filtré car si j'utilise offset(1,0) le curseur descend effectivement sur la ligne suivante mais pas sur la ligne suivante visible?

Merci

 

[kjin]

Re : descendre d'une ligne sur filtre

Bonjour,
Pour aller d'où à où...?
Où est ta macro ?
A+
kjin

 

[phil75016]

Re : descendre d'une ligne sur filtre

Je suis sur la première ligne du filtre par exemple A20 et je veux descendre d'une ligne dans la liste filtrée qui par exemple est A23. Avec offset(1,0) la cellule sélectionnée est A21 ce qui ne me convient pas.

 

[Cousinhub]

Re : descendre d'une ligne sur filtre

Bonjour,

Avec ce code de JBoisgontier, tu parcours toutes les cellules visibles de ta zone filtrée :

Sub parcoursItemsVisibles()
  For Each c In [_FilterDataBase].Resize(, 1).SpecialCells(xlCellTypeVisible)
    MsgBox c.Value & " " & c.Address
  Next c
End Sub

Site que je te conseille de consulter, une mine...

Bonne journée

 

[phil75016]

Re : descendre d'une ligne sur filtre

merci, mais il n'y a pas plus simple pour descendre d'une ligne car je n'arrive pas à appliquer la macro?

 

[mromain]

Re : descendre d'une ligne sur filtre

Bonjour à tous,

Voici un auytre essai :

Dim cellule As Range
    
    'cellule = A1
    Set cellule = ThisWorkbook.Sheets("Feuil1").Range("A1")
    
    'récupérer la prochaine cellule visible
    Do
        Set cellule = cellule.Offset(1, 0)
    Loop Until cellule.EntireRow.Hidden = False

a+