Discussion :

[leptitdave]

Bonjour à tous,

Malgré plusieurs codes trouvé sur le net je n'arrive pas à me déplacer d'une ligne à l'autre après un filtre automatique.
Tous les codes trouvé jusqu'à maintenant marchent qu'avec des lignes qui se suivent.

Moi je veux parcourir les lignes visibles.

Utilisation: Comparer une valeur dans ligne i avec une autre dans la ligne i+1 où i est une ligne visible.

Merci d'avance

[bidou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
    'je filtre
    Dim MaFeuille As Worksheet
    Set MaFeuille = ActiveSheet
    MaFeuille.Cells.AutoFilter Field:=5, Criteria1:="NET SDK"
    'je récupère la plage des cellules visibles
    Dim MaPlage As Range
    Set MaPlage = MaFeuille.UsedRange.SpecialCells(xlCellTypeVisible)
    'je compare les cellules de la colonne D
    Dim Ligne As Range, PrecVal As Variant
    For Each Ligne In MaPlage.Rows
        If Ligne.Cells(4).Value = PrecVal Then MsgBox "pareil"
        PrecVal = Ligne.Cells(4).Value
    Next

[leptitdave]

Merci bidou