Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Countif en VBA

1 réponse
Avatar
Denys
Bonjour,

J'ai un probl=E8me avec la fonction countif en VBA.... Voici le code

Private Sub CommandButton3_Click()
Dim mydate
mydate =3D Date
mydate =3D 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=FBs avant cette date, =E7a ne marche
pas....voici o=F9 est le probl=E8me...

Private Sub CommandButton3_Click()
'Call couleurs
Dim mydate
mydate =3D Date
mydate =3D Application.CountIf([$A$9:$A$15000], "<Date") <----=E7a
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

1 réponse

Avatar
Denys
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