additionner avec 2 critères

  • Initiateur de la discussion Initiateur de la discussion pascal21
  • Date de début Date de début

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 !

pascal21

XLDnaute Barbatruc
bonjour
je galère avec des sommprod et des somme.si depuis 2 bonne heures sans résultats
en fait sur le classeur brouillon ça fonctionne et pas sur le classeur définitif
je m'explique colonne a des dates
colonne b des noms
colonne c les données à additionner
cellule d4 le nom de référence et cellule e$4 la date sous le format aaaa
donc j'écris =sommeprod((a53:a100=d4)*(b53:b100=e$4)*(c53:1000))
et j'ai #valeur! qui s'écrit
voyez vous l'erreur
merci
 
Re : additionner avec 2 critères

Bonjour,

Pascal si ta formule dans ton post est telle que dans ton classeur, peut être un pb de référence ?

=sommeprod((a53:a100=d4)*(b53:b100=e$4)*(c53:1000) )

car :

1. tu mets C53:1000 sans mettre la lettre (n'est ce pas plutôt : c53:c100 ?)
2. sommeprod ne marche qu'avec des plages égales entre elles donc 100 et 1000...
3. si le pb est pas là peut-être un pb de format texte ?
 
Dernière édition:
Re : additionner avec 2 critères

Bonjour Pascal,

Pour la formule :
Il faudrait que D4 soit la date (comme la colonne A) et E4 le nom (comme la colonne B). De plus remplacer d4 par d$4.

Par ailleurs, le fait de mettre la date au format "aaaa" ne la transforme pas en année ! Il faut écrire l'année et dans la formule utiliser la foction ANNEE().

A+
 
Dernière édition:
Re : additionner avec 2 critères

Salut pascal
pas sur d'avoir tous compris mais essaies ceci

Private Sub Worksheet_Calculate()
Dim i As Byte
Dim Rnom As String, Rdate As String, Rsomme As Long, rcherche As String, RsommeTotale As Long, RdateTrouve As String
Rnom = Sheets("feuil1").Cells(4, 4).Value
Rdate = Int(Sheets("feuil1").Cells(4, 5).Value)
For i = 53 To 100
RdateTrouve = Int(Sheets("feuil1").Cells(i, 1).Value)
If Rnom = Sheets("feuil1").Cells(i, 2).Value And Rdate = RdateTrouve Then
Rsomme = Sheets("feuil1").Cells(i, 3).Value
RsommeTotale = RsommeTotale + Rsomme
End If
Next i
Sheets("feuil1").Range("G4").Value = RsommeTotale
End Sub

gilbert
 
Re : additionner avec 2 critères

Bonjour,

=SOMMEPROD((ANNEE(A53:A100)=E4)*(B53:B100=D4)*(C53:C100))

En dehors des remarques précédentes :
- Les plages doit être de tailles identiques
- L'année doit être extraite de la date avant comparaison
il faut aussi que les références aux cellules soient exactes
- colonne A des dates et cellule E4 la date sous le format aaaa → A53:A100=D4

Un exemple en pièce jointe.

abcd
 

Pièces jointes

Re : additionner avec 2 critères

bonsoir et merci pour vos réponses
effectivement je ne m'avais pas relu et j'ai ecris quelques bétises
j'ai fais d'autre essais pas la suite sur un classeur "brouillon" avec les mêmes plages et là ça fonctionne
les données de la colonne c sont issues de formules
c'est peut-être là que ça dec......
je regarde de plus près avant d'envoyer un classeur
 
Re : additionner avec 2 critères

re-bonsoir
j'ai trouvé le soucis
les colonnes données viennent d'une formule et l'une d'entre elles donnait " " si colonne b vide j'ai remplacé "" par 0 et ça fonctionne
capricieux le excel!!!!
 
Re : additionner avec 2 critères

Bonjour,

Au lieu de remplacer ”” par 0,
tu peux écrire la formule comme ça :
=SOMMEPROD((ANNEE(A53:A100)=E4)*(B53:B100=D4);C53:C100)

Tu remplaces * par un point virgule
et tu peux laisser du texte ou des "" dans la plage à sommer.
 
Re : additionner avec 2 critères

bonsoir jean pierre
c'est vrai dans mon exemple je n'ai pas parlé de "" tout simplement parceque j'ignorais que ça avait de l'importance
sommeprod est une formule magnifique encore faut-il connaitre ses points faibles
merci quand même à ceux qui se sont penché sur le problème
à bientôt
 
- 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
Retour