Bonjour,
Je cherche à calculer une différence entre deux dates après avoir appliquer 2 filtres :
Dim Ligne As Range
Dim Plage As Range
Application des filtres
Sheets("Suivi facturation VDP").Select
ActiveSheet.AutoFilterMode = False
ActiveSheet.Range("$A$1:$AM$36923").AutoFilter Field:=4, Criteria1:="=450*"
DateRepere = DateSerial(2017, 6, 30)
Worksheets("Suivi facturation VDP").Range("X:X").AutoFilter Field:=24, Criteria1:="<" & CLng(DateRepere)
Worksheets("Suivi facturation VDP").Range("AB:AB").AutoFilter Field:=28, Criteria1:="", Operator:=xlOr, _
Criteria2:=">" & CLng(DateRepere)
Définition de la plage filtrée:
Set Plage = Range("A1:AM" & Range("a36923").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
Boucle sur plage filtrée
For Each Ligne In Plage
'
' Dat1 = Cells(Ligne.Row, 24)
' nbjour = DateDiff("j", DateRepere, Dat1)
' Cells(Ligne.Row, "AC") = nbjour
' Next Ligne
Le problème est que ma plage filtrée n'est pas détecté et la Ligne.Row reste à 1 alors que le End(xlUp).Row) est à 8250.
Merci d'avance pour vos réponses.
Bien cordialement.