VBA erreur d'execution 13 incompatibilité de type

fredoalex

XLDnaute Nouveau
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

Code:
Sub message()

n = Application.WorksheetFunction.CountIf(Sheets(Feuil1).Range("A1:A20"), "<" & Date)


MsgBox n

End Sub

Merci d'avance pour votre aide
 

Pièces jointes

  • test heure.xlsm.xlsm
    16.6 KB · Affichages: 30

Discussions similaires