Countif en VBA
Le
Denys

Bonjour,
J'ai un problème avec la fonction countif en VBA. Voici le code
Private Sub CommandButton3_Click()
Dim mydate
mydate = Date
mydate = Application.CountIf([$A$9:$A$15000], Date)
If mydate < 2 Then
MsgBox "You have " & mydate & _
" account due today."
Else
MsgBox "You have " & mydate & _
" accounts due today."
End If
End Sub
Cela me donne le nombre de comptes dus pour aujourd'hui Mais si
je veux savoir ceux qui sont dûs avant cette date, ça ne marche
pas.voici où est le problème
Private Sub CommandButton3_Click()
'Call couleurs
Dim mydate
mydate = Date
mydate = Application.CountIf([$A$9:$A$15000], "<Date") <-ça
devrait fonctionner non ?
If mydate < 2 Then
MsgBox "You have " & mydate & _
" account due today."
Else
MsgBox "You have " & mydate & _
" accounts due today."
End If
End Sub
Quelqu'un peut m'expliquer mon erreur ?
Merci
Denys
J'ai un problème avec la fonction countif en VBA. Voici le code
Private Sub CommandButton3_Click()
Dim mydate
mydate = Date
mydate = Application.CountIf([$A$9:$A$15000], Date)
If mydate < 2 Then
MsgBox "You have " & mydate & _
" account due today."
Else
MsgBox "You have " & mydate & _
" accounts due today."
End If
End Sub
Cela me donne le nombre de comptes dus pour aujourd'hui Mais si
je veux savoir ceux qui sont dûs avant cette date, ça ne marche
pas.voici où est le problème
Private Sub CommandButton3_Click()
'Call couleurs
Dim mydate
mydate = Date
mydate = Application.CountIf([$A$9:$A$15000], "<Date") <-ça
devrait fonctionner non ?
If mydate < 2 Then
MsgBox "You have " & mydate & _
" account due today."
Else
MsgBox "You have " & mydate & _
" accounts due today."
End If
End Sub
Quelqu'un peut m'expliquer mon erreur ?
Merci
Denys
heure.....décide de demander de l'aide....et trouve la solution....
Enfin bref.... voici la réponse si jamais ça peut aider......
Private Sub CommandButton3_Click()
Dim mydate
mydate = Date
mydate = Application.CountIf([$A$9:$A$15000], "<=" & Date)
If mydate < 2 Then
MsgBox "You have " & mydate & _
" account due today."
Else
MsgBox "You have " & mydate & _
" accounts due today."
End If
End Sub
Denys