Calculer le nombre de ventes depuis une date précise

Bonsoir à tous,

me revoilà avec mon problème de calcul de ventes à partir d'un tableau ....

Mon tableau est donc fait de chiffres de ventes par ville et par date. On m'a déjà aidé à résoudre le problème de prise en compte du nom de la ville, mais désormais j'aimerais calculer les ventes à partir d'une date précise; la date en question est à chaque fois inscrite dans une cellule et j'aimerais donc me servir de cette cellule dans ma formule.

Comme vous pourrez le voir sur le mon fichier, j'ai déjà essayé une somme.prod qui ne fonctionne pas (peut-être est-ce du à un problème de format de la date qui n'est pas repris dans la formule?)

Bref si quelqu'un pouvait m'aider, ce serait super !

Merci et bonne soirée à tous!

Bonjour

Formule en E3, à incrémenter vers le bas

=SOMMEPROD((A$15:A$21=A3)*(B$14:AE$14>=B3)*(DECALER(B$14:AE$14;EQUIV($A3;$A$15:$A$21;0);)))

Cordialement

Bonsoir à tous,

une proposition presqu'aussi courte que celle d'Amadeus en VBA

Sub calcul()
Dim Lig As Long, Col As Integer, aa As String, bb, dercol As Integer, myRange As Range
Application.ScreenUpdating = False
Range("E3:E13").ClearContents

dercol = Cells(14, Columns.Count).End(xlToLeft).Column

c = 3
Do Until IsEmpty(Cells(c, 1))
    aa = Cells(c, 1)
    On Error Resume Next
    Lig = Range(Range("A15"), Range("A15").End(xlDown)).Find(aa, , xlValues, xlWhole).Row
    If Lig = 0 Then MsgBox aa & " ne se trouve pas dans le tableau": Exit Sub
    bb = Cells(c, 2)
    If Not IsDate(bb) Then MsgBox "L'entrée de votre cellule " & Cells(c, 2).Address & " est erronée.": Exit Sub
    Col = Rows(14).Find(bb, , xlValues, xlWhole).Column
    If Col = 0 Then MsgBox "La date du " & CDate(bb) & " ne se trouve pas dans le tableau": Exit Sub
    On Error GoTo 0
    Set myRange = Range(Cells(Lig, Col), Cells(Lig, dercol))
    Cells(c, 5) = Application.WorksheetFunction.Sum(myRange)
c = c + 1
Loop

Application.ScreenUpdating = True
End Sub

à coller dans le module de la feuille correspondante

Bonsoir,

merci pour vos réponses§ (notamment Game-Over pour ta longue réponse).

Finalement j'ai pris une somme.prod pour parvenir à mes fins!

Bonne soirée à tous!