Compter en fonction de la date d'aujourd'hui

bonjour,

voila j'ai une colonne B qui contient les dates du 01/01/2017 au 31/12/2017 dans la colonne C en face de chaque date j'ai des lettre par exemple "cp" ou "t".

je voudrais calculer le nombre de cellule contenant les même lettre de la colonne C a partir du 01/01/2017 jusqu'à aujourd'hui.

merci

Bonjour le forum,

01/01/2017 en B2 :

=SOMMEPROD((B:B>=$B$2)*(B:B<=AUJOURDHUI())*(C:C="T"))

Bonsoir mattoumat,

La liste des lettres pouvant apparaître en colonne C est-elle connue d'avance? Si oui, un petit NB.SI combiné avec DECALER devrait donner un résultat. Si non ... tu serais preneur d'une macro, éventuellement?

Dans un cas comme dans l'autre, un petit bout de fichier (sans données confidentielles) c'est envisageable?

Bonsoir mbbp

bonsoir

et;voila

cordialement

en mieux

merci a tous pour vos réponses ça fonctionne bien !!

Avec le NB.SI :

=NB.SI(DECALER($C$2;0;0;EQUIV(AUJOURDHUI();B:B;0));"t")

salut U.milité

tu noteras que Mossieur y a pensé dans " le mieux"

cordialement

Bonsoir le forum,

que d'étoiles sur ce sujet! 8)

Je ne pouvais pas laisser VBA sans défenseur!

En supposant une ligne d'en-tête dans ton fichier, un clic en [C1] déclenche le calcul qui s'affiche, sans précision de ta part, dans une MsgBox.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
Dim tTab
Dim tAlpha()
'
If Not Intersect(Target, Range("C1")) Is Nothing Then
    Application.ScreenUpdating = False
    '
    iRow = Range("B" & Rows.Count).End(xlUp).Row
    iCol = Cells(1, Columns.Count).End(xlToLeft).Column
    sCol = Split(Columns(iCol).Address(ColumnAbsolute:=False), ":")(1)
    iFlag = DateDiff("d", Cells(2, 2), Date) + 2
    Range("A2:" & sCol & iRow).Sort key1:=Range("C2"), order1:=xlAscending, Orientation:=xlTopToBottom
    tTab = Range("C2:C" & iRow)
    Range("A2:" & sCol & iRow).Sort key1:=Range("B2"), order1:=xlAscending, Orientation:=xlTopToBottom
    iIdx = 1
    ReDim Preserve tAlpha(iIdx)
    '
    For x = 1 To UBound(tTab)
        If tAlpha(iIdx - 1) <> tTab(x, 1) Then
            If x > 1 Then iIdx = iIdx + 1
            ReDim Preserve tAlpha(iIdx)
            tAlpha(iIdx - 1) = tTab(x, 1)
            Cells(1, iCol + 100).FormulaLocal = "=NB.SI(C2:C" & CInt(iFlag) & ";""" & tAlpha(iIdx - 1) & """)"
            sFlag = sFlag & tAlpha(iIdx - 1) & " - " & Cells(1, iCol + 100) & Chr(10)
        End If
    Next
    '
    MsgBox "Totaux au " & Date & Chr(10) & Chr(10) & sFlag
    Application.ScreenUpdating = True
End If
'
End Sub

Pour le plaisir du code!

A+

bonsoir

A vaincre sans peril , on triomphe sans gloire

na!

cordialement