Bonjour à tous,

je cherche à accéder à une plage de données filtrées et donc visibles. Mon besoin est de comparer les valeurs de la ligne L avec celle de la ligne L+1.
Ça fonctionne bien pour la ligne L mais je n'y arrive pas pour la ligne suivante. J'ai essayé avec offset mais il me donne la ligne suivante qui est masquée (et non visible).

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub compare_noms()
Dim nom_ligne As String, nom_ligne_suivante As String
Dim NLastVisible_Feuil1 As Long
Dim MaPlage As Range
Dim Ligne As Range
 
 
'détermination de la dernière ligne visible de la feuille
NLastVisible_Feuil1 = ThisWorkbook.Worksheets("Feuil1").Cells(Rows.Count, "A").End(xlUp).Row
 
'on récupère la plage filtrée, (cad les lignes visible) dans un Range
Set MaPlage = ThisWorkbook.Worksheets("Feuil1").Range("A2:AO" & NLastVisible_Feuil1).SpecialCells(xlCellTypeVisible)
 
'pour chaque ligne visible, on récupère le nom de la ligne L et L+1
For Each Ligne In MaPlage.Rows
    nom_ligne = Ligne.Cells(1).Value
	nom_ligne_suivante = Ligne.Offset(1, 0).Cells(1).Value
'comparaison des 2 noms...
'[...]
Next Ligne
 
End Sub