Passer d'une ligne filtrée à l'autre

Lorsque j'utilise un " filtre automatique " dans un fichier pour sélectionner les enregistrements qui m'intéressent,comment me déplacer par VBA d'une ligne filtrée à la suivante ?

Do While ActiveCell.Offset(1, 0).EntireRow.Hidden = True
ActiveCell.Offset(1, 0).Select Loop ActiveCell.Offset(1, 0).Select

Auteur :

Mots clefs associés à cette page : ,

OK ca marche !

Par kodakrom, le mer 09/05/2012 - 15:14.

Un peu modifié pour mon utilisation mais je cherchais le test pour zapper les lignes filtrées...

============
Sub ComplèteColonneRépétitif()
'
' Entre une valeur dans les cellules d'une colonne jusqu'à la fin de la liste,
' seulement sur lignes affichées.
' Départ depuis cellule sélectionnée
'
Do While ActiveCell.Row < Range("row_Insert").Row

'ici mettre la valeur souhaitée
ActiveCell.Value = 0

ActiveCell.Offset(1, 0).Select
Do While ActiveCell.EntireRow.Hidden = True
ActiveCell.Offset(1, 0).Select
Loop
Loop
End Sub
============