VBA erreur d'execution 13 incompatibilité de type

[fredoalex]

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

Sub message()

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


MsgBox n

End Sub

Merci d'avance pour votre aide

 

[pierrejean]

Bonjour fredoalex
teste comme ceci
n = Application.WorksheetFunction.CountIf(Sheets("Feuil1").Range("A1:A20"), "<" & Date)

 

[fredoalex]

Bonjour Pierrejean,

ça fonctionne merci beaucoup.

Par contre quelle est la différence avec mon code ? je n'en vois pas enfaite

 

[fanfan38]

Bonjour
Set myRange = Worksheets("Feuil1").Range("A1:A20")
n = Application.WorksheetFunction.CountIf(myRange, "<" & Date)
A+ François
Ps Salut PierreJean j'ai un train de retard...

 

[Roland_M]

bonjour tous,

Ps Salut PierreJean j'ai un train de retard...

c'est normal avec les grèves 😉