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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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
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