F fredoalex XLDnaute Nouveau 4 Avril 2018 #1 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
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
pierrejean XLDnaute Barbatruc 4 Avril 2018 #2 Bonjour fredoalex teste comme ceci n = Application.WorksheetFunction.CountIf(Sheets("Feuil1").Range("A1:A20"), "<" & Date) Vote positif 0 Vote négatif
Bonjour fredoalex teste comme ceci n = Application.WorksheetFunction.CountIf(Sheets("Feuil1").Range("A1:A20"), "<" & Date)
F fredoalex XLDnaute Nouveau 4 Avril 2018 #3 Bonjour Pierrejean, ça fonctionne merci beaucoup. Par contre quelle est la différence avec mon code ? je n'en vois pas enfaite Vote positif 0 Vote négatif
Bonjour Pierrejean, ça fonctionne merci beaucoup. Par contre quelle est la différence avec mon code ? je n'en vois pas enfaite
fanfan38 XLDnaute Barbatruc 4 Avril 2018 #4 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... Vote positif 0 Vote négatif
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 XLDnaute Barbatruc 4 Avril 2018 #5 bonjour tous, fanfan38 à dit: Ps Salut PierreJean j'ai un train de retard... Cliquez pour agrandir... c'est normal avec les grèves Vote positif 0 Vote négatif
bonjour tous, fanfan38 à dit: Ps Salut PierreJean j'ai un train de retard... Cliquez pour agrandir... c'est normal avec les grèves