Bonjour Forum,
je tente d'effacer les lignes qui, dans la cellule BN, la date serait inférieur à la valeur dans la textbox6 de mon userform.
Voici mon code qui me renvoi une erreur
Dim d, xrg2 As Range
With Worksheets("Clients")
If .AutoFilterMode Then .Cells.AutoFilter
d = .Range("BN" & Rows.Count).End(xlUp).Row
On Error Resume Next
.Range("BN3:CB" & d).AutoFilter Field:=1, Criteria1:="<" & TextBox6
Set xrg2 = .Range("BN4:CB" & d).SpecialCells(xlCellTypeVisible)
xrg2.ClearContents .Range("BN" & d)
End With
Erreur de compilation:
Nombre d'Arguments incorrect ou affectation de propriété incorrecte
Quelqu'un pourrrait m'aider?
Edit** Résolu
.Range("BN3:BN" & d).AutoFilter Field:=1, Criteria1:="<" & TextBox6
Set xrg2 = .Range("BN3:CB" & d).SpecialCells(xlCellTypeVisible)
xrg2.ClearContents