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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
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