1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Dim c As Range, Plage As Range
Dim LastLig As Long, Lig As Long
With Sheets("Feuil1")
.AutoFilterMode = False
LastLig = .Cells(.Rows.Count, "B").End(xlUp).Row
Set Plage = .Range("A1:AA" & LastLig)
Plage.AutoFilter Field:=25, Criteria1:="<>"
'Parcours du range filtré
For Each c In .Range("B2:B" & LastLig).SpecialCells(xlCellTypeVisible)
If c.Value = True Then 'problème
Lig = c.Row '(on parcourt la colonne B des données visibles et on récupère la ligne
MsgBox .Range("AA" & Lig).Value & vbTab & .Range("C" & Lig).Value
'ici par exemple on affiche la donnée de AA et C
'traitements divers
End If
Next c
Set Plage = Nothing
End With |
Partager