Countif en VBA

Le
Denys
Bonjour,

J'ai un problme 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 ds avant cette date, a ne marche
pas.voici o est le problme

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
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Denys
Le #25394012
Bon.....c'est souvent comme ça.....je cherche depuis une
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
Publicité
Poster une réponse
Anonyme