Bonjour à tous,
J'ai créé un code VBA qui dois me compte le nombre de ligne dont la date est inférieur à aujourd'hui.
Malheureusement j'ai un message d'erreur 13 incompatibilité de type.
Je suppose que VBA ne comprend pas que mes Cellules A1 à A20 sont au format date mais je ne sais pas pourquoi
Merci d'avance pour votre aide
J'ai créé un code VBA qui dois me compte le nombre de ligne dont la date est inférieur à aujourd'hui.
Malheureusement j'ai un message d'erreur 13 incompatibilité de type.
Je suppose que VBA ne comprend pas que mes Cellules A1 à A20 sont au format date mais je ne sais pas pourquoi
Code:
Sub message()
n = Application.WorksheetFunction.CountIf(Sheets(Feuil1).Range("A1:A20"), "<" & Date)
MsgBox n
End Sub
Merci d'avance pour votre aide