Cumul à partir de 2 critères

Bonjour

Je travail sur des sommes de températures par rapport à un créneau défini.

A une date donnée correspond une valeur de température. Je souhaite savoir à partir de cette date définie à quel jour j'atteins le cumul de 50° de température.

Je ne parviens pas à trouver la bonne formule... Ci-joint un exemple de ce que je voudrais

Merci

17meteo.xlsx (113.88 Ko)

Salut,

Une proposition par macro, éventuellement à adapter selon tes souhaits réels.

Par formule ça me semble peu évident.

Amicalement.

16meteo-v1.xlsm (115.39 Ko)

Bonjour,

Il existe une autre solution à votre problème. Une solution un peu longue mais universelle (réponds à toutes les situations semblable) et facilement "industrialisable" (la solution traitera automatiquement l'ensemble du classeur).

Voici les différentes étapes de la solution que vous pouvez suivre (voir classeur en pièce jointe):

--1:

-Créez la colonne "LA T° A LA DATE CHOISIE EST ELLE >= A LA SOMME T° SOUHAITEE ?" en C

-Rentrez la formule "=SI(OU(INDEX(B:B;EQUIV(K3;A:A;0))>K4;INDEX(A:A;EQUIV(K3;A:A;0))=K4);"OUI";"NON")" en E2

--2:

-Créez la colonne "FORMULE POUR TROUVER LA LIGNE DE LA DATE SOUHAITEE" en D

-Rentrez la formule "=LIGNE(INDEX(B:B;EQUIV(K3;A:A;0)))" en

--3:

-Créez la colonne "LIGNE DES DATE A PARTIR DE LA DATE SOUHAITEE" en E

-Rentrez la formule "=D2" en E2

-Rentrez la formule "=E2+1" en E3

--4:

-Créez la colonne "T° A PARTIR DE LA DATE CHOISIE" en F

-Rentrez la formule "=INDEX(B:B;E2)" en F2

--5:

-Créez la colonne "SOMME PROGRESSIVE T° A PARTIR DE LA DATE CHOISIE" en G

-Rentrez la formule "=SI(G1="SOMME PROGRESSIVE T° A PARTIR DE LA DATE CHOISIE";F2;SI(ESTNUM(F2);F2+G1;""))" en G2

--6:

-Créez la colonne "LA SOMME PROGRESSIVE DES T° EST-ELLE >= A LA SOMME T° SOUHAITEE ?" en H

-Rentrez la formule "=SI(OU(G2>$K$4;G2=$K$4);"OUI";"NON")" en H2

--7:

-Créez la colonne "LIGNE DU JOUR A PARTIR DE LA DATE SOUHAITEE OU LA SOMME DES T°>= 50" en I

-Rentrez la formule "=INDEX(E:E;EQUIV("OUI";H:H;0))" en I2

--8:

-Rentrez la formule "=INDEX(A:A;I2)" en K6

--9: Changez le format nombre de la cellule K6 en format date

--10: Voilà, si vous désirez chercher autre chose, il vous suffira de changer les cellules K3 et K4

--11: pour peaufiner, vous pouvez masquer les colonnes indésirables (mais il ne faut pas les supprimer ni les modifier !) en suivant ce tuto:

En espérant que cela pourra vous être utile,

Bonne journée !

12meteo.xlsx (117.61 Ko)

Ou encore :

13copie-de-meteo.xlsx (235.09 Ko)

Salut Nonordesiles,
Salut l'équipe,

autrement, sans doute, pour la même chose...

Private Sub Worksheet_Change(ByVal Target As Range)
'
Dim lgRow&, dbTemp#
'
Application.EnableEvents = False
'
If Not Intersect(Target, [E3]) Is Nothing Then
    If CDate([E3]) >= CDate([A2]) And CDate([E3]) < Date Then
        [D6:E6] = ""
        lgRow = DateDiff("d", CDate([A2]), CDate([E3])) + 2
        For x = lgRow + 1 To Range("A" & Rows.Count).End(xlUp).Row
            dbTemp = WorksheetFunction.Sum(Range("B" & lgRow).Resize((x - lgRow) + 1, 1).Value)
            If dbTemp >= [E4] Then _
                [D6] = dbTemp & "°  -  Objectif atteint le": _
                [E6] = Range("A" & x).Value: _
                Exit For
        Next
        If [E6] = "" Then _
            MsgBox "Il n'y a pas assez de données pour calculer l'objectif !" & Chr(10) & _
                "Veuillez encoder une date antérieure !", vbInformation + vbOKOnly, "Météo"
    Else
        MsgBox "La base de données commence le " & [A2] & " et se termine le " & Date & " !" & Chr(10) & _
            "Veuillez encoder une date intermédiaire !", vbInformation + vbOKOnly, "Météo"
    End If
    [D3].Select
End If
'
If Not Intersect(Target, [E4]) Is Nothing Then _
    [E3] = "": _
    [D6:E6] = ""
'
Application.EnableEvents = True
'
End Sub
10meteo.xlsm (119.76 Ko)


A+

Bonjour,

J'ai proposé une solution à ce membre - bonne ou mauvaise, je n'en sais rien - et il n'a pas encore eu le temps ou pas daigné me répondre depuis mardi.

Je ne comprends donc pas que vous veniez lui proposer d'autres solutions - puisque que la mienne est peut-être parfaite - alors qu'il y a d'autres demandes sans réponse sur ce Forum.

Cordialement.

Salut Yvouille,

j'ai effectivement hésité à proposer mon code, te connaissant...
Ce qui est drôle, c'est qu'à cette occasion-ci...

https://forum.excel-pratique.com/excel/ma-listbox-reagit-bizarrement-148955

... tu n'aies pas trouvé bizarre que plusieurs choix de solutions te soient proposés !
Il faudra vraiment demander à Sébastien de placer une icône "! Chasse gardée !".


A+

Salut Curulis,

Je pense que tu as mal compris ce que j'ai voulu dire

Très bonne journée à toi.

Merci à tous pour vos supers solutions à mon problème

Yvouille ta macro est super et fait exactement ce que je recherchais. Désolée de ne pas avoir pu te répondre plus tôt, mais je suis ravie de ton aide !

Rechercher des sujets similaires à "cumul partir criteres"