Discussion :

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

J'ai ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[clementmarcotte]

Bonjour,

Je me réponds moi même

J'ai ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[thomanneca]

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

[QuestVba]

Bonsoir,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Pour toi,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NB.SI(M11:M30;"<" & AUJOURDHUI())

[parmi]

Tu dois assigner cette fonction à une cellule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou à une variable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim Valeur
Valeur = Application.WorksheetFunction.CountIf(Range("M11:M30"), "<" & Date)
MsgBox Valeur

[thomanneca]

Tu dois assigner cette fonction à une cellule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Oui, ça c'est fait aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("m32").Value = Application.WorksheetFunction.CountIf(Range("h32:h33"), "<" & Date)

[clementmarcotte]

Bonjour,

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.

[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 ?

[parmi]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[thomanneca]

@QuestVba

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...