Compter le nombre de cellules contenant une date

Version imprimable

19/08/2014, 20h52
thomanneca

Bonsoir,

Je cherche une fonction permettant de compter le nombre de cellule contenant une date dans une plage déterminée.

Un code du style :

Code:

Application.WorksheetFunction.CountIf(Range("k11:k30"), IsDate)

Ensuite, on verra si je peux aussi mettre une condition comme :

comptez le nombre de cellule contenant une date < aujourd'hui

Merci pour votre aide

Je me réponds moi même :D

J'ai ceci :

Code:

Application.WorksheetFunction.CountIf(Range("m11:m30"), "<" & Date)

Mais le nombre obtenu ne correspond pas à la réalité... !?

En fait, il ne me renvoie pas le nombre de cellules avec une date mais le nombre de cellule contenant "-"

Help :D
19/08/2014, 20h52
clementmarcotte

Bonjour,

Citation:

Envoyé par thomanneca

Je me réponds moi même :D

J'ai ceci :

Code:

Application.WorksheetFunction.CountIf(Range("m11:m30"), "<" & Date)

Mais le nombre obtenu ne correspond pas à la réalité... !?

C'est parce que tu cherches ce qui s'est passé hier et avant.
Date est un mot réservé qui donne la date du jour.

Il va falloir qu'un formuliste me corrige au besoin; mais je doute fortement que l'on puisse combiner comme cela, une/des fonction(s) de feuille de calcul avec une/des fonctions VBA.

J'ai comme la vague impression que tu vas devoir "le faire au long"

N'oublie surtout pas, que pour Excel, une date est fondamentalement un nombre. En Windows, c'est par défaut le nombre de jours entre la date exprimée dans un format donné et le 1er janvier 1900. J'ai comme la vague impression que ce que tu as ramassé, ce n'est pas vraiment le nombre de traits d'union; mais le nombre de cellules dont le nombre qui correspond à la date affichée est plus petit que le nombre qui correspond à la date d'aujourd'hui.
19/08/2014, 20h55
thomanneca

Citation:

Envoyé par clementmarcotte

Bonjour,

C'est parce que tu cherches ce qui s'est passé hier et avant.
Date est un mot réservé qui donne la date du jour.

Bonsoir,

C'est bien l'objectif oui, je cherche le nombre de cellule avec une date antérieure à aujourd'hui..

Dois-je écrire DATE d'une autre manière alors ?

Même en faisant référence à une cellule dans laquelle j'ai noté la date d'aujourd'hui, cela ne fonctionne pas
19/08/2014, 21h11
QuestVba

Bonsoir,

Tu veux savoir le nombre de cellules avec une date inférieure à aujourd'hui (attention ma plage est A1:A4) :

Code:

=NB.SI(A1:A4;"<" & AUJOURDHUI())

Pour toi,

Code:

=NB.SI(M11:M30;"<" & AUJOURDHUI())
19/08/2014, 21h21
thomanneca

@QuestVba

Merci mais j'aimerais la transposer en vba c'est pourquoi, j'ai le code suivant (mais qui ne fonctionne pas) :

Code:

Application.WorksheetFunction.CountIf(Range("m11:m30"), "<" & Date)

@clementmarcotte

Je n'avais pas de suite ton message.
Pour en être sûr, j'ai réduit ma plage à 2 cellules dans lesquelles j'ai fait varier des dates (sans résultat), des lettres (toujours sans résultat) et un trait d'union et pour ce dernier test, le résultat est le bon...
19/08/2014, 21h30
parmi
Tu dois assigner cette fonction à une cellule

Code:

Range("M1") = Application.WorksheetFunction.CountIf(Range("M11:M30"), "<" & Date)

ou à une variable
Code:

1 2 3 Dim Valeur Valeur = Application.WorksheetFunction.CountIf(Range("M11:M30"), "<" & Date) MsgBox Valeur
19/08/2014, 21h35
thomanneca

Citation:

Envoyé par parmi

Tu dois assigner cette fonction à une cellule

Code:

Range("M1") = Application.WorksheetFunction.CountIf(Range("M11:M30"), "<" & Date)

Oui, ça c'est fait aussi :D

Code:

Range("m32").Value = Application.WorksheetFunction.CountIf(Range("h32:h33"), "<" & Date)
19/08/2014, 21h44
parmi

Et alors ?
Est-ce que ça fonctionne ?

Si ça ne fonctionne pas, c'est peut-être que tes dates sont du texte et non pas de "vraies" dates...
19/08/2014, 21h45
clementmarcotte

Bonjour,

Citation:

Envoyé par thomanneca

Bonsoir,

C'est bien l'objectif oui, je cherche le nombre de cellule avec une date antérieure à aujourd'hui..

Dois-je écrire DATE d'une autre manière alors ?

Même en faisant référence à une cellule dans laquelle j'ai noté la date d'aujourd'hui, cela ne fonctionne pas

Puisque quelques télescopages sont survenus pendant que je rédigeais et modifiais mon dernier message, je reprends donc ici.

Comme j'ai mentionné plus haut, dans Excel une date c'est juste un nombre avec un format spécial.

Je ne sais pas si la réponse de QuestVBA te convient. Personnellement, je pense qu'il est possible (préférable) de faire une fonction, ou une sub, en VBA pour séparer le bon grain de l'ivraie; ie un nombre qui ressemble vraiment à une date et un nombre quelconque. Cela me semble préférable, dans ce cas-ci, du moins, de privilégier uniquement les fonctions VBA sans utiliser de fonction de feuille de calcul.
19/08/2014, 21h51
thomanneca

@clementmarcotte

En effet, je préférerais plutôt ne coder qu'en VBA car mon tableau est succeptible de bouger et avec excel, cela risque de ne plus fonctionner.
Penses-tu être capable de créer un fonction de ce type en VBA ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
    Dim I As Long, nbLignes As Long
    Dim Cnt As Long
 
    nbLignes = Cells(Rows.Count, "M").End(xlUp).Row
    For I = 11 To nbLignes
        If IsDate(Range("M" & I)) Then
            If Range("M" & I) < Date Then
                Cnt = Cnt + 1
            End If
        End If
    Next
 
    Range("M1") = Cnt

Mais ça ne changera rien si tes dates ne sont pas considérées comme des dates.
Tu auras 0 comme résultat...

La, ca semble marcher nikel !!!

Une dernière chose peut-être sans vouloir abuser... ton code marche pour une colonne, est-ce possible de l'étendre à une plage ?

Parmi,

J'ai un peu modifié ton code et essayé quelque chose pour étendre à une plage mais j'ai une erreur 1004
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Dim I As Long, J As Long, nbLignes As Long, nbCol As Long Dim Cnt As Long nbLignes = Range("k11").End(xlDown).Row - 1 nbCol = Range("ac11").Column For I = 11 To nbLignes For J = 11 To nbCol If IsDate(Range(J & I)) Then If Range(J & I) < Date Then Cnt = Cnt + 1 End If End If Next Next Range("M32") = Cnt
Il n'aime pas le (Range(J & I))

Qu'en penses tu?

Ça dépend de ce que tu entends par plage et ce que tu veux en faire, mais oui, tu peux

Code:

nbLignes = Cells(Rows.Count, "M").End(xlUp).Row

Ici, je me sers de la colonne M pour connaître le nombre de lignes

Code:

For I = 11 To nbLignes

Ici, je démarre en ligne 11
À changer au besoin

Autrement, quelque chose du genre...
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim Plage as range, Cellule As Range nbLignes = Cells(Rows.Count, "M").End(xlUp).Row Set Plage = Range("F2:M" & nbLignes) For each cellule in Plage If IsDate(Cellule) Then If Cellule < Date Then Cnt = Cnt + 1 End If End If Next Range("M1") = Cnt

19/08/2014, 23h16
thomanneca

Impeccable, juste ce qu'il me fallait.

Je te remercie et te souhaite une bonne soirée ;)

A+
20/08/2014, 20h30
clementmarcotte

1 pièce(s) jointe(s)

Bonjour,

J'ai bien vu le "Résolu", mais, je me suis "amusé" hier soir chez-moi. J'ai pondu cette œuvre. Il s'agit d'une fonction qui peut être appelée d'une sub ou utilisée directement dans une feuille de calcul.

Notez bien que la plage est entrée sans guillemet et que la date et le paramètre doivent être mis entre guillemets dans l'appel à partir d'une cellule.

Puis, comme je voulais faire original, j'ai ajouté un paramètre permettant d'inclure ou non la date affichée dans les dates à rechercher.

Cependant, les utilisateurs intéressés devraient vérifier les formats de dates, autant dans la plage "A1:B7" que dans les cellules, où j'ai inséré directement l'appel de la fonction. Chez-moi, le format de dates est "aaaa-mm-jj"