Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Trouver une somme en fonction d'une date

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
I

Itchythemouse

XLDnaute Nouveau
Bonjour,
J'ai une base de données qui fait plus de 1 000 lignes et 30 colonnes, ces colonnes indiquent le numéro de situ, la date, le % de facture et le solde.
Je dois synthétiser dans un autre tableau le total financier de la dernière situ par client et par détail, par exemple le client tata a une facture de 6€ pour les pêches achetées avant le 01/09/2016.
Je n'arrive à rien .... Est ce que quelqu'un peut m'aider
 

Pièces jointes

Trier par date Trier par votes
Bonjour le forum,

Proposition :

E29 :
=SOMMEPROD((A2:A25=D29)*(F2:F25<=C29)*(B2:B25="peche")*(H2:H25))+SOMMEPROD((A2:A25=D29)*(K2:K25<=C29)*(B2:B25="peche")*(M2:M25))+SOMMEPROD((A2:A25=D29)*(Q2:Q25<=C29)*(B2:B25="peche")*(S2:S25))

Bonjour job75
 
Vote positif 0 Vote négatif
excfl à dit:
Bonjour le forum,

Proposition :

E29 :
=SOMMEPROD((A2:A25=D29)*(F2:F25<=C29)*(B2:B25="peche")*(H2:H25))+SOMMEPROD((A2:A25=D29)*(K2:K25<=C29)*(B2:B25="peche")*(M2:M25))+SOMMEPROD((A2:A25=D29)*(Q2:Q25<=C29)*(B2:B25="peche")*(S2:S25))

Bonjour job75
Cliquez pour agrandir...

Super ça marche merci de votre retour, mais comme je suis un peu pénible j'ai plus de 30 colonnes sur 1000 lignes est ce qu'il n'y a pas une formule "plus simple" ?
 
Vote positif 0 Vote négatif
Je ne comprends toujours pas !

1) Vous dites que la formule de excfl convient alors qu'elle fait la somme de 3 SOMMEPROD portant sur les colonnes L M S qui sont elles-mêmes des totaux cumulés. Testez-la avec le mot "POIRE", elle donne 13,50 € alors que le résultat doit être 7,50 €.

2) Dans votre fichier du post #4 Feuil2 vous indiquez le mois "AVRIL" alors qu'auparavant il s'agissait de la date d'observation 01/09/2016.

3) Votre tableau de résultats n'a qu'une ligne : faut-il lister tous les DETAILS du client "TATA" ?
 
Vote positif 0 Vote négatif



Je l'ai testé à mon tour sur poire et je trouve bien le total des situ pour n'importe quel client et n'importe quel détails je vous joins le tableau
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour à tous

Si les 30 colonnes correspondent à des groupes de situations, cela va faire beaucoup de SOMMEPROD à additionner

Il est possible de normaliser le tableau par une requête PowerQuery, intégré à Excel, puis d'extraire ce qui correspond aux choix.

Comme job75 je m'interroge sur le résultat unique ou la demande initiale "Je dois synthétiser dans un autre tableau le total financier de la dernière situ par client et par détail"

Tu parlais de dernière situ et pas d'un choix de date et "par client et par détail" et non selon des choix...
 
Vote positif 0 Vote négatif
Bonjour Itchythemouse, excfl, chris,

Une solution VBA dans le fichier joint avec ces macros dans le code de la 2ème feuille (clic droit sur l'onglet et Visualiser le code) :
VB: 
Private Sub Worksheet_Activate()
Worksheet_Change [A1] 'lance la macro
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim dat, client$, ncol%, tablo, resu(), i&, n&, datmax&, j%, x As Variant
dat = [B1]: client = [B2] 'à adapter
If IsDate(dat) And client <> "" Then
    With Sheets("BDD").[A1].CurrentRegion 'à adapter
        ncol = .Columns.Count
        If ncol = 1 Then ncol = 2
        tablo = .Resize(, ncol) 'matrice, plus rapide, au moins 2 éléments
    End With
    ReDim resu(1 To UBound(tablo), 1 To 2)
    For i = 1 To UBound(tablo)
        If tablo(i, 1) = client And tablo(i, 2) <> "" Then
            n = n + 1
            resu(n, 1) = tablo(i, 2)
            datmax = 0
            For j = 2 To ncol
                x = tablo(i, j)
                If IsDate(x) Then If x <= dat Then If x > datmax Then datmax = x: resu(n, 2) = tablo(i, j + 2) 'décalage de 2 colonnes
            Next
        End If
    Next i
End If
'---restitution---
If FilterMode Then ShowAllData 'si la feuille est filtrée
With [A5] '1ère cellule, à adapter
    Application.EnableEvents = False 'désactive les évènements
    If n Then
        .Resize(n, 2) = resu
        .Resize(n, 2).Interior.ColorIndex = 19 'jaune clair
        .Resize(n, 2).Borders.Weight = xlHairline 'bordures
        .EntireColumn.AutoFit 'ajustement largeur
    End If
    .Offset(n).Resize(Rows.Count - n - .Row + 1, 2).Delete xlUp
    Application.EnableEvents = True 'réactive les évènements
End With
With UsedRange: End With 'actualise la barre de défilement verticale
End Sub
Les macros se déclenchent quand on active la feuille ou quand on modifie une cellule quelconque.

Edit : pour tester j'ai recopié le tableau source sur 50 000 lignes, la durée d'exécution de la macro est de 1,1 (TOTO) à 1,4 (BIBI) seconde.

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

R
  • Résolu(e)
XL 2021 plage de date comprise dans une autre plage de date
Réponses
3
Affichages
177
Ron74
R
A
  • Question Question
XL 2016 Récupérer la valeur d'une cellule en fonction de 2 conditions
Réponses
6
Affichages
350
Ariellab
A
O
  • Question Question
XL 2013 Planification automatique des rdv d'intervention en fonction des dates disponibles
Réponses
3
Affichages
357
cathodique
G
  • Résolu(e)
XL 2021 Transformer une formule en vba
2
Réponses
20
Affichages
747
kiki29
C
  • Question Question
XL pour MAC Remplir une case en fonction d'une autre
Réponses
3
Affichages
463
sylvanu
T
  • Question Question
Microsoft 365 Faire la somme de cellules d'une colonne ayant le même nom dans une autre colonne.
Réponses
6
Affichages
264
Thibox
T
  • Résolu(e)
XL 2021 Budget personnel : Aide sur formule avec somme suivant date prévisionnelle à déterminer
Réponses
12
Affichages
571
didier09
A
  • Question Question
XL 2010 Problème ou alternative à SOMPRODUCT en VBA
Réponses
14
Affichages
552
bruno lemaire
B
A
  • Question Question
XL pour MAC Problème avec une macro dupliquant une feuille contenant une macro
Réponses
8
Affichages
241
AlineJ
A
A
  • Question Question
XL 2016 MFC avec plusieurs conditions
2
Réponses
25
Affichages
771
ALVE
A
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
1 K
fanfan38
C
  • Question Question
XL 2021 Excel facturation avec BD clients (modèle utilisable joint) - liste déroulante =INDIRECT sur classeur séparé
Réponses
12
Affichages
1 K
Calizarine
C
S
  • Résolu(e)
Microsoft 365 Copier automatiquement sur une ligne sur une autre feuille si la date est supérieur à une date définie
2
Réponses
17
Affichages
1 K
S.J
S
O
  • Question Question
XL 2019 Mise a jour prix en fonction de la date
Réponses
8
Affichages
396
Ocbpatate
O
  • Question Question
XL 2021 Afficher une date d'une colonne selon date du jour
Réponses
8
Affichages
520
BLACKHAYES
O
  • Résolu(e)
XL 2013 Formule qui permet d'extraire le mois une date au format en jour/mois/année
Réponses
4
Affichages
412
onyirimba
O
N
  • Question Question
Microsoft 365 excel sommes si ens en ligne ou somme prod.
Réponses
4
Affichages
524
nicolulu
N
F
  • Question Question
XL 2016 En fonction d'une donnée renvoyer une autre donnée
Réponses
6
Affichages
425
flo189
F
M
  • Résolu(e)
XL 2013 Macross supprimant les données de cellule en dehors d'une période définie dans deux autres cellules
Réponses
9
Affichages
682
MarineU
M
R
  • Résolu(e)
XL 2016 Somme par année en fonction d'une date de début et de fin
Réponses
4
Affichages
814
remyexcel
R
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…